Nach Datum Druckbereich einstellen
11.09.2004 15:25:26
Harald
habe heute am Vormittag geposte[Makro wird langsamer]
habe versucht dieses Problem zu lösen, ist mir jedoch nicht gelungen.
nach einigen Stunden Suche im Herberforum hab ich einenSourcecode gefunden, der excellent für doese Aufgabe ist.
der Haken jedoch daran ist,das der Druckbereich zwar bis zum angegebenen Enddatum eingestellt wird, ich habe aber Mehrere gleiche Enddatums, die zwar sortiert sind. Aber der Code nimmt mir in diesem Fall nur das 1. Enddatum und die anderen nicht.
Weis wer Rat
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:")
If sStart = "" Then Exit Sub
sEnd = InputBox("Ende:")
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
varStart = Application.Match(dStart, Columns(5), 0)
varEnd = Application.Match(dEnd, Columns(5), 0)
ActiveSheet.PageSetup.PrintArea = _
Range(Cells(varStart, 5), Cells(varEnd, 50)).Address 'hier hänge ICH
ActiveSheet.PrintPreview
End Sub