ich hab zwar gegoogelt, dennoch hab ich das Gefühl, nicht die richtigen Stichworte gewählt zu haben.
Nun versuch ich es hier, mein Problem zu beschreiben.
Also....
Ich verwende nachfolgende Schleife, um Commandbutton zu beschriften.
Private Sub CommandButton608_Click()
Dim I As Long
'Erster Tag
For I = 100 To 600 Step 100
Controls("CommandButton" & I).Caption = "Mustermann, Max"
Next I
'Zweiter Tag
For I = 101 To 601 Step 100
Controls("CommandButton" & I).Caption = "Dorfmeier, Hans"
Next I
'Dritter Tag
For I = 102 To 602 Step 100
Controls("CommandButton" & I).Caption = "Petersen, Peter"
Next I
'Vierter Tag
For I = 103 To 603 Step 100
Controls("CommandButton" & I).Caption = "Hansen, Hans"
Next I
'Fünfter Tag
For I = 104 To 604 Step 100
Controls("CommandButton" & I).Caption = "Tomsen, Tom"
Next I
'Sechster Tag
For I = 105 To 605 Step 100
Controls("CommandButton" & I).Caption = "Bertsen, Bert"
Next I
'Siebter Tag
For I = 106 To 606 Step 100
Controls("CommandButton" & I).Caption = "Andresen, Andreas"
Next I
End Sub
Nun bin ich auf der Suche nach einer Suchroutine, diea. mit drei Suchbegriffen zurechtkommt,
b. die Tabelle nur einmal von oben nach unten durchläuft und
c. keine doppelten Werte benennt.
Die Suche soll die Stelle mit den "Nachnamen, Vornamen" ersetzen.
Wär euch echt dankbar.
Gruß
A.