Excel VBA, wenn Zelle eine bestimme Farbe hat, dann soll in diese Zelle ein Text.?
Moin ich komm mal direkt zum Punkt.
Ich mach grade eine Zeiterfassung. Wenn an einem Tag Wochenende ist, dann werden Zellen Orange hinterlegt. Aber damit die Zellen nicht nur in Oranger Farbe vorhanden sind, soll auch gleichzeitig in eine Zelle "Wochenen." geschrieben werden, wenn der Fall eintritt, dass die Zelle Orange hinterlegt ist. Ich bin relativ neu in VBA und muss leider eure Hilfe in Anspruch nehmen :P
Hier noch ein Bild:
Dazu kommt, dass dieses Makro dauerhaft laufen muss. Man soll nicht immer auf einen Knopf drücken müssen, damit das geht. Hoffe, dass eine Automatisiserung überhaupt möglich ist :/
Im Grunde genommen soll dieses Makro dauerhaft den gelben Bereich überwachen und in jede Zelle "Wochenen." reinschreiben, sobald sie Orange wird. Wenn die Zelle dann wieder Weis ist, dann soll der Text wieder rausgelöscht werden.
1 Antwort
Warum so umständlich ?
- Die Formatierung - geht einfach über Bedingte Formatierung
- Text - geht über Wenn-Funktion ... wenn Sa/So, dann Text
... die Spalten B und C sind nur zur Erklärung da. Auf die kommt es nicht an und würde ich wieder lösten.
Formel eingeben und runterkopieren.
Ich finde die Lösung gut, und habe ein ähnliches Problem so gelöst:
Du kannst die Spaltenbreite der Spalte D mit den Formeln auf 0,1 stellen und eventuell die Formeln schützen. Wenn dann an einem Wochenendtag in Spalte E etwas eingetragen wird, sieht man das Wort "Wochenende" nicht mehr.
P.S. wenn du eine Hilfstabelle mit Feiertagen anlegst, kannst du in die Formel neben dem Wochenend-Hinweis auch Feiertage einarbeiten.
Und das mit der bedingten Formatierung habe ich ja schon. Wenn in der ersten Spalte Samstag oder SOntag steht, dann werden die ja schon bedingt orange formatiert. Es geht nur darum, dass auch der Text drin steht, ohne eine Formel in der Zelle zu haben, damit eben manuell ZEiten eingetragen werden können, falls es sich nicht um einen WOchenends Tag handelt.
Wenn Du Zeiten eingetragen hast, dann ist es ja unbedeutend, dass außer der Formel, die ja überschrieben wird, dann mal drinstand und überschrieben ist.
Mag sein. Du wirst sicher noch VBA - Vorschläge bekommen.
Sub Makro1()
'
' Makro1 Makro
'
If Range("K7").Interior.ThemeColor = xlThemeColorAccent2 Then
Range("K7").Value = "Wochenen."
Else
Range("K7").Value = ""
End If
End Sub
Hab selber was auf die Beine gestellt. Funktioniert auch aber muss nur noch die automatisierung hinbekommen. Trotzdem danke für deine Mühe ^^
Ja, aber in die Zellen darf keine Formel drin stehen :/ im gelben Bereich soll manuell eine ZEit eingetragen werden. Wenn da jetzt die Formle drin steht und ich z.b 8:00 reinschreibe, ist die Formel ja wieder weg
LG