ich habe auf meinen Sheet einen Button der
meinen Druckbereich nach Eingaben in Spalte A
anpasst. Nun sollte aber noch der Zellbereich
A95:AL98 auch immer angezeigt werden. Hat jemand ein
Idee wie ich den Code änder muss ?
Gruß Detlef
Private Sub button_druckbereich_Click()
Dim z As Long
Dim RangeSource As Range
Dim first As Boolean
Set RangeSource = Worksheets("Aufnahme").Range("A11", "AN98")
Offset = 10
first = True
For z = 1 To 250 - 10 + 1
LVNr = RangeSource.Item(z, 1)
LVNrNeu = RangeSource.Item(z + 1, 1)
If first Then
LVNralt = LVNr
first = False
End If
If LVNr <> LVNrNeu Then
Else
If LVNr = "" Then
Exit For
End If
End If
LVNralt = LVNr
Next z
RangeSource.Select
Worksheets("Aufnahme").PageSetup.PrintArea = "$A$1" + ":$AN$" + Format$(z + Offset - 1)
End Sub