jede zweite Spalte formatieren

Forumthread: jede zweite Spalte formatieren

26.02.2020 14:49:54

Stefan

Hallo zusammen,
ich möchte gerne in meiner Excel-Datei jede zweite Spalte in einem bestimmten Zahlenformat formatieren.
Die Formatierung startet ab einer bestimmten Spalte und die Anzahl der beschriebenen Spalten und auch Zeilen variiert von Datei zu Datei.
Bis jetzt habe ich immer jede zweite Spalte ab Spalte R manuell markiert und dann formatiert.
Ich möchte das gerne mit einem Makro lösen.
Theoretisch muss ich die letzte beschriebene Spalte ermitteln und dann mit einer Schleife ab einer bestimmten Spalte die Formatierung bei jeder zweiten Spalte durchführen.
Über eine Hilfe wäre ich sehr dankbar
Gruß
Stefan

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: jede zweite Spalte formatieren

26.02.2020 15:05:06

Regina
AW: jede zweite Spalte formatieren

27.02.2020 08:36:58

Stefan

AW: jede zweite Spalte formatieren

26.02.2020 15:05:06

Regina

Hi Stefan,
könnte man so lösen:

Public Sub Spalte_formtatiern()
Dim lng_spalte As Long
Dim lng_letzte_spalte As Long
lng_letzte_spalte = Cells(1, Columns.Count).End(xlToLeft).Column
' Läuft von Spalte A (1) bis zur letzten Spalte in zweire Schritten
For lng_spalte = 1 To lng_letzte_spalte Step 2
Columns(lng_spalte).Font.Bold = True  ' Fett
Next
End Sub

Gruß Regina

AW: jede zweite Spalte formatieren

27.02.2020 08:36:58

Stefan

Hallo Regina,
vielen Dank für die schnelle Hilfe. Es funktioniert auf anhieb. Ich habe es in mein Makro eingebaut und mit meinem gewünschten Format angepasst

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel jede zweite Spalte zu formatieren, kannst Du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

Öffne Deine Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden Code in das Modul:

Public Sub Spalte_formatieren()
   Dim lng_spalte As Long
   Dim lng_letzte_spalte As Long
   lng_letzte_spalte = Cells(1, Columns.Count).End(xlToLeft).Column

   ' Läuft von Spalte R (18) bis zur letzten Spalte in zweire Schritten
   For lng_spalte = 18 To lng_letzte_spalte Step 2
       Columns(lng_spalte).Font.Bold = True  ' Fett
       ' Hier kannst Du auch eine Farbe setzen
       Columns(lng_spalte).Interior.Color = RGB(255, 255, 0) ' Gelb
   Next
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle Spalte_formatieren aus und klicke auf Ausführen.

Jetzt sind alle zweiten Spalten ab Spalte R in Deinem Excel-Dokument fett und farbig formatiert.

Häufige Fehler und Lösungen

Fehler: Das Makro funktioniert nicht.
- Lösung: Stelle sicher, dass Du das Makro in einer Datei speicherst, die Makros unterstützt (z.B. .xlsm).
Fehler: Die Formatierung wird nicht angewendet.
- Lösung: Überprüfe, ob die letzte beschriebene Spalte korrekt ermittelt wird. Möglicherweise sind die Daten nicht in der ersten Zeile vorhanden.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du jede zweite Spalte auch manuell formatieren:

Halte die Strg-Taste gedrückt und klicke auf jede zweite Spalte, um sie auszuwählen (z.B. B, D, F, ...).
Wende die gewünschte Formatierung an (z.B. Schriftart, Farbe).

Für eine automatisierte Lösung kannst Du auch bedingte Formatierung ausprobieren, um jede zweite Spalte farbig hervorzuheben.

Praktische Beispiele

Beispiel 1: Wenn Du jede zweite Spalte in einer Tabelle mit Verkaufszahlen hervorheben möchtest, kannst Du das oben genannte Makro anpassen, um spezifische Farben oder Schriftarten zu verwenden.
Beispiel 2: Um jede zweite Zeile in eine neue Spalte zu übertragen, kannst Du eine Kombination aus Formeln und VBA nutzen, um die gewünschte Datenstruktur zu erreichen.

Tipps für Profis

Nutze die Interior.Color-Eigenschaft im VBA, um die Hintergrundfarbe jeder zweiten Spalte individuell anzupassen.
Du kannst das Makro so erweitern, dass es die Summe jeder zweiten Spalte berechnet und in einer bestimmten Zelle ausgibt.

Cells(1, lng_letzte_spalte + 1).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(1, lng_letzte_spalte)))

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um andere Formatierungen anzuwenden?
Du kannst die Eigenschaften von Columns(lng_spalte) ändern, um verschiedene Formatierungen anzuwenden. Zum Beispiel kannst Du die Schriftart, Größe oder Farbe der Schrift ändern.

2. Kann ich das Makro in einer anderen Excel-Version verwenden?
Ja, das VBA-Makro sollte in den meisten Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 bis 2021 und Excel 365.

Beliebteste Forumthreads (12 Monate)