Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA: Rahmen entfernen

VBA: Rahmen entfernen
26.02.2020 14:16:46
Axel
Hallo zusammen,
dank dieses Formus habe ich ein Makro erhalten, einen bestimmten Bereich mit Rahmen zu versehen.
Beim Schließen der Datei will ich die Inhalte löschen lassen und dann auch die Rahmenformatierung aufheben.
Letzteres gedachte ich, mit dem folgenden Makro zu erledigen, was eine Abwandlung des o.g. Makros ist:
Option Explicit
Public Sub Rahmen_entfernen()
Dim enmBordersIndex As XlBordersIndex
With Range(Cells(12, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9))
Call .BorderAround(LineStyle:=xlLineStyleNone)
For enmBordersIndex = xlInsideVertical To xlInsideHorizontal
With .Borders(enmBordersIndex)
.LineStyle = xlLineStyleNone
End With
Next
End With
End Sub
Die Zwischenlinien werden auch entfernt, aber die BorderAround bleibt bestehen.
Offensichtlich kann man das so nicht machen.
Könnt ihr mir bitte helfen, wie es richtig codiert werden muss?
Vielen Dank im Voraus und beste Grüße
Axel
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Rahmen entfernen
26.02.2020 14:27:09
Rudi
Hallo,
Sub Rahmen_entfernen()
Range(Cells(12, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9)).Borders.LineStyle= -4142
End Sub
Gruß
Rudi
gelöst
26.02.2020 14:36:37
Axel
Mensch Rudi,
das liest sich so einfach und funktioniert einwandfrei.
Mich nervt, dass ich sowas nicht auch selbst kann. Ich arbeite dran...
Tausend Dank!
Axel
Anzeige
AW: VBA: mehr Formatierungsmöglichkeiten?
26.02.2020 14:42:40
Axel
Rudi, sag bitte mal, über
Range(Cells(12, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9))
identifiziere ich die beschriebene Range.
Mit .Borders.LineStyle= -4142 lösche ich die Rahmen.
Könnte ich auch einfach weitere Formatierungen durchführen lassen, z.B.
.ClearContents
.UnMerge
Oder müsste man das dann ganz anders schreiben?
Im Moment habe ich einfach einen großen Bereich gewählt, z.B.
Sheets("Tabelle1").Activate
Range("A12:I300").Select
Selection.ClearContents
Range("A12:I300").UnMerge
Danke nochmals und Gruß
Axel
Anzeige
AW: VBA: mehr Formatierungsmöglichkeiten?
26.02.2020 16:49:06
Rudi
Hallo,
klar geht das.
With Range(Cells(12, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9))
.Borders.LineStyle= -4142
.ClearContents
.UnMerge
End With
Gruß
Rudi
Mehr Formatierungsmöglichkeiten möglich
27.02.2020 08:39:13
Axel
Hi Rudi,
soooo einfach. Funktioniert einwandfrei.
Nochmals tausend Dank!!!
Beste Grüße
Axel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Rahmen in Excel mit VBA entfernen


Schritt-für-Schritt-Anleitung

Um Rahmen in Excel mit VBA zu entfernen, folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf „VBAProject (DeinWorkbookName)“ und wähle „Einfügen“ > „Modul“.
  3. Füge den Code ein:

    • Kopiere und füge den folgenden VBA-Code in das Modul ein:
    Sub Rahmen_entfernen()
       Range(Cells(12, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9)).Borders.LineStyle = -4142
    End Sub
  4. Führe das Makro aus:

    • Schließe den VBA-Editor und gehe zurück zu Excel.
    • Drücke ALT + F8, wähle Rahmen_entfernen und klicke auf „Ausführen“.

Dieser Code entfernt alle Rahmenlinien in dem angegebenen Bereich. Das -4142 steht für xlLineStyleNone, was bedeutet, dass keine Rahmenlinien angezeigt werden.


Häufige Fehler und Lösungen

  • Excel Rahmen lässt sich nicht entfernen:

    • Stelle sicher, dass du den richtigen Bereich in deinem Code angibst. Vergewissere dich, dass die Zellen tatsächlich Rahmen haben.
  • Doppelte Rahmenlinie Excel:

    • Wenn du doppelte Rahmenlinien hast, stelle sicher, dass du Borders.LineStyle für alle relevanten Ränder anwendest.
  • Der Code funktioniert nicht:

    • Überprüfe, ob du den Code korrekt eingefügt hast und ob du das richtige Excel-Dokument geöffnet hast.

Alternative Methoden

Neben dem VBA-Skript kannst du auch die folgenden Methoden verwenden, um Rahmen in Excel zu entfernen:

  1. Manuell über das Menü:

    • Markiere die Zellen, gehe zu „Start“ > „Rahmen“ und wähle „Keine Rahmen“.
  2. Verwendung von Excel-Funktionen:

    • Du kannst auch die Funktion Zellen formatieren verwenden, um die Rahmenlinien zu entfernen.

Praktische Beispiele

Hier sind einige praktische Beispiele zur Anwendung des VBA-Codes:

  • Alle Rahmenlinien entfernen:

    Sub Alle_Rahmen_entfernen()
       With Range("A1:I300")
           .Borders.LineStyle = -4142
       End With
    End Sub
  • Zusätzliche Formatierungen:

    Sub Rahmen_und_Inhalte_entfernen()
       With Range(Cells(12, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9))
           .Borders.LineStyle = -4142
           .ClearContents
           .UnMerge
       End With
    End Sub

Diese Beispiele zeigen, wie du nicht nur die Rahmen entfernen, sondern auch den Inhalt der Zellen löschen und Zellennfusionen aufheben kannst.


Tipps für Profis

  • Verwende With-Blöcke, um den Code effizienter und lesbarer zu gestalten.
  • Experimentiere mit Borders.LineStyle und anderen Borders-Eigenschaften, um verschiedene Rahmenstile auszuprobieren.
  • Nutze Application.ScreenUpdating = False zu Beginn deines Makros, um die Ausführungsgeschwindigkeit zu erhöhen, und setze es am Ende wieder auf True.

FAQ: Häufige Fragen

1. Wie kann ich Rahmen in Word entfernen?
Um Rahmen in Word zu entfernen, gehe zu „Format“ > „Rahmen und Schattierung“ und wähle „Keine“.

2. Was bedeutet .Borders.LineStyle = -4142?
Der Wert -4142 steht für xlLineStyleNone, was bedeutet, dass keine Linien angezeigt werden.

3. Kann ich mehrere Bereiche gleichzeitig formatieren?
Ja, du kannst mehrere Bereiche in einem With-Block angeben, um sie gleichzeitig zu formatieren.

Verwende diese Anleitungen und Tipps, um Rahmen in Excel effektiv zu entfernen und deine Tabellen aufzuräumen!

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