Datum wenn
Sascha
hab schon hilfe bekommen im Forum und schon mal danke dafür.
Kann man da noch ein 2 funktionen ändern hab es chon probiert aber mit mässigem Erfolg.
Punkt 1.
Wenn in Spalte F kein Datum drin steht dann soll eine Meldung kommen das man noch Daten eingeben muss und nicht das man eine Uhrzeit eingeben muss von Heute.
Punkt 2.
Man kann die MsgBox nicht abbrechen, leider. Wenn ich auf abbrechen klicke kommt zwar abbrechen aber dann wieder die MsgBox bis ich was eingegben habe.
Grüsse Sascha
Option Explicit
Sub feierabend()
Dim i As Long, z As Long
Dim myDate
With Sheets(1)
For i = 4 To .Cells(65535).End(xlDown).Row
If WorksheetFunction.CountA(.Range(.Cells(i, 1), .Cells(i, 13))) > 0 Then
If .Cells(i, 14) = "" Then
Do
myDate = InputBox("Bitte Feierabendzeit vom: " & .Cells(i, 14).Offset(, -8) & " _
eingeben!", "Heute ist der " & Date)
If IsDate(myDate) Then
z = i
Do
.Cells(z, 14) = myDate
z = z + 1
Loop Until .Cells(z, 6) .Cells(i, 6)
Else
MsgBox "Bitte gültige Uhrzeit eingeben !", vbCritical, "ABBRUCH"
End If
Loop Until IsDate(myDate)
Exit For
End If
End If
Next
End With
End Sub