Makro aufzeichnen Text und Ausfüllen

[Nihoe]

Hallo Zusammen,

leider bin ich über die Suchfunktion nicht fündig geworden und ich probiere bereits den ganzen Vormittag alles mögliche aus und komme nicht weiter. Da hab ich mir gedacht ich frag einfach mal direkt:

Ich möchte eine Anwesenheitsliste erstellen, in der ich ein oder mehrere Felder markiere und dann den entsprechenden Eintrag mit Urlaub, Krank, Schule usw. vornehme indem ich ein Feld anklicke dem ich ein
entsprechendes Makro zugewiesen habe.

Urlaub ist z.B. rot ausgefüllt mit einem weißen U

Das Makro habe ich entsprechend aufgezeichnet, und dem Feld zugewiesen. Jetzt habe ich zwei Probleme:

1. Wenn ich Urlaub zuweise springt der Cursor immer auf J9
2. Wenn ich mehrere Zellen markiere wird das U nur in das erste Feld geschrieben und die restlichen Zellen lediglich rot hinterlegt.

Egal in welcher Reihenfolge ich das Makro aufzeichne.

Ich möchte insgesamt 6 Felder zuweisen und verzweifel bereits bei dem ersten, vielleicht könnt Ihr mir helfen.

Vielen Dank schonmal

Gruß Nicole Hölscher

[Crazy Tom]

Hallo

Code:

Sub Urlaub()
   With Selection.Interior
       .Pattern = xlSolid
       .PatternColorIndex = xlAutomatic
       .Color = 255
       .TintAndShade = 0
       .PatternTintAndShade = 0
   End With
   Selection.Value = "U"
End Sub

MfG Tom

[Nihoe]

Super, dankeschön!!!
Ein schönes Wochenende!

Gruß Nicole