Rahmen per VBA setzen

Forumthread: Rahmen per VBA setzen

28.10.2005 10:39:40

Thomas

Hallo
Wie kann ich mit VBA z.B. den linken und rechten Rahmen einer Zelle einschalten?
Ich füge die Zellen mit Merge zusammen und möchte aber dann noch den Rand haben.
Der Code sieht an der Stelle so aus:
With objRng.Rows(-2)
.Merge
.HorizontalAlignment = xlCenter
.Value = CStr(Format(datMte, "mmmm"))
End With
Gruß Thomas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rahmen per VBA setzen

28.10.2005 16:10:09

Peter
AW: Rahmen per VBA setzen

01.11.2005 07:14:20

Thomas

AW: Rahmen per VBA setzen

28.10.2005 16:10:09

Peter

Hallo Thomas,
so sollte es gehen - in einer verbundenen Zelle nur linke und rechte Begrenzung als Rahmen
Das Forum lebt auch von den Rückmeldungen.

AW: Rahmen per VBA setzen

01.11.2005 07:14:20

Thomas

Einwandfrei!
Ich danke Dir.
Gruß Thomas

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um mit Excel VBA Rahmen um Zellen zu setzen, folge diesen Schritten:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem du im Projekt-Explorer mit der rechten Maustaste auf "VBAProject" klickst und "Modul einfügen" auswählst.

Kopiere den folgenden VBA-Code in das Modul:

Sub RahmenSetzen()
   Dim objRng As Range
   Set objRng = ThisWorkbook.Sheets("Tabelle1").Range("A1") ' Ändere den Bereich nach Bedarf

   With objRng
       .Borders(xlEdgeLeft).LineStyle = xlContinuous
       .Borders(xlEdgeRight).LineStyle = xlContinuous
       .Borders(xlEdgeTop).LineStyle = xlNone
       .Borders(xlEdgeBottom).LineStyle = xlNone
   End With
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf "Ausführen" klickst.

Mit diesen Schritten kannst du gezielt Rahmen um Zellen setzen, in diesem Beispiel nur den linken und rechten Rahmen.

Häufige Fehler und Lösungen

Fehler: Rahmen wird nicht angezeigt
Lösung: Stelle sicher, dass der Bereich, den du ausgewählt hast, korrekt ist. Überprüfe auch, ob die Zelle merged ist.
Fehler: Laufzeitfehler 1004
Lösung: Dieser Fehler tritt häufig auf, wenn du versuchst, ein Objekt zu verwenden, das nicht existiert. Überprüfe, ob die angegebene Tabelle und der Bereich korrekt sind.

Alternative Methoden

Eine andere Möglichkeit, Rahmen in Excel zu setzen, ist die Verwendung der Excel-Oberfläche:

Wähle die Zelle oder den Zellbereich aus.
Gehe zu "Start" in der Menüleiste.
Klicke auf das Symbol für "Rahmen" und wähle die gewünschten Rahmenlinien aus.

Diese Methode ist einfach, wenn du keine VBA-Kenntnisse hast.

Praktische Beispiele

Beispiel 1: Rahmen um eine gesamte Tabelle setzen

Sub AlleRahmenSetzen()
    Dim objRng As Range
    Set objRng = ThisWorkbook.Sheets("Tabelle1").Range("A1:D10")

    With objRng.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End Sub

Beispiel 2: Nur die untere Rahmenlinie setzen

Sub RahmenlinieUntenSetzen()
    Dim objRng As Range
    Set objRng = ThisWorkbook.Sheets("Tabelle1").Range("A1")

    With objRng.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
End Sub

Tipps für Profis

Nutze xlCenter für die horizontale Ausrichtung, wenn du Text innerhalb von Zellen zentrieren möchtest.
Experimentiere mit verschiedenen LineStyle-Werten, um unterschiedliche Rahmenarten zu erstellen.
Verwende vba alle rahmenlinien für komplexere Layouts, indem du mehrere Rahmenlinien gleichzeitig anwendest.

FAQ: Häufige Fragen

1. Wie kann ich alle Rahmenlinien um eine Zelle setzen?
Verwende die With objRng.Borders-Anweisung und setze die LineStyle für jede Kante auf xlContinuous.

2. Kann ich Rahmen mit Farben anpassen?
Ja, du kannst die Color-Eigenschaft der Rahmenlinien anpassen, indem du einen RGB-Wert vergibst, z.B. .Color = RGB(255, 0, 0) für rot.

Beliebteste Forumthreads (12 Monate)