Makro zum ausdrucken erweitern
Heinz
Ich habe ein Makro (CD von Herber)
In diesen Makro wird das Startdatum mit "12.02.01" das Enddatum mit "15.03.01" angegeben.
Ich habe im Sheets "Sortierrapport" ab A5 das Datum stehen.
Wäre es möglich in der "InputBox" das Startdatum von A5 und das Enddatum vom letzten Eintrag in Spalte A zu erhalten.
Zusätlich wäre Super wenn ich auch noch die Anfangs und End Uhrzeit ist ab B5 enthalten mit auswählen könnte.
ZB. Druckanfang 01.02.2011 13:25 Uhr bis 02.02.2011 17:26
Könnte mir dazu bitte jemand wiederum weiterhelfen?
Gruß
Heinz
Option Explicit
Sub DatePrint()
Dim varStart As Variant, varEnd As Variant
Dim dStart As Double, dEnd As Double
Dim sStart As String, sEnd As String
sStart = InputBox("Start:", , "12.02.01")
If sStart = "" Then Exit Sub
sEnd = InputBox("Ende:", , "15.03.01")
If sEnd = "" Then Exit Sub
On Error Resume Next
dStart = CDbl(DateValue(sStart))
dEnd = CDbl(DateValue(sEnd))
If Err > 0 Then
Err.Clear
MsgBox "Ungültige Eingaben!"
Exit Sub
End If
If dEnd Anzeige