Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung

Forumthread: Bedingte Formatierung

Bedingte Formatierung
walter
Guten Morgen zusammen,
ich möchte gern eine bedingte Formatierung in ein Spalte automatisch hinterlegen.
Die Spalte "H" angefangen ab Zeile 4, bis die letzte belegte Spalte in Spalte "G" erreicht wird.
mfg walter mb
Anzeige
AW: Bedingte Formatierung
31.05.2011 09:29:38
Ralf
Hallo Walter,
hier ein Ansatz, vielleicht kannst Du damit was anfangen:
Sub BedingteFormatierung()
Dim rng As Range, L As Long
' ActiveSheet.UsedRange.Rows.Count gibt die letzte benutze Zeile unabhängig von
' den Spalten zurück
L = ActiveSheet.UsedRange.Rows.Count
Set rng = Range("G4:H" & L)
With rng
' evtl vorhandene Bed. Formatierung löschen
.FormatConditions.Delete
' Bedingte Formatierung setzen
' (hier: wenn Zellwert ungleich 2 dann Schrift Fett und Füllfarbe Hellgrün)
.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="2"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
End With
.FormatConditions(1).Interior.ColorIndex = 35
End With
End Sub
Gruß
Ralf
Anzeige
AW: Bedingte Formatierung
31.05.2011 09:43:33
Ralf
Hallo Walter,
hier noch eine kleine Ergänzung:
>.Rows.Count.Columns("G:H").Rows.Count letzte benutzte Zeile in Spalte G und H auswählen.
Gruß
Ralf
Habe Teilerfolg
31.05.2011 10:09:30
walter
Hallo Ralf,
habe folgendes geändert:
Dim rng As Range, L As Long
' ActiveSheet.UsedRange.Rows.Count gibt die letzte benutze Zeile unabhängig von
' den Spalten zurück
L = ActiveSheet.UsedRange.Columns("H:H").Rows.Count
Set rng = Range("J4:J" & L)
With rng
' evtl vorhandene Bed. Formatierung löschen
.FormatConditions.Delete
' Bedingte Formatierung setzen
' (hier: wenn Zellwert ungleich 2 dann Schrift Fett und Füllfarbe Hellgrün)
.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="0"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
End With
.FormatConditions(1).Interior.ColorIndex = 35
End With
End Sub
jetzt wird die Zelle Grün, wenn ich eine Zahl reinschreibe und wenn ich lösche
wieder weiß.
Nur das Ende, in der Spalte "H" kann schon mal eine Leerzelle sein aber die belegte letzte
Zelle sollte es sein.
Geht das ?
Wenn ich noch eine Spalte hinzufügen möchte, geht leider so nicht:
Set rng = Range("J4:J" & "L4:L" & L)
mfg walter mb
Anzeige
AW: Habe Teilerfolg
31.05.2011 10:16:51
hary
Hallo Walter
Erste Problem weiter unten.
Zweite kann so geloest werden: 

Set rng = Union(Range("J4:J" & L), Range("K4:K" & L))

gruss hary
Hallo Ralf leider klappt es nicht
31.05.2011 09:51:53
walter
Hallo Ralf,
habe jetzt den Bereich geändert aber es klappt auch so nicht.
In den Zellen der Spalte "J" ab J4 bis zum Ende sollte eine bedingte Formatierung rein,
wenn größer als ß0 dann Hellgrün.
Das Ende der Formatierung sollte aus der letzt belegten Spalte "H" ermittelt werden.
mfg Walter mb
Anzeige
AW: Hallo Ralf leider klappt es nicht
31.05.2011 10:06:15
Ralf
Hallo Walter,
im Moment ist mir nicht klar, wos hängt bzw. was gemacht werden soll.
Vielleicht kannst Du die Excelmappe ja mal hochladen.
Gruß
Ralf
Beispiel...
31.05.2011 09:36:00
Marc
Range(Cells(i, "A"), Cells(i, ref_sp + 2)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$" & spaltenname & "" & i & "=WAHR"
Selection.FormatConditions(1).Interior.ColorIndex = 35
Gruß, Marc
Anzeige
Geht garnicht, leider
31.05.2011 09:56:33
walter
Hallo Marc,
klappt leider garnicht.
mfg walter
AW: Geht's vlt. so?
31.05.2011 10:09:37
hary
Hallo walter
teste mal. Code ausgeliehen. 

Dim rng As Range, L As Long
' ActiveSheet.UsedRange.Rows.Count gibt die letzte benutze Zeile unabhängig von
' den Spalten zurück
L = Cells(Rows.Count, 8).End(xlUp).Row
Set rng = Range("J4:J" & L)
With rng
' evtl vorhandene Bed. Formatierung löschen
.FormatConditions.Delete
' Bedingte Formatierung setzen
' (hier: wenn Zellwert ungleich 0 dann Schrift Fett und Füllfarbe Hellgrün)
.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="0"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
End With
.FormatConditions(1).Interior.ColorIndex = 35
End With

gruss hary
Anzeige
Hary ja aber anbei Muster
31.05.2011 10:24:24
walter
Hallo Hary,
soweit i.o. aber der Bereich in der Spalte zu lang, siehe Muster.
Und wie kann ich ggf. eine Spalte hinzufügen ?
https://www.herber.de/bbs/user/75099.xls
mfg walter mb
AW: Hary ja aber anbei Muster
31.05.2011 10:35:18
hary
Hallo Walter
Immer alles lesen ;-) Hatte in Zeile fuer L geaendert. 

Private Sub CommandButton1_Click()
Dim rng As Range, L As Long
L = Cells(Rows.Count, 8).End(xlUp).Row 'das hatte ich neu
Set rng = Union(Range("J4:J" & L), Range("L4:L" & L), Range("N4:N" & L)) 'mehrere Bereiche
With rng
' evtl vorhandene Bed. Formatierung löschen
.FormatConditions.Delete
' Bedingte Formatierung setzen
' (hier: wenn Zellwert ungleich 0 dann Schrift Fett und Füllfarbe Hellgrün)
.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="0"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
End With
.FormatConditions(1).Interior.ColorIndex = 35
End With
End Sub

gruss hary
Anzeige
Danke prima, -)
31.05.2011 10:40:59
walter
Hallo Hary,
danke so brauch ich es,
danke nochmals selbstverständlich auch an die anderen !!!
mfg walter mb
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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