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

Formatierung incl. Rahmen per VBA kopieren

Forumthread: Formatierung incl. Rahmen per VBA kopieren

Formatierung incl. Rahmen per VBA kopieren
09.04.2015 13:52:08
flotschuk
Hallo liebe Forengemeinde,
ich habe kein kleines Problem beim einfügen einer neuen Zeile. Und zwar soll die Formatierung der Zeile darüber übernommen werden, dies funktioniert auch soweit. Allerdings wird nicht die Rahmenformatierung mit übernommen. Wie bekomme ich das noch hin?
Sub Zeile_einfügen_2()
' Zeile_einfügen_2 Makro
Sheets("Tabelle1").Range("Bereich2").EntireRow.Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Vielen Dank im Voraus
Gruß Flo

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung incl. Rahmen per VBA kopieren
09.04.2015 17:13:34
Klexy
Weil du sie natürlich erst kopieren musst, bevor du sie einfügen kannst. So schiebst du sie einfach nur runter.
Sub Zeile_einfügen_3()
Sheets("Tabelle1").Range("Bereich2").EntireRow.Copy
Sheets("Tabelle1").Range("Bereich2").EntireRow.Insert Shift:=xlDown, CopyOrigin:= _
xlFormatFromLeftOrAbove
End Sub

Anzeige
AW: Formatierung incl. Rahmen per VBA kopieren
09.04.2015 17:18:16
Klexy
Sorry, hab noch was vergessen
Sub Zeile_einfügen_3()
Sheets("Tabelle1").Range("Bereich2").EntireRow.Copy
Sheets("Tabelle1").Range("Bereich2").EntireRow.Insert Shift:=xlDown, CopyOrigin:= _
xlFormatFromLeftOrAbove
Sheets("Tabelle1").Range("Bereich2").Offset(-1).EntireRow.ClearContents
End Sub

Anzeige
AW: Formatierung incl. Rahmen per VBA kopieren
14.04.2015 15:46:59
flotschuk
Hey Klexy,
vielen Dank für die Hilfe!
Jetzt klappts einwandfrei!
Gruß
Flo
;
Anzeige
Anzeige

Infobox / Tutorial

Formatierung und Rahmen in Excel per VBA kopieren


Schritt-für-Schritt-Anleitung

Um die Formatierung einer Zeile inklusive der Rahmenlinien in Excel mit VBA zu kopieren, kannst Du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und dann auf Modul.
  3. Code zum Einfügen einer neuen Zeile:

    • Verwende den folgenden VBA-Code, um eine neue Zeile einzufügen und die Formatierung inklusive der Rahmenlinien zu übernehmen:
    Sub Zeile_einfügen_3()
       Sheets("Tabelle1").Range("Bereich2").EntireRow.Copy
       Sheets("Tabelle1").Range("Bereich2").EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
       Sheets("Tabelle1").Range("Bereich2").Offset(-1).EntireRow.ClearContents
    End Sub
  4. Anpassen des Bereichs:

    • Ersetze Bereich2 durch den tatsächlichen Bereich, den Du verwenden möchtest.
  5. Ausführen des Makros:

    • Drücke F5 oder gehe auf Run > Run Sub/UserForm, um das Makro auszuführen.

Häufige Fehler und Lösungen

  • Rahmenlinien werden nicht übernommen:

    • Stelle sicher, dass Du den CopyOrigin-Parameter auf xlFormatFromLeftOrAbove gesetzt hast. Dies sollte sicherstellen, dass die Rahmenlinien übernommen werden.
  • Makro funktioniert nicht:

    • Überprüfe, ob Du das richtige Arbeitsblatt (Tabelle1) angegeben hast und ob der angegebene Bereich korrekt ist.

Alternative Methoden

Falls Du die Rahmenlinien manuell ändern möchtest, kannst Du dies auch über die Excel-Oberfläche tun:

  1. Wähle die Zellen aus, deren Rahmenlinien Du ändern möchtest.
  2. Gehe zu Start > Rahmen in der Menüleiste.
  3. Wähle die gewünschten Rahmenlinien und Farben aus.

Diese Methode ist nützlich, wenn Du keine VBA-Kenntnisse hast oder eine schnelle Änderung vornehmen möchtest.


Praktische Beispiele

Hier ist ein praktisches Beispiel, wie Du mit VBA eine Zeile einfügen und die Formatierung inkl. der Rahmenlinien kopieren kannst:

Sub Beispiel()
    Sheets("Tabelle1").Range("A2").EntireRow.Copy
    Sheets("Tabelle1").Range("A2").EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Tabelle1").Range("A2").Offset(-1).EntireRow.ClearContents
End Sub

In diesem Beispiel wird eine neue Zeile in Tabelle1 über der Zeile 2 eingefügt und die Formatierung sowie die Rahmenlinien werden übernommen.


Tipps für Profis

  • Dokumentation nutzen:

    • Nutze die Excel VBA Dokumentation, um mehr über die verschiedenen Parameter und Optionen zu erfahren, die Du in Deinen Makros verwenden kannst.
  • Fehlerbehandlung:

    • Implementiere Fehlerbehandlungsroutinen in Deinen Makros, um unerwartete Fehler zu vermeiden.
  • VBA-Editor anpassen:

    • Du kannst den VBA-Editor anpassen, um die Arbeit mit Code zu erleichtern, indem Du Farben und Schriftarten änderst, die Dir helfen, den Überblick zu behalten.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe der Rahmenlinien ändern?
Du kannst die Farbe der Rahmenlinien in Excel durch die Auswahl der Zellen und das Klicken auf Start > Rahmen > Rahmenlinien formatieren ändern.

2. Kann ich andere Formatierungen ebenfalls übernehmen?
Ja, die Methode xlFormatFromLeftOrAbove übernimmt auch andere Formatierungen, wie Schriftart- und Hintergrundfarbe, zusammen mit den Rahmenlinien.

3. Funktioniert das auch in PowerPoint?
In PowerPoint kannst Du Tabellen verwenden, aber die VBA-Befehle sind unterschiedlich. Du musst die spezifischen PowerPoint-Objekte verwenden, um die Tabellenformatierung zu ändern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige