Private Sub CommandButton1_Click()
Dim emptyRow As Long
Set myRange = Worksheets("Tabelle3").Range("A:A")
emptyRow = WorksheetFunction.CountA(myRange) + 1
If TextBox1.Value = "" Then MsgBox "Bitte Namen eingeben!"
If TextBox1.Value <> "" Then myRange.Cells(emptyRow, 1).Value = TextBox1.Value
End Sub
Das reicht aus, um die Namen einzufügen, allerdings habe ich noch nichts, was die doppelten Werte verhindert. DIe Idee war jetzt, zu prüfen, ob der eingegebene Text bereits in Spalte A existiert. Falls ja, soll eine MsgBox darauf hinweisen. Falls nicht, soll das nächste UserForm zum Abstimmen aufpoppen.
|