Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Feiertage in Datenbereich farbig markieren

Feiertage in Datenbereich farbig markieren
07.06.2024 14:00:47
Andreas Vaitl
Hallo liebe Excel-Pros,

sollte eigentlich nicht so schwer sein, aber ich komm nicht drauf das via VBA zu lösen.

Hier die Beispieldatei:
https://www.herber.de/bbs/user/169906.xlsx

In Spalte F stehen einige Feiertage, welche im Datenbereich, Spalten A-C gefunden und markiert werden sollen.

Wer hat eine Idee, vermutlich über eine Schleife?

Vielen Dank vorab und viele Grüße
Andreas

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feiertage in Datenbereich farbig markieren
07.06.2024 14:06:06
SF
Hola,
und warum machst du das nicht über die bedingte Formatierung?
Gruß,
steve1da
AW: Feiertage in Datenbereich farbig markieren
07.06.2024 14:11:15
Andreas Vaitl
Hallo Steve,
VBA wäre mir lieber, dann könnte ich 1 Knöpfchen drücken und der Fall wäre erledigt. :-)
VG, Andreas
AW: Feiertage in Datenbereich farbig markieren
07.06.2024 14:29:04
daniel
wenn du die Bedingte Formatierung einmal eingerichtet hast, musst du eigentlich gar nichts mehr drücken.
dann geht die Färbung automatisch.
in VBA müsstest du dir ja erstmal was programmieren und ggf noch VBA lernen.
auch wenn wir dir hier vielleicht den Code schreiben können, ein gewisses Grundwissen brauchst du, um das ganze auch korrekt anwenden und ggf pflegen zu können.
Gruß Daniel
Anzeige
AW: Feiertage in Datenbereich farbig markieren
07.06.2024 14:29:48
Onur
"dann könnte ich 1 Knöpfchen drücken und der Fall wäre erledigt." ? Noch einfacher als "GAR NIX tun und der Fall ist erledigt" ?

https://www.herber.de/bbs/user/169907.xlsx
AW: Feiertage in Datenbereich farbig markieren
07.06.2024 14:59:38
Andreas Vaitl
Sehr freundlich!!! Ich wollte auch nicht "nichts tun" weil es so einfach ist sondern dachte das bekommt einer von Euch im Handumdrehen hin, weil ihr einfach mehr Übung habt als ich Gelegenheitsprogrammierer, der das alle paar Wochen mal machen muss....

Damit ich zum Allgemeinwohl trotzdem beitragen kann, unten der entsprechende Quellcode welcher funktioniert.

Gruss, Andreas

Sub FeiertageMarkieren()

Dim lngZeileMax As Long
Dim rngBereich As Range
Dim rngZelle As Range
Dim rngTreffer As Range


With Tabelle1

lngZeileMax = .UsedRange.Rows.Count
Set rngBereich = .Range("A4:C" & lngZeileMax)
rngBereich.Interior.ColorIndex = xlColorIndexNone

For Each rngZelle In rngBereich

Set rngTreffer = .Range("F:F").Find _
(what:=rngZelle.Value, lookat:=xlWhole)

If Not rngTreffer Is Nothing Then
rngZelle.Interior.ColorIndex = 4
End If

Next rngZelle

End With

End Sub
Anzeige
AW: Feiertage in Datenbereich farbig markieren
07.06.2024 15:09:10
Onur
Du hast das falsch verstanden! Sei nicht so agressiv ! Hast du dir denn meine gepostete Datei überhaupt angeschaut ????
Da brauchst du nämlich NIX zu tun! Noch einfacher geht es wohl nicht.
Aber anscheinend weisst du nicht, was eine "bedingte Formatierung" ist und dachtest, DU müsstest die Zellen bedingt formatieren - aber 1x anlegen und EXCEL macht das AUTOMATISCH !
Noch einfacher geht es wohl nicht - oder ?
Anzeige
AW: Feiertage in Datenbereich farbig markieren
07.06.2024 15:30:22
Andreas Vaitl
Hallo Onur,

bitte entschuldige, mein Fehler, jetzt hab ich´s gesehen, das über bedingte Formatierung ist wirklich sehr schön.

Dann sind wir ja alle happy jetzt, haben einen VBA Code und eine bedingte Formatierung, alles bestens.

Schönes WE und vielen Dank nochmals für den Support,
Andreas
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige