Druken
02.03.2005 12:18:55
Erich
Wie muss ich diesen Code ändern.
Er sucht den bestimmten Zeitraum raus aber zeigt mir nur
die Spalte A an. Er soll aber in dem Bereich das gesamte Tabellenblatt
drucken. Ich hoffe es versteht jemand
Sub DatePrint()
Dim varStart As Variant, varEnd As Variant
Dim dStart As Double, dEnd As Double
Dim sStart As String, sEnd As String
Dim msg As Range
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 < dStart Then
Beep
MsgBox "Das Enddatum darf nicht kleiner " & _
"als das Startdatum sein!"
End If
msg.Activate
varStart = Application.Match(dStart, Columns(1), 3)
varEnd = Application.Match(dEnd, Columns(1), 3)
ActiveSheet.PageSetup.PrintArea = _
Range(Cells(varStart, 1), Cells(varEnd, 1)).Address
ActiveSheet.PrintPreview
End Sub
Vorab schon mal vielen Dank
Gruss Erich