Ach natuurlijk... Ik pak 'm altijd op bij ControlSource maar deze bestaat uiteraard ook.
Maar goed, je probleem... Je hebt 't - vind ik - jezelf niet echt makkelijk gemaakt met al die comboboxen. Je kan prima alle controls aflopen, maar dan moet je er eerst voor zorgen dat alle TabStops (= ook een eigenschap van elk formulier-object) in de juiste volgorde staan. Dus 'Speler', 'Tijd', 'Speler', 'Tijd", enzovoorts. Pas dan ook gelijk de benaming (= eigenschap
(Name)) van het object aan. Bijvoorbeeld CMB1, CMB2, CMB3 enzovoorts en dan uiteraard in dezelfde volgorde als je tab-stops.
Daarmee kan je via een procedure langs alle objecten lopen en de waarde opvragen. Maar ook dit blijft een heel gedoe. WAT wil je precies met je workbook bereiken?
Aangezien ik nog aan 't klussen ben met de vraag van de schietvereniging, kan ik deze er niet uitgebreid bij pakken. Evenwel heb ik de volgende procedure geschreven die je in je formulier-module moet plakken (dan wél éérst bovenstaande volgorde aanpakken!!!)
Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" Then
With Sheets("Blad2")
i = i + 1
If i Mod 2 = 1 Then
regel = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
.Cells(regel, 1).Value = TextBox1.Text
End If
.Cells(regel, (i Mod 2) + 2).Value = ctrl.Value
End With
End If
Next ctrl
End Sub
Ik hoop dat ik je hiermee een stukje die goede weg in heb geholpen...