ich bastle gerade an einer Stundenabrechnung. In der Tabelle gibt es den Tag, den Wochentag, Von-/Bis-Zeit und die Stunden. Das funktioniert alles bestens, wenn ich ganz oben in einem Feld den Monat und das Jahr eingebe, steht bei jedem Tag automatisch der Wochentag.
Nun möchte ich das alles noch verfeinern, in dem Sa + So automatisch rot eingefärbt werden und die Zellen schattiert werden. Mit VBA ist das sicherlich möglich, doch wie?
Kann mir jemand einen Tipp geben?
Der nächste Schritt wäre dann noch die Feiertage einzutragen …
Ich habe auch schon an einem Makro gebastelt,
das wie folgt aussieht:
Sub faerben()
Application.ScreenUpdating = False
For loop1 = 5 To 35
If „B+string(loop1)“ = „Sa“ Then
Range(„A+string(loop1):E+string(loop1+1)“).Select
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
Next loop1
Application.ScreenUpdating = True
End Sub
Der Loop wird zwar durchgearbeitet, aber nie steht in einer Zelle der Wert „Sa“ drinnen. Funktioniert das mit „B+string(loop1)“?
Lg
Lisa
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi,
warum denn VBA, geht doch auch mit „bedingter Formatierung“.
Gruß.Timo
ich bastle gerade an einer Stundenabrechnung. In der Tabelle
gibt es den Tag, den Wochentag, Von-/Bis-Zeit und die Stunden.
Das funktioniert alles bestens, wenn ich ganz oben in einem
Feld den Monat und das Jahr eingebe, steht bei jedem Tag
automatisch der Wochentag.
Nun möchte ich das alles noch verfeinern, in dem Sa + So
automatisch rot eingefärbt werden und die Zellen schattiert
werden. Mit VBA ist das sicherlich möglich, doch wie?
Kann mir jemand einen Tipp geben?
Der nächste Schritt wäre dann noch die Feiertage einzutragen
…
Liebe Grüße
Lisa
Ich habe auch schon an einem Makro gebastelt,
das wie folgt aussieht:
Sub faerben()
Application.ScreenUpdating = False
For loop1 = 5 To 35
If „B+string(loop1)“ = „Sa“ Then
Range(„A+string(loop1):E+string(loop1+1)“).Select
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
Next loop1
Application.ScreenUpdating = True
End Sub
Der Loop wird zwar durchgearbeitet, aber nie steht in einer
Zelle der Wert „Sa“ drinnen. Funktioniert das mit
„B+string(loop1)“?
Einfach die Zellen, in denen die Wochentage stehen markieren und dann
Unter Format --> bedingte Formatierung folgendes Auswählen:
„Zellwert ist“ - „gleich“ - „Samstag“
Nun nur noch auf „Format“ klicken und unter dem Registerreiter „Muster“ eine Zellfarbe auswählen.
Über den Button „Hinzufügen“ kann die Prozedur nun für den Sonntag wiederholt werden. Bei Bedarf kann dann sogar eine andere Farbe ausgewählt werden.