Kann mir jemand mit einer Lösung weiterhelfen?
Ich suche folgenden einen Makrobefehl:
Gehe zu letzte Zelle mit Inhalt und Rahmen in Spalte I.
Allerbesten Dank für eure Hilfe.
Beste Grüße von Karsten
Sub t()
Dim rng As Range, myrange As Range, rngGen As Range
Set myrange = Range("I1")
With Sheets("Tabelle1") 'anpassen
Set rngGen = Range("I1:I" & .Cells(.Rows.Count, 9).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
End Sub
Sub t()
Dim rng As Range, myrange As Range, rngGen As Range
Set myrange = Range("I1")
With Sheets("Tabelle1") 'anpassen
Set rngGen = Range("I1:I" & .Cells(.Rows.Count, 9).End(xlUp).Row)
End With
For Each rng In rngGen
If rng.Borders.LineStyle <> xlLineStyleNone Then
If rng.Row > myrange.Row Then
If rng <> "" Then Set myrange = rng
End If
End If
Next
Application.Goto myrange, 0
End Sub