Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten formatieren

Forumthread: Spalten formatieren

Spalten formatieren
15.04.2018 07:55:34
Hans
Guten Morgen
Ist es möglich alle Spalten, die die selbe Überschrift haben (z.B. "Uhrzeit) auf einmal zu formatieren.
LG
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten formatieren
15.04.2018 08:10:21
Hajo_Zi
Ja, markiere den Bereich. Rechte Maustaste, Zellenformatieren.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Spalten formatieren
15.04.2018 08:27:31
Hans
Danke dir,
ich dachte da eher an eine bedingte Formatierung oder ähnliches, das in einem Makro verwendbar ist.
Z.B. Wenn In Zeile 1 "Überschrift", dann formatieren wie gewünscht
LG
Anzeige
AW: Spalten formatieren
15.04.2018 10:37:40
Beverly
Hi,
zeichne mit dem Makrorekorder auf wie die Spalte formatiert werden soll. Laufe dann in einer Schleife über alle Spalten und wenn in Zeile 1 "Überschrift" steht, dann benutze den aufgezeichneten Code und passe dabei die Spalte an.

Anzeige
AW: Spalten formatieren
15.04.2018 18:42:32
Werner
Hallo Hans,
hier mal ein Makro als Beispiel. Überschriften in Zeile 1, entsprechende Spalte wird, hier nur als Beispiel, gelb gefärbt. 
Option Explicit
Public Sub Spalten_formatieren()
Dim loSpalte As Long, i As Long
With Worksheets("Tabelle1") 'Blattname anpassen
'Ermitteln der letzten belegten Spalte in Zeile 1
loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
'Schleife von Spalte 1 bis letzter blelegten Spalte
For i = 1 To loSpalte
'Wenn Eintrag "Überschrift" dann
If .Cells(1, i) = "Überschrift" Then
'ganze Spalte gelb färben
.Columns(i).Interior.Color = vbYellow
End If
'nächste Spalte
Next i
End With
End Sub
Gruß Werner
Anzeige
AW: Spalten formatieren
15.04.2018 11:59:19
onur
Bed. Formatierung Formel (wenn Überschrift auf Zeile 1 ist): 
=Z1S="Uhrzeit"

Vorher Excel-Einstellungen Formeln von A1 auf Z1S1 stellen.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige