Range("A1:P16")
so nutzen, damit ich die Spalten und Zeilen als Variable besetzen kann?
Sub aaa()
Dim Zeile1 As Long, Zeile2 As Long
Dim Spalte1 As Integer, Spalte2 As Integer
Zeile1 = 1: Spalte1 = 1: Zeile2 = 16: Spalte2 = 16
MsgBox Range(Cells(Zeile1, Spalte1), Cells(Zeile2, Spalte2)).Address
End Sub
Sub tt()
Dim Z1, Zn, S1, Sn
S1 = 1 ' SpalteA
Z1 = 1 'Zeile 1
Sn = 16 ' SpalteP
Z1 = 16 'Zeile 16
MsgBox Range(Cells(Z1, S1), Cells(Zn, Sn))
End Sub