möchte eine Druckrange automatisch ermitteln. Eine Codezeile kann ich nicht
richtig einstellen:
Sub aDruckrange3()
Dim LoErste As Long ' erste Zeile zum drucken
Dim Spletzte As Integer ' letzte spalte zum drucken
Dim Zeletzte As Integer ' letzte Zeile zum drucken
Dim i As Long
LoErste = 5
i = 1
Spletzte = Cells(i, 255).End(xlToLeft).Column
Zeletzte = [B65536].End(xlUp).Row
''##'' wie muss diese Zeile lauten?
' hier kommt Typen unverträglich; die Zeilen / Spalten würden stimmen
Cells(("A" & LoErste), 1)(Zeletzte, Spletzte).Select
Selection.PrintOut Copies:=1, Preview:=True
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
http://www.toolex.de