Hallo, ich bin noch VBA Anfänger und komm echt nicht weiter.
Folgendes ich habe mehrere Comboboxen nebeneinander und untereinander, die Boxen untereinander haben den Namen cmb1 - cmb20
hier würde ich gerne die eingetragenen Werte einlesen wollen
Dim x As Integer 'Zeile
Dim y As Integer 'Spalte
Dim Cnt As Integer
.....
Sheets("Menutab").Cells(x, y) = cmdeub.Controls.Cmb1.Value
y = y + 1
das funktioniert soweit.
So nun will ich zur nächsten Combobox springen sprich cmb2
damit ich das aber nicht alles runter schreiben muß, dachte ich mir, man kann die Zahl der Combobox einfach um 1 erhöhen wenn man zur nächsten Zeile Springt.
cnt=cnt+1
Sheets("Menutab").Cells(x, y) = cmdueb.Controls("Cmb" & Cnt).Value
y = y + 1
leider funktioniert das ganze nicht. :(
Vielen Dank schon mal
|