Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Druken

Druken
02.03.2005 12:18:55
Erich
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken
02.03.2005 16:49:18
Erich
Hallo..
Frage hat sich erledigt.
Lösung gefunden.
Gruss Erich
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige