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

Forumthread: Auswahl Zelle A2 bis Tabellenende und Erweiterung bis Spalte C

Auswahl Zelle A2 bis Tabellenende und Erweiterung bis Spalte C
13.11.2019 11:02:38
Tobias
Hallo,
ich möchte per Makro die Zellen der Spalten A bis C ab Zeile 2 bis zur (automatisch zu ermittelnden letzten Zeile) auswählen und die Schrift grau einfärben.
Soweit habe ich mich vorgeschafft:
' in den Spalten A - C die Schrift grau färben
Range(Range("A2"), Range("A2").End(xlDown)).Select
Selection.Offset(0, 2).Select
With Selection
.Font.ColorIndex = 15
End With
Allerdings wird dann nur die Spalte C eingefärbt. Gibt es statt „Selection.Offset“ eine Art „Selection.Expand“?
Danke,
Tobias
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Auswahl Zelle A2 bis Tabellenende und Erweiterung bis Spalte C
13.11.2019 11:05:51
Werner
Hallo Tobias,
ein Einzeiler:
Public Sub Schriftfarbe()
Range("A2:C" & Cells(Rows.Count, "A").End(xlUp).Row).Font.ColorIndex = 15
End Sub
Gruß Werner
AW: Auswahl Zelle A2 bis Tabellenende und Erweiterung bis Spalte C
13.11.2019 11:30:41
Tobias
Hallo Werner, perfekt! Vielen Dank, Tobias
Gerne u. Danke für die Rückmeldung. o.w.T.
13.11.2019 11:48:38
Werner
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Auswahl der Zelle A2 bis Tabellenende und Erweiterung bis Spalte C


Schritt-für-Schritt-Anleitung

Um die Zellen von A2 bis zum Ende der Tabelle in den Spalten A bis C auszuwählen und die Schriftfarbe auf Grau zu setzen, kannst Du den folgenden VBA-Code verwenden:

Public Sub Schriftfarbe()
    Range("A2:C" & Cells(Rows.Count, "A").End(xlUp).Row).Font.ColorIndex = 15
End Sub
  1. Öffne Excel und gehe auf die Registerkarte "Entwicklertools".
  2. Klicke auf "Visual Basic" und füge ein neues Modul hinzu.
  3. Kopiere den obigen Code in das Modul.
  4. Schließe den VBA-Editor und führe das Makro aus.

Das Makro wird die Schrift in den Zellen von A2 bis C bis zum Ende der Spalte auf Grau einstellen.


Häufige Fehler und Lösungen

  • Problem: Nur die Spalte C wird eingefärbt.

    • Lösung: Stelle sicher, dass der VBA-Code korrekt ist und die Range "A2:C" & Cells(Rows.Count, "A").End(xlUp).Row richtig definiert ist, um alle Zellen bis zum Tabellenende zu erfassen.
  • Problem: Fehler beim Ausführen des Makros.

    • Lösung: Überprüfe, ob die Entwicklertools aktiviert sind und Du die richtigen Berechtigungen hast, um Makros auszuführen.

Alternative Methoden

Wenn Du keine Makros verwenden möchtest, kannst Du auch die Standardfunktion von Excel nutzen:

  1. Wähle die Zelle A2 aus.
  2. Halte die Umschalttaste gedrückt und drücke die Pfeiltaste nach unten, um bis zur letzten Zeile der Spalte A zu markieren.
  3. Halte die Umschalttaste weiterhin gedrückt und drücke die Pfeiltaste nach rechts, um die Spalten B und C zu markieren.
  4. Ändere die Schriftfarbe über die Formatierungsoptionen in der Symbolleiste.

Praktische Beispiele

Wenn Du beispielsweise die Zellen von A2 bis tabellenende in einem Arbeitsblatt mit Daten markieren möchtest, kannst Du den VBA-Code verwenden, um diesen Vorgang zu automatisieren. Hier ist ein Beispiel, das auch die Zelle B2 bis zum Ende der Tabelle umfasst:

Public Sub SchriftfarbeErweitern()
    Range("A2:C" & Cells(Rows.Count, "A").End(xlUp).Row).Font.ColorIndex = 15
End Sub

Führe diesen Code aus, um die Schriftfarbe in den Zellen A2 bis C bis zum Ende der Tabelle zu ändern.


Tipps für Profis

  • Nutze die Funktion End(xlDown) in Kombination mit .Select, um die Zellen interaktiv auszuwählen. Achte darauf, dass Du immer die richtige Startzelle angibst.
  • Arbeite mit benannten Bereichen, um die Wartung Deiner Formeln zu erleichtern.
  • Verwende den Shortcut Strg + Shift + ↓, um schnell bis zum Ende der Daten in einer Spalte zu markieren.

FAQ: Häufige Fragen

1. Wie kann ich die Zellen A2 bis C bis zum Ende der Tabelle ohne Makros formatieren? Du kannst die Zellen manuell auswählen und dann im Menüband die Schriftfarbe ändern.

2. Was mache ich, wenn ich mehr als drei Spalten markieren möchte? Ersetze im VBA-Code "A2:C" durch die gewünschten Spalten, z.B. "A2:E" für fünf Spalten.

3. Gibt es eine Möglichkeit, die Schriftfarbe für mehrere Bereiche gleichzeitig zu ändern? Ja, Du kannst mehrere Ranges in einer Zeile definieren: Range("A2:C" & ... , "E2:G" & ...).Font.ColorIndex = 15.

4. Wie finde ich das Ende der Tabelle, wenn ich mit leeren Zellen arbeite? Nutze Cells(Rows.Count, "A").End(xlUp) in Deinem Code, um die letzte nicht-leere Zelle in der Spalte A zu finden.

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