Ich habe folgende Aufgabe:
Ich möchte mehrere User-Accounts verwalten..
Der Benutzername soll eindeutig sein, was heissen soll, das kein User-Name doppelt vorhanden sein darf.
Aufbau:
Alle User-Names sind in der Tabelle "User" von "A1" abwärts..
Zuerst wird der Vorname bei einem leeren User-Name-Feld verwendet.
Nun beginnt die Suche nach dem Namen..
Wenn der Name schon in der Tabelle vorhanden ist, soll
eine Zahl (angefangen bei "1") angehängt werden..
Neue Suche, usw..
Mein bisheriger Code:
Private Sub CommandButton1_Click()
prüfen
End Sub
Private Sub prüfen()
If txt_User.Text = "" Then
txt_User.Text = txt_Vorname.Text
End If
Dim i, a As Integer
Dim Name As String
i = 0
a = 1
Name = txt_User.Text
Do While Not Workbooks("gdb.xls").Sheets("User").Cells(i + 1, 1).Value = ""
If Workbooks("gdb.xls").Sheets("User").Cells(i + 1, 1).Value = Name Then
Name = Format(txt_User.Text & a, txt_User.Text & a)
a = a + 1
ElseIf (Workbooks("gdb.xls").Sheets("User").Cells(i + 1, 1).Value = Name) = False Then
i = i + 1
End If
Loop
txt_User.Text = Name
End Sub
Meine Beispieltabelle:
Stony
Stony0
Stony1
Stony10
Stony11
Stony12
Stony13
Stony14
Stony15
Stony16
Stony17
Stony18
Stony19
Stony2
Stony20
...
Wenn ich jetzt "Stony" vorschlagen lasse, sollte "Stony"-"Stony20" gefunden werden..
Das heisst, das "Stony21" noch frei wäre..
Aber bei mir gibt er mir ist "Stony10" frei..
Wenn ich die Tabelle mit von 1-9 durchlaufen lasse funktioniert es: ("Stony10")
Hoffe ihr könnt mir helfen..
mfg Stony