Office: Farben ändern

Huhu :)

brauch wieder etwas.

Und zwar will ich das in VBA:

IF Zelle A2:A32 = Montag, Dienstag, Mittwoch, Donnerstag oder Freitag dann Zelle A2&B2&C2&D2&E2&F2&G2&H2&I2&J2&K2 ColorIndex = 42
Bzw wenn in A3 Montag, Dienstag... steht dann soll halt
A3&B3&C3&D3&E3....K3 ColorIndex = 42
Else
nichts ^^

IF Zelle A2:A32 = Samstag, Sonntag A2&B2&C2&D2&E2&F2&G2&H2&I2&J2&K2 ColorIndex = 16
Bzw wenn in A3 Montag, Dienstag... steht dann soll halt
A3&B3&C3&D3&E3....K3 ColorIndex = 16


das mit Samstag Sonntag muss man machen, weil die Monate ja unterschiedlich viele Tage haben ^^

Wär cool wenn ihr das hinbekommen würdet :) google nebenbei noch ein bisschen mehr.. langsam kapier ich dank euch ja auch was .. vllt bekomm ichs hin..

 

es stehen also die Wochentage Montag bis Freitag einschl.dem Wort oder in jeder Zelle und falls es 30 mal vorkommt sollen die Zelle mit Coloroibdex 42 gefärbt werden? Habe ich die Aufgabe so richtig verstanden?

 

Hi,

weshalb verwendest du nicht die bedingte Formatierung statt VBA?

Bis später,
Karin

 

Also es ist wie folgt:

in Zelle A1 - A32 (bzw A31 oder A29 im Februar^^)
steht:
A1 Montag
A2 Dienstag
A3 Mittwoch
A4 Donnerstag
A5 Freitag
A6 Samstag
A7 Sonntag
...

die Zeilen in denen Montag - Freitag steht sollen durch einen Knopfdruck mit einem VBA Button im Bereich Spalte A bis Spalte K mit Colorindex 42 gefärbt werden.

Die Zeilen in denen Samstag und Sonntag steht sollen durch den gleichen Knopfdruck im Bereich Spalte A bis Spalte K mit Colorindex 16 gefärbt werden.


Warum?

Man Kann sich die Zellen selbst färben für Regelarbeitszeit, Urlaub usw.. Das dann alles wieder nach einem Jahr selbst von Hand umzufärben ist nervig. Deshalb soll das mit einem Knopfdruck automatisch geschehen :)

Hoff es ist jetzt verständlich :)

 

warum benutzt Du nich die bedingte Formatierung und eine Zelle 0=keine Anzeige, 1 Anzeige
Formel ist =Und(a1=1;Wochentag(a2;2)<6)

 

Die Sache ist so:
Wenn ich die Bedingte Formatierung verwende kann ich denen Zeilen in den Bereichen A-K ja keine andere Farbe mehr zuweisen. Das will ich zulassen.

Bei dem Projekt handelt es sich immernoch um diese Arbeitszeitnachweisliste.. Dort soll man farblich markieren können wann man arbeitet (Kalendertag), wann man Urlaub hat usw...
nach einem Jahr soll man dann die Farben wieder zurücksetzen können. Mit einem Knopfdruck.
Da sich aber jedes Jahr die Wochentage verschieben kann man auch keine alte Vorlage nehmen

hoffe mein Vorhaben ist jetzt verständlich fornuliert^^

 

Habs :)

Code:

Private Sub Farben()
For u 1 to 32
If Cells(i, 1).Value = "Montag" Then
Range("A" & i & ":F" & i).interior.colorindex = 42
End If 
Next i

End Sub

jetzt muss ich nur noch Montag, Dienstag, ... in den Value reinbekommen - wie geht denn das?

Wenn ich das hab müsste ich den rest auch hinbekommen :)

 

Code:

Option Explicit

Private Sub Farben()
    For u = 1 To 32
        If Weekday(Cells(i, 1), 2) < 6 Then
            Range("A" & i & ":F" & i).Interior.ColorIndex = 42
        End If
    Next i
End Sub

 

geht leider nicht

Laufzeitfehler '13':

Typen unverträglich

(den Fehler mit der Variablen hab ich schon berichtigt)

 

Keine Idee mehr?

 

ich bin davon ausgegangen das in der Zelle ein Datum steht Formatiert TTTT

 

Aso - ne der Tag steht als Text drinnen

Ja wenns als TTTT drinnen steht gehts - aber sollte als Text drinnen stehen.

Wie macht man es dann?

 

warum? Ich mache das immer =zellle wo das Datum steht und Format TTTT, dann ändert es sich gleich fals ich das Datum ändere. Bei Text bedeutet es 1xIf und 4x ElseIf

 

lad schnell ein ss hoch.. sonst redet man nur aneinander vorbei..

so sieht das alles aus:

in Ax trägt man von Hand den Tag ein und in Bx trägt man dann den Monatstag ein - find ich am besten von der Übersicht her



Dein Code funktionier super wenn man es mit dem Datum macht - aber ich brauchs halt für den Text wenn das möglich ist :)

 

If Cells(i, 1) = "Montag" or Cells(i, 1) = "Dienstag" or Cells(i, 1) = "Mittwoch" ... then