Habe gerade ein Grundlagenkurs in VBA gemacht und versuche mich mit meinem ersten Projekt...ein Schichtplan. Es ist für euch sicherlich ein Klacks, ich kämpfe allerdings schon seit Stunden an dieser Prozedur:
Ich möchte einfach nur den erzeugten Zellentyp in weitere 3 bzw. 4 Tage inkl. Formatierung kopieren, d.h. Montag ist Schicht "T" und diese wird automatisch beim Setzen auch auf Di+Mi+Do gesetzt, also insgesamt in 4 horizontale Zellen.
Public
Sub Tagschicht()
ActiveCell.FormulaR1C1 = "T"
ActiveCell.Interior.ColorIndex = 40
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
End With
End Sub