Erstellen einer Autoform durch Text

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo.
Nachfolgend der Code. Alle Sa, So oder Feiertage sollen in rot eingetragen werden, alles andere in schwarz!


Do
ActiveSheet.Cells(startzeile, startspalte) = Aktualdat
'Makro trägt das Datum, die Schichten und die Wochentage ein
If WeekDay(Aktualdat) = 1 Then
Schichten = 4
Tag = "SO"
ElseIf WeekDay(Aktualdat) = 7 Then
Schichten = 4
Tag = "SA"
ElseIf Aktualdat = CLng(CDate("25.12." & Jahreszahl)) Then 'Feiertag
Schichten = 4
Tag = "SO"
ElseIf Aktualdat = CLng(CDate("26.12." & Jahreszahl)) Then 'Feiertag
Schichten = 4
Tag = "SO"
ElseIf Aktualdat = CLng(CDate("01.01." & Jahreszahl)) Then 'Feiertag
Schichten = 4
Tag = "SO"
ElseIf Aktualdat = CLng(CDate("01.05." & Jahreszahl)) Then 'Feiertag
Schichten = 4
Tag = "SO"
ElseIf Aktualdat = CLng(CDate("03.10." & Jahreszahl)) Then 'Feiertag
Schichten = 4
Tag = "SO"
ElseIf Aktualdat = Karfreitag Then 'Feiertag
Schichten = 4
Tag = "SO"
ElseIf Aktualdat = Ostermontag Then 'Feiertag
Schichten = 4
Tag = "SO"
ElseIf Aktualdat = Himmelfahrt Then 'Feiertag
Schichten = 4
Tag = "SO"
ElseIf Aktualdat = Pfingstmontag Then 'Feiertag
Schichten = 4
Tag = "SO"
Else
Schichten = 3
Tag = "WT"
End If
'Eintragen der Schichten und Wochentage
For i = 0 To Schichten - 1
ActiveSheet.Cells(startzeile + i, startspalte) = Aktualdat
ActiveSheet.Cells(startzeile + i, startspalte + 1) = i + 1
ActiveSheet.Cells(startzeile + i, startspalte + 30) = Tag
Next i
startzeile = startzeile + Schichten
Aktualdat = Aktualdat + 1
Loop Until Day(Aktualdat) = 1

Zu der 1. Frage: das ist natürlich schlecht! Die Klammern müssten schon eine definierte Größe haben und das geht wohl nicht mit Windings!
Danke schonmal und Gruß

Hallo Christoph,
dein Code ist wohl leider immer noch nicht vollständig, so daß ich ihn nicht in einer Testmappe verwenden konnte. Ich bin auch nicht der große VBA-Experte und kann nicht alles nachvollziehen.
Ich würde das Problem allerdings eher per bedingter Formatierung lösen. Folgende Formel würde da greifen:
=NICHT(ODER(WOCHENTAG(A1;2)>5;ISTNV(VERGLEICH(A1;Feiertage;0))))
wobei A1 in dem Fall durch die erste Zelle des entsprechenden Bereichs ersetzt werden müsste. 'Feiertage' ist ein definierter Name, der auf einen Bereich in der Mappe verweist, der eine Liste aller Feiertag im Datumsformat ist.
Falls du die bed. Formatierung per VBA definieren willst, ginge das so:


With Range(...)
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=NICHT(ODER(WOCHENTAG(D5;2)>5;ISTNV(VERGLEICH(D5;Feiertage;0))))"
.FormatConditions(1).Interior.ColorIndex = 3
End With

Gruß
David

Beliebteste Forumthreads (12 Monate)

Erstellen einer Autoform durch Text

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread