Excel-Gleitzeittabelle mit Eingabemaske (VBA)
15.04.2014 08:14:00
Nikolai
Ich erstelle zur Zeit eine Tabelle, die mir die Möglichkeit bietet mir über eine Eingabemaske meine Arbeitszeiten für alle 12 Monate (jeweils auf 12 Tabellenblätter verteilt) einzutragen, sowie die Pausen und und und.
Das Problem, welches sich mir in den Weg stellt ist in VBA. Die Tabelle funktioniert einwandfrei.
zum Problem: Ich habe eine Eingabemaske erstellt, welche eine Textbox enthält, an dem der Tag eingetragen werden soll, sowie verschiedene Textboxen für die Zeit an der ich Angefangen habe, für die Pausen und für den Feierabend. Nun soll die Zelle in der Tabelle gesucht werden, welche das eingetragene Datum enthält und dann sollen in die nebenstehenden Zellen die Zeitwerte eingetragen werden. Das ganze wird natürlich durch einen Klick auf einen Button ausgelöst.
Mein Code:
Private Sub btn_Abschicken_Click()
Dim zeile As Long
Dim Datum As Date
Datum = CDate(Me.Datum.Value)
zeile = 12
If Me.Auswahl_Monat = "Januar" Then
Do While Trim(CDate(Januar.Cells(zeile, 1).Value)) = Datum
zeile = zeile + 1
Loop
Worksheets("Januar").Cells(zeile, 3).Value = Me.anfang.Text
Worksheets("Januar").Cells(zeile, 8).Value = Me.ende.Text
Worksheets("Januar").Cells(zeile, 4).Value = Me.pauseanfang1.Text
Worksheets("Januar").Cells(zeile, 5).Value = Me.pauseende1.Text
Worksheets("Januar").Cells(zeile, 6).Value = Me.pauseanfang2.Text
Worksheets("Januar").Cells(zeile, 7).Value = Me.pauseende2.Text
End If
End Sub
Es wirft mir dauernd den Fehler "Kein Objekt gefunden" raus, liegt bestimmt an der Datumsvariable, weil da irgendwas falsch konvertiert ist oder? Ich komm auch nach langem rumgooglen einfach nicht drauf.