"müsste ich noch haben", soso
06.12.2021 20:35:52
ralf_b
Hallo Jannik,
Es ist zwar heute Nikolaustag aber große Geschenke gibt's deshalb trotzdem nicht. Ich befürchte du übernimmst dich. "Kaum Excel/VBA-Kenntnisse" sind keine gute Voraussetzung für so ein Projekt. Da hängt mehr dran als du denkst.
Es ist ok hier zu fragen. Aber mit deiner sehr mageren Vorleistung ist abzusehen das du gegebene Hilfen nicht umsetzen kannst. Das dürfte dir selbst schon klar sein. Womit sich mir der Verdacht aufdrängt das du auf fertige Lösungen spekulierst. Ich hoffe das die anderen Helfer das ähnlich sehen.
Zum Üben und als Einstieg für dich ein bisschen Code für deine Userform. Die Rowsource-Zuordnung deiner Comboboxen solltest du aber rausnehmen. Das beißt sich mit der .List Zuweisung im Initialize.
Private Sub CommandButton1_Click()
Dim rngFund As Range
With Worksheets("2021")
Set rngFund = .UsedRange.Columns(1).Find(What:=CDate(ComboBox2.Value), lookat:=xlWhole)
If Not rngFund Is Nothing Then
.Cells(rngFund.Row, 3) = TextBox4
.Cells(rngFund.Row, 4) = TextBox5
.Cells(rngFund.Row, 5) = TextBox6
.Cells(rngFund.Row, 6) = TextBox7
.Cells(rngFund.Row, 7) = TextBox8
.Cells(rngFund.Row, 8) = TextBox9
Else
MsgBox "Datum nicht gefunden"
End If
End With
End Sub
Private Sub UserForm_Initialize()
ComboBox2.List = Worksheets("2021").Range("A9:A373").Value
ComboBox2 = Date
ComboBox1.List = Array("Anwesend", "Krank", "Urlaub")
ComboBox1.ListIndex = 0
End Sub