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

Forumthread: Letzte Zeile mit Rahmen unten

Letzte Zeile mit Rahmen unten
13.07.2016 16:28:05
jens
Hallo
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?

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile mit Rahmen unten
13.07.2016 19:20:55
fcs
Hallo Jens,
als Makro sieht es wie folgt aus.
Das Makro solltets du dann in deine persönliche Makroarbeitsmappe einfügen, dann hast du es jederzeit zur Verfügung.
Gruß
Franz
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

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Rahmen in der letzten Zeile in Excel hinzufügen


Schritt-für-Schritt-Anleitung

Um in Excel einen Rahmen in der letzten Zeile von Spalte A bis G hinzuzufügen, kannst du folgende Schritte befolgen:

  1. Öffne Excel und lade die Datei, in der du die letzte Zeile formatieren möchtest.

  2. Öffne den VBA-Editor mit ALT + F11.

  3. Füge ein neues Modul hinzu: Rechtsklick auf VBAProject (DeineDatei) > Einfügen > Modul.

  4. 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
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. 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.


Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden"

    • Lösung: Stelle sicher, dass du die richtigen Spalten angibst und die Daten in den Spalten A bis G vorhanden sind.
  • Fehler: Rahmen wird nicht angezeigt

    • Lösung: Überprüfe die Zellformatierung. Manchmal kann die Zellfarbe den Rahmen unsichtbar machen.

Alternative Methoden

Eine weitere Methode, um die letzte Zeile in Excel zu formatieren, ist die Verwendung der bedingten Formatierung:

  1. Markiere den Bereich A1 bis G99.

  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.

  3. 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))
  4. Klicke auf Formatieren, gehe zu Rahmen und wähle die gewünschte Rahmenart.

  5. Bestätige mit OK.

Mit dieser Methode wird der Rahmen automatisch an die letzte Zeile mit Inhalt angepasst.


Praktische Beispiele

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.


Tipps für Profis

  • Makros speichern: Vergiss nicht, deine Datei als .xlsm (Makro-fähige Excel-Datei) zu speichern, um das Makro nicht zu verlieren.
  • Isolierte Tests: Teste das Makro zunächst in einer Kopie deiner Datei, um ungewollte Änderungen zu vermeiden.
  • Bedingte Formatierungen kombinieren: Nutze sowohl das Makro als auch die bedingte Formatierung für mehr Flexibilität in der Darstellung.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige