Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.


Share this Page URL
Help

Kapitel 1: So führen Sie eine Datenverwa... > 1.6 So ändern Sie bereits erfasste D... - Pg. 41

So ändern Sie bereits erfasste Datensätze mal prüfen, ob der neu zu erfassende Datensatz nicht schon in der Tabelle existiert. Wenn ja, dann ist die Variable Treffer gefüllt. Dort steht dann im Prinzip die gefundene Zelle drin, die das Suchkriterium aus TextBox1 beinhaltet. In diesem Fall geben Sie eine Meldung am Bildschirm aus und fragen ab, ob der Datensatz überschrieben werden soll. Geben Sie danach über die Anweisung Set bekannt, wie die UserForm in diesem Makro heißen und wie diese angesprochen werden soll. Ermitteln Sie jetzt die erste freie Zelle in Spalte A, sofern der Datensatz bei der vorhergehenden Suche nicht gefunden werden konnte. Diese Information wird in der Variablen lng gespeichert. Die erste freie Zelle aus Spalte A ergibt sich durch die zuletzt verwen- dete Zeile, die um den Wert 1 erhöht wird. Hinterlegen Sie danach die neue Zeile mit Inhalten, indem Sie die Inhalte der TextBoxen aus der UserForm direkt über die Cells -Auflistung in die Tabelle schreiben. Da es sich beim ersten Textfeld in diesem Beispiel um eine Information handelt, die 1:1 in die Tabelle geschrieben werden muss, sorgen Sie mithilfe eines Apostrophs dafür, dass führende Nullen beispielsweise nicht plötzlich nach dem Übertrag in die Tabelle verschwinden. In Excel werden führende Nullen unterdrückt. Im Falle einer Personalnummer hätte dies gegebenenfalls unvorteilhafte Folgen. 1 2 3 4 5 6 7 1.6 So ändern Sie bereits erfasste Datensätze 8 9 10 11 12 13 14 15 16 Auch bei einer Änderung eines Datensatzes muss dieser vorher gefunden, im Lis- tenfeld angezeigt und markiert werden. Danach erfolgt die Anpassung der einzel- nen Textfelder. Mit einem Klick auf die Schaltfläche D ATENSATZ ÄNDERN wird die Änderung in der Tabelle vorgenommen. Um diese Funktion einzufügen, klicken Sie in der Entwicklungsumgebung die Schaltfläche D ATENSATZ ÄNDERN doppelt an und ergänzen den leeren Ereignisrah- men des Klick-Ereignisses wie in Listing 1.5 gezeigt. Listing 1.5: Einen Datensatz ändern Private Sub cmdÄndern_Click() 'Datensatz ändern Dim lng As Long Dim i As Integer On Error Resume Next lng = frm_Daten.ListBox1.Column(5) Sheets("DATEN").Activate With frm_Daten Cells(lng, 1).Value Cells(lng, 2).Value Cells(lng, 3).Value Cells(lng, 4).Value Cells(lng, 5).Value Cells(lng, 6).Value = = = = = = .TextBox1.Value .TextBox2.Value .TextBox3.Value .TextBox4.Value .TextBox5.Value .TextBox6.Value 41