Ziel ist es folgende Funktionalität mit einer Schleife zu realisieren:
Dim u1, u11, u12, u13 As String
Private Sub ComboBox1_Change()
Case u1
If u11 <> "" Then
ComboBox2.AddItem u11
End If
If u12 <> "" Then
ComboBox2.AddItem u12
End If
If u13 <> "" Then
ComboBox2.AddItem u13
End If
End Select
Next
End Sub
Die Variablen werden unter
Private Sub UserForm_Initialize()
Initialisiert:
u1 = "Software"
u11 = "Audio"
u12 = "Video"
u13 = "Bild"
...
Mein Schleifen-Ansatz sieht so aus:
Dim u1, u11, u12, u13 As String
Private Sub ComboBox1_Change()
Dim i
For i = 1 To 3
Select Case ComboBox1.Text
Case u1
If u1 & i <> "" Then
ComboBox2.AddItem u1 & i
End If
End Select
Next
End Sub
Ziel ist es den Index von u hoch zu zählen. Leider wird aber bei u1 & i im ersten Durchlauf nicht u11=“Audio“ verarbeitet, sondern der Eintrag von u1=“Software“ jeweils mit i erweitert, es steht also
Software1
Software2
Software3
in der ComboBox2.
Wie kann ich den Index der Variablen u hochzählen?
Gruß Matthias