Hi Daniel.
Ein kleiner Denkanstoß von mir. ;)
Option Explicit
Sub Denkanstoss()
Dim rng As Excel.Range
'Bereich referenzieren:
Set rng = Worksheets("Ebene 1 Teil 1").Range("C59:JQ59")
' 'das ginge auch - ist nur unüblich:
' Set rng = Range("'Ebene 1 Teil 1'!C59:JQ59")
Debug.Print "Vorher:"
Debug.Print " * "; rng.Offset(0, -1).Cells(1).Address ' => $B$59
Debug.Print " * "; rng.Address ' => $C$59:$JQ$59
'Bereich eine Zeile tiefer rücken
Set rng = rng.Offset(1)
Debug.Print "Nachher:"
Debug.Print " * "; rng.Offset(0, -1).Cells(1).Address ' => $B$60
Debug.Print " * "; rng.Address ' => $C$60:$JQ$60
End Sub
Grüße
PS: Ausgabe von Debug.Print geht ins Direkt-Fenster, welches (einmalig) eingeblendet werden muss - VBA-Editor: Ansicht > Direktfenster (STRG+G).
|