Userform Zeiterfassung Werte übernehmen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jannik,
90% aller Erfassung werden den Art "Anwesend" und auch nicht wenige Einträge werden auf dem heutigen Datum belegt. Ich würde diesen Feld mit diesen Wert vorbelegen. Auch die Von-Bis sind immer ähnlich.
Um den Date Time Picker Control verfügbar zu machen, musst Du zuerst in "Extras", "Verweise..." auf "Microsoft Windows Common Controls x.x" einen Haken setzen,
dann beim geöffnete Werkzeugsammlung ("Ansicht", "Werkzeugsammlung") auf "Extras", "Zusätzliche Steuerelemente..." und einen Haken auf "Microsoft Date and Time Picker Control 6.0" setzen.
Dann hast Du im Werkzeugsammlung ein zusätzliche Steuerelement, den Du einsetzen kannst.
Ich würde nicht versuchen, neue Einträge an einem reservierten Platz reinzubringen, sondern alle Einträge nacheinander. Bei doppleten Einträge müssen die neuesten mit Power Query behalten werden. Die Summen werden per Pivottabelle gemacht, nicht mit Formeln.
Aber das wäre a bissele Fortgeschrittene (Ausser Pivottabell, das ist auch Anfänger-tauglich). Da Du alle Datum ohne Lücke in einer Reihe stehen: ein Datum ist ein Zahl. Das gewählte Datum minus 1. Januar plus 1 ergibt den Versatz zwischen Zeile 9 (erste Januar) und gesuchtem Datum.
Ansonsten macht man solche Anwendung eher mit Access als Excel. Aber das wäre eine anderen Frage.
VG
Yal

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

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 If ComboBox1 = "Anwesend" 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 .Cells(rngFund, 3) = ComboBox1 End If Else MsgBox "Datum nicht gefunden" End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Userform Zeiterfassung Werte übernehmen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform Zeiterfassung Werte übernehmen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread