Sub SetRange ()
Dim Lc&(1), rng as range
flc lc,Activesheet
set rng=Range("E1:H" & lc(0))
End sub
Function fLC(ByRef lc&(), tSh As Worksheet)
Dim C%, R&, E1&, E2%, TV&, TV2&
E1 = Rows.Count
E2 = Columns.Count
With tSh
TV2 = .Cells(1, E2).End(xlToLeft).Column
For C = 1 To E2
TV = .Cells(E1, C).End(xlUp).Row
If TV > lc(0) Then lc(0) = TV
If TV <> 1 And C > TV2 Then lc(1) = C
Next
If lc(1) = 0 Then lc(1) = TV2
End With
End Function
Genau so sollte es daann laufen..