habe einen Code, der eine variable Range ermittelt:
1. ab Zeile (wird über InputBox eingegeben)
2. rechte letzte Spalte die belegt ist
3. letzte Zeile belegt in Spalte B (soll wie die rechte letzte spalte ermittelt werden)
Hier mein Code, habe die Fragestellung dort noch ergänzt:
Sub Rangebestand()
' von Josef Ehrensberger
' variable Druckrange; ab Zeile gem. InputBox
Dim LoErste As Long ' erste Zeile zum drucken
Dim Spletzte As Integer ' letzte spalte zum drucken
Dim Zeletzte As Long ' letzte Zeile zum drucken
Dim i As Long
Dim tmp() As Variant
LoErste = InputBox("Ab welcher Zeile soll gedruckt werden?")
''''? variabel die tiefste Zeile, egal welche Spalte?
Zeletzte = [B65536].End(xlUp).Row
For i = LoErste To Zeletzte
ReDim Preserve tmp(i - LoErste)
tmp(i - LoErste) = Cells(i, 255).End(xlToLeft).Column
Next
Spletzte = Application.Max(tmp)
Range(Cells(LoErste, 1), Cells(Zeletzte, Spletzte)).Select ''Range auswählen
' With ActiveSheet
' .PageSetup.PrintArea = Range(Cells(LoErste, 1), _
' Cells(Zeletzte, Spletzte)).Address
' .PrintOut Copies:=1, Preview:=True
' End With
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com