Datum wenn

Forumthread: Datum wenn

Datum wenn

Sascha

Hallo zusammen
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Datum wenn

Steffen
beides zusammen

Sascha
AW: beides zusammen

Steffen

AW: Datum wenn

27.04.2010 20:25:52

Steffen

Hallo Sascha,
die Vorgaben entsprechen ja so gar nicht mehr deinen Anfangs Vorgaben hmm gut , das sollte dann mit folgen Code gehen...

Sub test()
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
End If
Next
End With
End Sub

Gruß
Steffen

beides zusammen

27.04.2010 20:35:53

Sascha

Hallo Steffen
Doch es hat was mit der Ersten Frage zu tun.
Wenn in Spalte F ein Datum ist dann soll eine MsgBox aufgehen und eine Uhrzeit soll eingegeben werden die in Splate N eingetragen wird.
Aber man soll die möglichkeit haben die MsgBox auch Abbrechen zu können.
Wenn In Spalte F kein Datum ist dann soll ein Hinweis kommen das noch Daten fehlen.
Danke schon mal Steffen ich versuch es mal selber aber bin um deine hilfe immer dankbar.

AW: beides zusammen

27.04.2010 20:55:07

Steffen


Sub test()
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, 14) = "" Then
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"
Exit For
End If
End If
End If
Next
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Forumthread: Datum wenn

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread