Erst mal vorab an alle, die mir mit ihren Tips zur Seite stehen, ein großes Dankeschön
Mit meinem Problem "Druckbereich" bin ich schon etwas weitergekommen.
Folgende Formel möchte ich so ergänzen, daß wenn in Spalte s als Formelergebnis 1 steht, der Druckbereich bis zu dieser Zeile festgesetzt wird.
Sub druckbereich()
Dim ws As Worksheet
Dim lngbis As Long
Set ws = ActiveSheet
With ws
If Not .Range("b:b").Find("d", lookat:=xlWhole) Is Nothing Then
lngbis = .Range("b:b").Find("d", lookat:=xlWhole).Row
Else
MsgBox "Keine 5 gefunden!"
Exit Sub
End If
.PageSetup.PrintArea = "e5:p" & lngbis
End With
End Sub
Danke für Eure Mühe
Mfg
Heinrich