CommandButton
Volker
Dank Björn B. bin ich ein ganzes Stück weiter gekommen. Jetzt wirft sich (leider) eine neue Frage auf:
Hier der Code von Björn B. (bis zum fett geschriebenen)
Dim i As Integer
Do
If ActiveCell.Offset(0, i) = "" Then 'Zeit übernehmen
ActiveCell.Offset(0, i) = ComboBox2
Exit Sub
Else
i = i + 1
End If
Loop While ActiveCell.Offset(0, i - 1) ""
UserForm1.CommandButton2 = True
End Sub
Auf der Userform befinden sich die CommandButtons. Manuell funktioniert das was ich vorhabe. Allerdings nicht wenn ich den zweiten CommandButton über den Code aufrufen lasse.
Kann mir jemand sagen warum das nicht funktioniert?
Danke und Gruß
Volker