|
Hallo zusammen,
ich arbeite gerade an einer kleinen Spielerei, um Zeiten zu erfassen, jedoch bekomme ich immer Fehlermeldung in der Zeile (Worksheets(MONAT).Columns(1).Find(S).Select). Was mache ich falsch?
Ich öffne eine UserForm, in der der aktuelle Monat abgefragt wird, da ich für jeden Monat ein einzelnes Worksheet habe.
Es wird das Datum abgefragt, damit ich nach der Zeile mit dem Datum suchen kann. Es wird auch die Kommen und Gehen-Zeit abgefragt,
die dann rechts neben dem Datum eingepflegt werden sollen, damit ich mir dann meine IST-Zeit errechnen kann.
Hier der Code:
_____________________________________________
Private Sub CommandButton_Click()
Dim S As String
Dim KOMMEN As String
Dim GEHEN As String
Dim MONAT As String
S = Zeiterfassung.TextBox3.Value
S = Format(S, "dd/mm/yyyy")
KOMMEN = Zeiterfassung.TextBox5.Value
GEHEN = Zeiterfassung.TextBox6.Value
MONAT = Zeiterfassung.ComboBox1.Value
Worksheets(MONAT).Columns(1).Find(S).Select
ActiveCell.Offset(0, 1).Value = TextBox5.Text
ActiveCell.Offset(0, 2).Value = TextBox6.Text
End Sub
_____________________________________________________
|