Hallo !
Gebe Daten bei Excel per UserForm ein mittels folgendem Code für das UserForm (2 Textboxen: 1.Textbox für Spalte A, 2.Textbox für Spalte B - mehrere Arbeitsblätter - hinzufügen der Daten erfolgt über Button):
Dim loLetzte As Long
With Worksheets(Left(Textbox1,1))
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
Set raZelle = .Range("A1:A" & loLetzte).Find(TextBox1, , xlValues, xlWhole)
If Not raZelle Is Nothing Then
MsgBox "Diesen Wert gibt es schon"
Exit Sub
Else
.Cells(loLetzte + 1, 1) = TextBox1
.Cells(loLetzte + 1, 2) = TextBox2
End If
End With
Wie muss der Code umgeschrieben werden, damit während der Eingabe in TextBox1 simultan/gleichzeitig überprüft wird, ob der Eintrag bereits vorhanden ist und die MsgBox"Diesen Wert gibt es schon" bereits früher angezeig wird und nicht erst, wenn die Einträge in beide Textboxen erfolgt sind und man den Button zum hinzufügen der Daten betätigt ? Des weiteren fehlt hier noch nach dem betätigen des Button Daten hinzufügen die Rückmeldung, dass die Daten erfasst/eingetragen wurden.
Gruß
peschi