ich habe schon wieder mal ein Frage, auf die ich keine Antwort finde weil ich nicht weiß, wonach ich suchen soll.
Ich möchte mit einem ComboBox Change-Ereignis ein Modul aufrufen die dann Werte aus einem Arbeitsblatt in Textboxen einträgt.
Das funktioniert alles, solange der Code der Combobox direkt zugeordnet ist.
Wenn ich die Codezeilen in ein Modul auslagern möchte und dann mit Call aufrufen, dann bekomme ich die "Fehlermeldung 424 Objekt erforderlich."
Sub SchichtzeitenComboBoxMitarbeiter1()
usfArbeitszeitEintragen.cboMitarbeiter1.List = Sheets("Stammdaten").Range("B28:B34").Value
If usfArbeitszeitEintragen.cboMitarbeiter1 "" Then
With Worksheets("Stammdaten") danach kommt die Fehlermeldung
usfArbeitszeitEintragen.tbo1VonMitarbeiter1.Value = .Cells(cboMitarbeiter1. _
ListIndex + 28, 4).Text
usfArbeitszeitEintragen.tbo1BisMitarbeiter1.Value = .Cells(cboMitarbeiter1. _
ListIndex + 28, 5).Text
usfArbeitszeitEintragen.tbo2VonMitarbeiter1.Value = .Cells(cboMitarbeiter1. _
ListIndex + 28, 6).Text
usfArbeitszeitEintragen.tbo2BisMitarbeiter1.Value = .Cells(cboMitarbeiter1. _
ListIndex + 28, 7).Text
usfArbeitszeitEintragen.tbo3VonMitarbeiter1.Value = .Cells(cboMitarbeiter1. _
ListIndex + 28, 8).Text
usfArbeitszeitEintragen.tbo3BisMitarbeiter1.Value = .Cells(cboMitarbeiter1. _
ListIndex + 28, 9).Text
End With
Else
usfArbeitszeitEintragen.tbo1VonMitarbeiter1.Value = ""
usfArbeitszeitEintragen.tbo1BisMitarbeiter1.Value = ""
usfArbeitszeitEintragen.tbo2VonMitarbeiter1.Value = ""
usfArbeitszeitEintragen.tbo2BisMitarbeiter1.Value = ""
usfArbeitszeitEintragen.tbo3VonMitarbeiter1.Value = ""
usfArbeitszeitEintragen.tbo3BisMitarbeiter1.Value = ""
End If
End Sub
Die Hilfe 'hilft' mir hier auch nicht weiter, vielleicht weiß jemand Rat.
Danke für Eure Bemühungen!
Werner