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

Forumthread: Format bis in letzte beschriebene Zeile übertragen

Format bis in letzte beschriebene Zeile übertragen
02.05.2018 10:08:24
Johannes
Hallo zusammen,
ich möchte gerne per VBA alle beschriebenen Zellen einer bestimmten Spalte (in diesem Falle Spalte E) mit einem Format ausstatten.
    Range("E2:E10000").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=20", Formula2:="=29"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=30", Formula2:="=41"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=41"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Bislang habe ich das immer mit "Range("E2:E10000").Select" gemacht, da Werte außerhalb der Zelle E100000 nicht vorkommen werden.
Freue mich auf Hilfe.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
2 Anm
02.05.2018 10:39:12
lupo1
1. bedF, nicht Fmt
2. falls Du ernsthaft meinst, dass leere Zellen nicht fmt wdn sollen: Excel bestraft dies mit extrem viel größeren Dateien. Daher besser so lassen mit E2:E100000 (oder E:E). Falls das bedF in E:E die Datei langsamer macht, als nur in E2:E100000, entsprechend auswählen.
AW: 2 Anm
02.05.2018 13:07:15
Johannes
Super, danke!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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