Hallo Exceler
Ich würde gern Zellen eine andere Farbe geben
in Abhängigkeit des Wochentages?
Ich lasse mit das aktuelle Datum als"heute " ausgeben und habe die Zelle
mit TTT formatiert
Die Ausgabe ist zBsp. Do so sollen die Zellen C1:B20 Gelb werden.
Gibt es eine Lösung ohne VBA
MfG
Berd
Hallo Bernd,
Ich würde gern Zellen eine andere Farbe geben
in Abhängigkeit des Wochentages?
Ich lasse mit das aktuelle Datum als"heute " ausgeben und habe
die Zelle
mit TTT formatiert
Die Ausgabe ist zBsp. Do so sollen die Zellen C1:B20 Gelb
werden.
Gibt es eine Lösung ohne VBA
ja, es gibt mindestens eine Lösung
zum Beispiel:
A1: =heute()
B1 markieren, ->Format, Bedingte Formatierung
„Formel ist“ =Wochentag($A$1;2)=4
Farbe wählen
OK
mit dem Pinsel das Format auf die anderen Zellen des Bereichs B1:C20 übertragen
wenn du die korrekte Funktion prüfen willst durch Ändern des Systemdatums mußt du nach Ändern des Systemdatums durch Taste „F9“ das NeuBerechnen anstoßen (du kannst auch statt dessen die Datei schließen und wieder öffnen
Gruß
Marion
Danke Marion
Leider ist das nicht die Lösung
Bedingte Formatierung ist nur mit drei Möglickeiten begrenzt
( Habe ich auch schon in meiner Anwendung )
Herzlichen Dank
Bernd
Leider ist das nicht die Lösung
Bedingte Formatierung ist nur mit drei Möglickeiten begrenzt
( Habe ich auch schon in meiner Anwendung )
Hi Bernd,
und nun? Ohne Vba geht es halt nicht, mit Vba willste nicht.
Gruß
Reinhard
Reinhard Danke
aber ich kann kein VBA
bernd
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
aber ich kann kein VBA
Hi Bernd,
Alt+F11, links Dopelklick auf „DieseArbeitsmappe“, Code reinkopieren.
Dann stelle den Curser beliebig in den Code des Makros „Farbe“ und drücke F5. Es wurde damit ein tabellenblatt erstellt wo die zelllen in A farbig sind, jede Zeilennummer entspricht der jeweiligen Farbzahl.
Suche dir 7 passende Farbwerte aus und ersetze dadurch die 7 Werte in:
Farbe = Array(34, 35, 36, 7, 3, 4, 2)
Die erste Zahl steht für Montag usw.
Danach kannst du das Makro Farbe löschen und das Extrablatt.
Ansonsten läuft der Code automatisch beim Dateiöffnen ab und fätbt B1:C20 je nachdem welcher Wochentag aktuell in A1 steht.
Option Explicit
Option Base 1
'
Private Sub Workbook\_Open()
Dim Farbe
Farbe = Array(34, 35, 36, 7, 3, 4, 2)
Range("A1").NumberFormat = "ddd"
Range("A1").Value = Now
Range("B1:C20").Interior.ColorIndex = Weekday(Range("A1"), vbMonday)
End Sub
'
Sub Farbe()
Dim N
Worksheets.Add after:=Worksheets(Worksheets.Count)
For N = 1 To 56
Cells(N, 1).Interior.ColorIndex = N
Next N
End Sub
Gruß
Reinhard
Danke Reinhard
muss ich am Wochenende probieren
Bernd
aber ich kann kein VBA
Hi Bernd,
Alt+F11, links Dopelklick auf „DieseArbeitsmappe“, Code
reinkopieren.
Dann stelle den Curser beliebig in den Code des Makros „Farbe“
und drücke F5. Es wurde damit ein tabellenblatt erstellt wo
die zelllen in A farbig sind, jede Zeilennummer entspricht der
jeweiligen Farbzahl.Suche dir 7 passende Farbwerte aus und ersetze dadurch die 7
Werte in:
Farbe = Array(34, 35, 36, 7, 3, 4, 2)
Die erste Zahl steht für Montag usw.Danach kannst du das Makro Farbe löschen und das Extrablatt.
Ansonsten läuft der Code automatisch beim Dateiöffnen ab und
fätbt B1:C20 je nachdem welcher Wochentag aktuell in A1 steht.Option Explicit
Option Base 1
’
Private Sub Workbook_Open()
Dim Farbe
Farbe = Array(34, 35, 36, 7, 3, 4, 2)
Range(„A1“).NumberFormat = „ddd“
Range(„A1“).Value = Now
Range(„B1:C20“).Interior.ColorIndex = Weekday(Range(„A1“),
vbMonday)
End Sub
’
Sub Farbe()
Dim N
Worksheets.Add after:=Worksheets(Worksheets.Count)
For N = 1 To 56
Cells(N, 1).Interior.ColorIndex = N
Next N
End SubGruß
Reinhard