wie kann ich sagen,
dass in der letzten beschriebenen zeile von Splate A bis G alle Zellen andere unteren Seite an Rahmen haben sollen.
hat jemand hierzu eine Hilfe?
Sub prcRahmen_unten_A_G_Letzte()
Dim wks As Worksheet
Dim Zelle As Range
Set wks = ActiveSheet
With wks
Set Zelle = .Range("A:G").Find(What:="*", After:=.Range("A1"), LookIn:=xlFormulas, _
lookat:=xlWhole, Searchorder:=xlByRows, searchdirection:=xlPrevious)
With .Range(.Cells(Zelle.Row, 1), .Cells(Zelle.Row, 7))
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
'xlHairline 1 Haarlinie (dünnster Rahmen)
'xlMedium -4138 Mittel
'xlThick 4 Dick (breitester Rahmen)
'xlThin 2 Dünn
End With
End With
End With
End Sub
Um in Excel einen Rahmen in der letzten Zeile von Spalte A bis G hinzuzufügen, kannst du folgende Schritte befolgen:
Öffne Excel und lade die Datei, in der du die letzte Zeile formatieren möchtest.
Öffne den VBA-Editor mit ALT + F11
.
Füge ein neues Modul hinzu: Rechtsklick auf VBAProject (DeineDatei) > Einfügen > Modul
.
Kopiere und füge folgenden VBA-Code ein:
Sub prcRahmen_unten_A_G_Letzte()
Dim wks As Worksheet
Dim Zelle As Range
Set wks = ActiveSheet
With wks
Set Zelle = .Range("A:G").Find(What:="*", After:=.Range("A1"), LookIn:=xlFormulas, _
lookat:=xlWhole, Searchorder:=xlByRows, searchdirection:=xlPrevious)
With .Range(.Cells(Zelle.Row, 1), .Cells(Zelle.Row, 7))
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
End With
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus: Gehe zu Entwicklertools > Makros
, wähle prcRahmen_unten_A_G_Letzte
und klicke auf Ausführen
.
Die unterste Zeile in deinen Spalten A bis G sollte nun mit einem Rahmen versehen sein.
Fehler: "Objekt nicht gefunden"
Fehler: Rahmen wird nicht angezeigt
Eine weitere Methode, um die letzte Zeile in Excel zu formatieren, ist die Verwendung der bedingten Formatierung:
Markiere den Bereich A1 bis G99.
Gehe zu Start > Bedingte Formatierung > Neue Regel
.
Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden
und gib folgende Formel ein:
=ZEILE($A1)=MAX(($A$1:$G$99<>"")*ZEILE($A$1:$A$99))
Klicke auf Formatieren
, gehe zu Rahmen
und wähle die gewünschte Rahmenart.
Bestätige mit OK
.
Mit dieser Methode wird der Rahmen automatisch an die letzte Zeile mit Inhalt angepasst.
Wenn du die letzte Zeile mit Werten ermitteln möchtest, kannst du folgende Excel-Formel verwenden:
=VERGLEICH(2;1/(A:A<>"");1)
Diese Formel ermittelt, in welcher Zeile der letzte nicht-leere Eintrag in Spalte A steht. Um den Rahmen nur in der letzten Zeile mit Inhalt zu setzen, kombiniere diese Formel mit dem VBA-Makro.
.xlsm
(Makro-fähige Excel-Datei) zu speichern, um das Makro nicht zu verlieren.1. Wie kann ich die letzte Zeile mit Wert in Excel finden?
Du kannst die Funktion =VERGLEICH(2;1/(A:A<>"");1)
verwenden, um die letzte Zeile mit Inhalt zu ermitteln.
2. Kann ich einen doppelten Rahmen in der letzten Zeile setzen?
Ja, ändere die .LineStyle
-Eigenschaft im VBA-Code auf xlDouble
, um eine doppelte Rahmenlinie zu erhalten.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen