Bedingte Formatierung

Sub zelleeinfaerben() Dim spalte1 As Range ' Spalte A Dim spalte2 As Range ' Spalte G Dim bereich As Range Set bereich = Range("A1:G25") ' Bereich anpassen For Each spalte1 In bereich Select Case spalte1.Value Case Is <> "" spalte1.Interior.ColorIndex = 6 End Select Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo RPP63
Die Tabelle wird jedesmal mit einem Makro gelöscht und anschließend mit völlig neuen Daten gefüllt.
Da wäre es am einfachsten, dass die bedingte Formatierung auch das Makro übernimmt. Hinzu kommt, dass die Tabelle per Makro Schreibgeschützt ist dass keiner etwas verändern kann.
Das ganze läuft dann so ab:
Es werden Datensätze in Access mit Abfragen ausgewertet. Ergebnisse werden in besagte Tabelle geschpeichert. Neue Datensätze bekommen automatisch eine Kennzeichnung in einer extra Spalte. Und genau auf dieser Kennzeichnung soll zur besseren Übersicht die komplette Zeile bzw. der Datensatz eingefärbt werden. Anschließend wird die Tabelle mit Schreibschutz versehen. Läuft alles per Makro ab und deswegen mit VBA.
Gruß SAMS

Option Explicit Sub so() Dim rng For Each rng In Range("A1:G25") 'anpassen If rng.Value <> "" Then Cells(rng.Row, 1).Resize(, 7).Interior.ColorIndex = 8 Next End Sub Sub oder_so() Dim x As Long For x = 1 To 25 If Application.WorksheetFunction.CountA(Range("A" & x & ":G" & x)) > 0 Then Range("A" & x & ":G" & x).Interior.ColorIndex = 6 End If Next End Sub

Hallo Matthias,
danke für Deine Lösung, war genau das was ich gesucht habe. Funktioniert echt super!!!!
Muss aber noch was Fragen, bezieht sich auf das selbe Thema.
Ich habe eine Tabelle mit 2 Spalten. Spalte A und Spalte B
Spalte A ist immer gefüllt und in Spalte B steht nur manchmal was drinnen.
jetzt möchte ich dass alle Datensätze bei denen in Spalte B nix drinnen steht farblich markieren.
wenn ich jetzt sage suche mir alle die in Spalte B leer sind und markiere diese dann markiert er mir die ganze Arbeitsmappe mit Ausnahme der Datensätze bei denen in Spalte B was steht.
Habe dank Dir eine schnelle Lösung gefunden, ist aber nicht so optimal.

Sub Test()
Dim rng1
Dim rng2
For Each rng1 In Range("A1:A200") 'anpassen
If rng1.Value <> "" Then Cells(rng1.Row, 1).Resize(, 9).Interior.ColorIndex = 3
Next
For Each rng2 In Range("B1:B200") 'anpassen
If rng2.Value <> "" Then Cells(rng2.Row, 1).Resize(, 9).Interior.ColorIndex = 0
Next
End Sub

So funktioniert es, ist aber etwas doof da ich erst alle Datensätze in einem Festen Bereich markiere um dann wieder einige umzufärben.
Man müsste die Spalte A bis zum letzten Datensatz durchlaufen und dann nur die Datensätze markieren, die in Spalte B leer sind.
Hast Du, oder jemand anders vielleicht noch eine bessere Lösung für mich??
Gruß SAMS

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread