Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Gehe zu letzte Zelle mit Inhalt und Rahmen in Spal

Gehe zu letzte Zelle mit Inhalt und Rahmen in Spal
06.11.2005 17:18:53
M.
Hallo,
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gehe zu letzte Zelle mit Inhalt und Rahmen in
06.11.2005 17:44:58
Peter
Servus Karsten,
geht sicher auch einfacher, aber das müsste es auch tun.
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

MfG Peter
Anzeige
AW: Gehe zu letzte Zelle mit Inhalt und Rahmen in
06.11.2005 18:08:12
M.
Hallo Peter,
Danke dir. Hab es probiert, aber irgend etwas funktioniert nicht.
Es kommt die Fehlermeldung:
Die BorderAround-Eigenschaft des Range-Objektes kan nicht zugeordnet werden.
bei:
If rng.BorderAround = True Then
Weiß aber nicht, was ich machen soll.
Beste Grüße von Karsten
Anzeige
AW: Gehe zu letzte Zelle mit Inhalt und Rahmen in
06.11.2005 18:20:06
Peter
Servus,
ich kann den Fehler nicht nachbauen. Lad mal ein Bsp. hoch.
MfG Peter
AW: Gehe zu letzte Zelle mit Inhalt und Rahmen in
06.11.2005 18:35:48
M.
Habe die Mappe gesclossen und nochmal geöffnet - jetzt funktionierts.
Allerdings bräuchte ich nicht nur die letzte Zahl, sondern die letzte Zahl im Rahmen.
Ob so etwas überhaupt geht?
Beste Grüße von Karsten
Anzeige
AW: Gehe zu letzte Zelle mit Inhalt und Rahmen in
06.11.2005 22:08:39
Peter
Servus,
geht schon, habs nur falsch angefangen. Versuchs so.


      
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 


MfG Peter
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige