vergleichen und dann eintragen bzw ändern
13.01.2004 07:54:08
michael
Ich habe schon einmal über dieses Problem geschrieben, und auch eine Antwort bekommen. Ich komme mit der Lösung aber nicht zurecht. Ich trage Daten über eine UserForm in ein Tabellenblatt ein. Ich möchte es irgendwie schaffen, daß falls in Spalte A (Kundennummer) die Nummer schon vorhanden ist, kein Neueintrag getätigt wird.
Mit dieser Formel trage ich die Daten ein.
Private Sub Neueintrag_Click()
z = 1
Do While Cells(z, 1) <> ""
z = z + 1
Loop
Cells(z, 1) = Me.KundennummerTxt
Cells(z, 2) = Me.AnredeTxt
Cells(z, 3) = Me.FamiliennameTxt
Cells(z, 4) = Me.VornameTxt
End Sub
Danke für Eure Hilfe
Michael