zur Zeit verwende ich den folgenden Code, um Elemente einer UserForm anzusprechen.
Private Sub ComboBox1_Change()
Dim iBox As Long
' Wert wie IndexNr der ComboBox
iBox = 1
Controls("ComboBox" & iBox).Value = Format(Controls("ComboBox" & iBox).Value, "hh:mm")
End Sub
Beim Kopieren dieses Codes in weitere ComboBoxen brauche ich nur die IndexNr anpassen.Da ich von Natur aus aber faul bin und zudem Schreibfehler ausschließen will, suche ich eine Möglichkeit, die IndexNr direkt in dem entsprechenden Code zu ermitteln, ohne sie anpassen zu müssen.
Geht das?
und wenn, Wie?
Gruß Siegfried