Kann mir jemand helfen?
Thanx
Willie
Sub WochenendeFormatieren()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Range("A4:L34")
If WeekDay(Zelle) = 1 Then
Zelle.Interior.ColorIndex = 5
ElseIf WeekDay(Zelle) = 7 Then
Zelle.Interior.ColorIndex = 6
End If
Next Zelle
End Sub
Gruß Klaus
Das Makro von dir ist super, nur ein Problem gibt es noch.
Da nicht jeder Monat mit dem Montag beginnt, sprich, es sind dann das erste mal nicht 7 Zeilen, sondern mal 2, mal 4 usw. bis zum Samstag.
Das Makro blendet von anfang an die 6te & 7te aus. Also nicht unbedingt die Wochenenden.
Wie kann man das lösen?
Vielen Dank für Deine Hilfe.
Gruss Alyssia
In der Variablen Anfangszeile muß die Zeilennummer des ersten Tages im Monat stehen. Wenn du z.B. eine Überschrift hast und der erste Tag steht somit eventuell in der zweiten Zeile,so muss die Variable Anfangszeile = 2 sein usw.
Gruß Klaus
habe mir gerade deinen Code angesehen.
Du verwendest "Const".
Sehe ich das richtig, dass der Sinn dessen, eine optimalere Speichernutzung des Rechners darstellt?
Oder steckt naoch etwas anderes dahinter?
Viele Grüße
Mike
Das meiner Meinung nach Wichtigste ist aber, das ein versehentliches Ändern der Konstanten im Gegensatz zu einer Variablen nicht möglich ist, was Fehler im Code reduziert.
Ansonsten kann eine Konstante ähnlich deklariert werden wie eine Variable, z.B. so:
Const Zahl As Integer = 5
Über die Speichernutzung kann ich nicht viel sagen, ich gehe aber davon aus, das diese ähnlich oder so gar gleich ist wie bei den Variablen, da Konstanten ja auch als Integer ,String usw. deklariert werden können.
Ich laß mich aber gerne eines Besseren belehren :-))
Gruß Klaus
meinen besten Dank.
Grüße
Mike