Feiertage ausrechnen und Datumsangaben markieren.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Voraussetzung ist erstmal, daß du deine Texte in der Spalte B in Zahlen/Datum umwandelst.
Dazu bietet sich z.B. diese Vorgehensweise an:
- Spalte B markieren
- Daten/Text in Spalten/Feste Breite/Weiter - im Schritt 3: 1.Spalte als Zahl, 2. Spalte NICHT im importieren
Dann Spalte B Zahlenformat TTT* TT.MM.JJJJ zuweisen
Die Einfärbung funktioniert mittels bedingter Formatierung.
Voraussetzung: Namen definieren:
1) Name: Feiertage_ National:
=INDIREKT("Feiertagsvorlage!$A$3:$A$"&ANZAHL2(Feiertagsvorlage!$A:$A))
2) Name: Feiertage_ Regional:
=INDIREKT("Feiertagsvorlage!$b$3:$b$"&ANZAHL2(Feiertagsvorlage!$B:$B))
Nun kannst du deiner Spalte B die Bedingungen zuweisen:
Spalte B markieren - Format - Bedingte Formatierung
1)=WOCHENTAG(B1;2)=7
2)=NICHT(ISTFEHLER(VERGLEICH(B1;Feiertage_National;0)))
3)=NICHT(ISTFEHLER(VERGLEICH(B1;Feiertage_Regional;0)))
Dabei jeweils die Schriftfarbe zuweisen.
1) rot 2) rot 3) grün
Die bedingungen werden nacheinander abgearbeitet. D.h. ein regionaler Feiertag, der entweder Sonntag oder nationeler Feiertag ist wird rot markiert. Wenn du da was anderes willst, solltest du die Reihenfolge der Bedingungen anpassen.
Viel Erfolg!
/Galenzo

Hallo Picasso
Nach dem Import der Daten folgenden Code starten.


Sub TESTEN()
Columns("B:B").NumberFormat = "ddd* dd/mm/yyyy"
For i = 1 To Range("B65536").End(xlUp).Row
If Len(Cells(i, 2)) > 10 Then
Cells(i, 18).FormulaR1C1 = "=LEFT(RC[-16],FIND("" "",RC[-16])-1)*1"
Cells(i, 2) = Cells(i, 18)
Cells(i, 18) = ""
End If
Next i
Range(Cells(3, 2), Cells(Range("B65536").End(xlUp).Row, 2)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=WOCHENTAG(B3;2)>5"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ODER(ZÄHLENWENN(NATIONAL;B3)>0;ZÄHLENWENN(REGIONAL;B3)>0)"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(2).Interior.ColorIndex = 4
[A1].Select
End Sub

Teste es im Anhang
https://www.herber.de/bbs/user/34858.xls
Gruss Werner

Beliebteste Forumthreads (12 Monate)

Feiertage ausrechnen und Datumsangaben markieren.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Feiertage ausrechnen und Datumsangaben markieren.

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread