Hallo Fedjo,
was meinst du mit
[quote]das sich der Druckbereich anpasst nach den längen der Einträge
in Spalte A oder F?[/quote]
Meinst du damit, dass der Druckbereich an die längste Spalte angepasst wird?
Dann würde ich das so machen:
[code]Private Sub CommandButton1_Click()
Dim lngLetzte As Long
'Prüfen, ob in Spalte A oder in Spalte F die größte Zeilennummer steht
If ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row > ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row Then
lngLetzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Else
lngLetzte = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & lngLetzte
ActiveSheet.PrintOut
End Sub[/code]
Gruß
M.O.