Hallo...
für einen anderen Makro hat mir dankenswerter Weise mal jemand folgenden Befehl geschrieben:
Dim zrng As Range, myrange As Range, rngGen As Range
Set myrange = Range("d1")
With ActiveSheet 'anpassen
Set rngGen = Range("d1:d" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
For Each rng In rngGen
If rng.BorderAround = True Then
If rng.Row > myrange.Row Then
If rng <> "" Then Set myrange = rng
End If
End If
Next
Application.Goto myrange, 0
für meine jetzigen Zwecke hätte ich den Befehl aber so abgeändert, dass sich das "Ende" überhaupt nicht nach irgendeiner letzten Zelle mit Inhalt in einer bestimmten Spalte richtet, sondern einfach bis zum Schluß weiterläuft.
Vielen dank für eure Hilfe.
MfG
Karsten