Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Sh.Name = "Daten" Then Exit Sub
If Intersect(Target, [d7:d1061]) Is Nothing And Intersect(Target, [ac7:ac1061]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Select Case Target(1, 1)
Case "Urlaub", "Feiertag", "Krank": Target.HorizontalAlignment = xlCenter
Case Else: Target.HorizontalAlignment = xlLeft
End Select
Application.EnableEvents = True
End Sub
auf das Tabellenblatt "Daten"
Urlaub = A13
Feiertag = B13
Krank = C13
referenzieren
MfG Thorsten