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

Forumthread: jede zweite Spalte formatieren

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Jede zweite Spalte in Excel formatieren


Schritt-für-Schritt-Anleitung

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

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

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

  5. 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:

  1. Halte die Strg-Taste gedrückt und klicke auf jede zweite Spalte, um sie auszuwählen (z.B. B, D, F, ...).
  2. 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)

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