VBA: Druckbereich anpassen
06.11.2017 14:42:10
Bernd
habe mir folgenden Code aus dem Web geladen.
Sub DatePrint()
Dim varStart As Variant, varEnd As Variant
Dim dStart As Double, dEnd As Double
Dim sStart As String, sEnd As String
Dim lRow As Long
Dim i As Long
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 Ich möchte die Spalten A bis J festlegen als Druckbereich und die erste Druckzeile ist Zeile 1 und die weiteren Druckzeilen sollten bestimmt werden durch Anfangs- und Enddatum gemäß Inputbox.
Wäre schön, wenn mir jemand helfen könnte.
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"
Anzeige