10.06.2022, 18:11
Moin zusammen,
ich habe eine Art Kalender erstellt und möchte jetzt ein paar weitere Spalten mittels Userform füllen.
Problem, ich habe es nicht geschafft, ein eingegebenes Datum in einer Textbox in dem Kalender zu finden, sodass die weiteren Eingaben richtig abgelegt werden können.
In dem Bereich von C5-C370 stehen die Datumsangaben von 01.01.22 - 31.12.2022
In der Spalte E und F möchte ich Zeiten (Arbeitsbeginn und Arbeitsende aus der Userform) eingeben und mittels CommandButton übernehmen.
1. Dieser Code aus dem Internet war der Vielversprechendste, funktionierte aber nicht.
Private Sub CommandButton1_Click()
'Nach Eintrag (Datum) suchen
Dim zelle As Range
With Sheets("Arbeitskalender")
If TextBox1.Value <> "" Then
Set zelle = .Columns("C:C").Find(TextBox1.Value, LookIn:=xlValues)
If Not zelle Is Nothing Then
.Cells(zelle.Row, 5).Value = TextBox2.Value
.Cells(zelle.Row, 6).Value = TextBox3.Value
Else
'MsgBox "Es gibt noch keinen Eintrag für das Datum " & TextBox1.Value
'FelderLöschen
TextBox1.SetFocus
End If
End If
End With
End Sub
2. Dann habe ich eine Änderung eingefügt mit dem Problem, dass nicht das Datum, sondern die Zeile 44562 gesucht wurde und dort in den Spalten 5 und 6 die Einträge übernommen wurden (wenigstens das ...).
Set zelle = .Columns("C:C").Find(CDate(TextBox1.Value), LookIn:=xlValues)
Wie ich erlesen konnte, hat CDate das eingegebene Datum in die Zahl 44562 konvertiert und aus einem mir unverständlichen Grund auch gefunden.
Eigentlich soll nur in Spalte C gesucht werden, das Makro hat aber die Zeile 44562 gefunden.
Wer könnte mir helfen, dass Makro entsprechend anzupassen.
ich habe eine Art Kalender erstellt und möchte jetzt ein paar weitere Spalten mittels Userform füllen.
Problem, ich habe es nicht geschafft, ein eingegebenes Datum in einer Textbox in dem Kalender zu finden, sodass die weiteren Eingaben richtig abgelegt werden können.
In dem Bereich von C5-C370 stehen die Datumsangaben von 01.01.22 - 31.12.2022
In der Spalte E und F möchte ich Zeiten (Arbeitsbeginn und Arbeitsende aus der Userform) eingeben und mittels CommandButton übernehmen.
1. Dieser Code aus dem Internet war der Vielversprechendste, funktionierte aber nicht.
Private Sub CommandButton1_Click()
'Nach Eintrag (Datum) suchen
Dim zelle As Range
With Sheets("Arbeitskalender")
If TextBox1.Value <> "" Then
Set zelle = .Columns("C:C").Find(TextBox1.Value, LookIn:=xlValues)
If Not zelle Is Nothing Then
.Cells(zelle.Row, 5).Value = TextBox2.Value
.Cells(zelle.Row, 6).Value = TextBox3.Value
Else
'MsgBox "Es gibt noch keinen Eintrag für das Datum " & TextBox1.Value
'FelderLöschen
TextBox1.SetFocus
End If
End If
End With
End Sub
2. Dann habe ich eine Änderung eingefügt mit dem Problem, dass nicht das Datum, sondern die Zeile 44562 gesucht wurde und dort in den Spalten 5 und 6 die Einträge übernommen wurden (wenigstens das ...).
Set zelle = .Columns("C:C").Find(CDate(TextBox1.Value), LookIn:=xlValues)
Wie ich erlesen konnte, hat CDate das eingegebene Datum in die Zahl 44562 konvertiert und aus einem mir unverständlichen Grund auch gefunden.
Eigentlich soll nur in Spalte C gesucht werden, das Makro hat aber die Zeile 44562 gefunden.
Wer könnte mir helfen, dass Makro entsprechend anzupassen.