Herbers Excel-Forum - das Archiv

Druken

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Druken
von: Erich

Geschrieben am: 02.03.2005 12:18:55
Hallo....
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
Bild

Betrifft: AW: Drucken
von: Erich
Geschrieben am: 02.03.2005 16:49:18
Hallo..
Frage hat sich erledigt.
Lösung gefunden.
Gruss Erich
 Bild