Sub a()
Dim Antwort
Antwort = MsgBox("Ist das Datum in A2 korrekt?", 4, "Frage")
While Antwort = vbNo
Rows(2).Delete Shift:=xlUp
Antwort = MsgBox("Ist nun das Datum in A2 korrekt?", 4, "Frage")
Wend
End Sub
Sub aa()
Dim i As Long
Dim z As Long
z = Cells(Rows.Count, 1).End(xlUp).Rows.Row
With ActiveSheet
For i = 2 To z Step 1
If .Cells(i, 1) <> (Cells(2, 1) + ((i - 2) / 1440)) Then Cells(i, 1).Clear
Next
End With
End Sub
Sub aaa()
Dim i As Long
Dim z As Long
z = Cells(Rows.Count, 1).End(xlUp).Rows.Row
With ActiveSheet
For i = 2 To z Step 1
If .Cells(i, 1) = "" Then .Rows(i).Delete Shift:=xlUp
Next
End With
End Sub
Sub aaaa()
Dim i As Long
Dim z As Long
Dim wbDir As String
Dim x As Range
Dim d As Date
x = Range("A2")
d = CDate(x)
z = Cells(Rows.Count, 1).End(xlUp).Rows.Row
MkDir ("C:\Users\Desktop\Test")
With ActiveSheet
wbDir = "C:\Users\Desktop\Test\"
For i = 2 To z Step 1
If .Cells(i, 1) = CDate(x) Then .SaveAs Format(CDate(x), "yyyymmdd") & ".xls"
Next
End With
MsgBox "Dateien erstellt!"
End Sub