durch die Hilfe aus diesem Forum bin ich ein ganzes Stück weitergekommen.Dafür nochmal Danke.
Hier das SelectionChange:
'schriftfarbe nach Farbe Spalte bei Eingabe A
Dim z, s, tg, dat, co1
DoEvents
z = Target.Row
s = Target.Column
tg = Weekday(Cells(6, s))
If tg = 7 Or tg = 1 Then Exit Sub
If Cells(z, s) = "A" Then
co1 = Cells(z, 38).Interior.Color
Cells(z, s).Font.Color = co1
End If
Das klappt wunderbar.
Ich möchte das ganze jetzt über einen Button realisieren. Hintergrund ist der, dass nunmehr in der Spalte 38 (Spalte der Hintergrundfarben) zwischendurch Namen aus einem anderen TB übertragen werden. Und dann gibt es eine Fehlermeldung. Günstiger wäre es, wenn ich nach Eingabe der ganzen "A" im gesamten Anwesenheitsbereich über einen Button den Code aktivieren könnte. Für eine entsprechende Anpassung des Codes fehlen mir leider die notwendigen Kenntnisse.
Kann mir bitte jemand helfen.
Vielen Dank und liebe Grüße
Gisela