MsgBox Error
Sascha
Ich habe ein Makro das beim Ausführen kontrolliert ob Daten in einer Spalte sind.
Wenn nicht kommt eine MsgBox wo man die Zeit eintragen soll die dann in die Spalte eingefügt wird.
Leider erscheint danach dann immer eine MsgBox mit
Abbruch Bitte Daten eingeben kann man das ändern das diese Meldung nicht kommt wenn man die Zeit eingegebn hat.
Gruß Sascha
Sub feierabendzeit()
Dim i As Long, z As Long, lngLastRow As Long
Dim myDate
With Sheets(1)
lngLastRow = .Cells.Find(What:="*", after:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For i = 4 To lngLastRow
If WorksheetFunction.CountA(.Range(.Cells(i, 1), .Cells(i, 13))) > 0 Then
If .Cells(i, 6) = "" Then
MsgBox "Bitte Daten eingeben !", vbCritical, "ABBRUCH"
Exit For
End If
If .Cells(i, 11) = "" Then
myDate = InputBox("Bitte Feierabendzeit vom: " & .Cells(i, 11).Offset(, -5) & " _
eingeben! z.B.: 19:30", "Heute ist der " & Date)
If IsDate(myDate) Then
z = i
Do
.Cells(z, 11) = myDate
z = z + 1
Loop Until .Cells(z, 6) .Cells(i, 6)
Else
MsgBox "Bitte gültige Uhrzeit eingeben ! z.B.: 19:30", vbCritical, "Fehler"
Exit For
End If
End If
End If
Next
End With
End Sub