select case
13.03.2008 21:17:00
P.Welbers
wahrscheinlich sehe ich vor lauter Wald die Bäume nicht mehr.
In einer Userform gebe ich in einer Reihe von Textboxes Werte ein. Anhand der Werte möchte ich einer weiteren Textbox einen bestimmten Wert zuweisen. Aber die Anweisung tbAbox & i ist falsch. Wie kann ich die entsprechende Textbox anhand des Schleifenindex auswählen?
etwa so:
....
tbABox1 = "A"
tbABox2 = "B"
'usw.
...
Private Sub UserForm_Click()
For i = 1 To 10
Select Case tbABox & i
case is = "A" : tbBBox & i = "123"
Case is = "B" : tbBBox & i = "$%&"
'usw.
End Select
Next i
End Sub
Ich habe schon versucht, anstatt die tbABox direkt anzusprechen, zunächst eine Stringvariable zu bilden box = "tbAbox" & i. Jetzt brauche ich aber eine Funktion, die anhand des Stringinhalts (also "tbABox1" ) den Wert aus der dazu passenden textbox ausliest. Wer kann mir den entsprechenden Hinweis geben?
Peter
Anzeige