Script auf Zellen referenzieren

Bild

Betrifft: Script auf Zellen referenzieren
von: Thorsten
Geschrieben am: 24.02.2005 14:15:52
ich möchte folgendes Script:


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
Bild

Betrifft: AW: Script auf Zellen referenzieren
von: ChrisL
Geschrieben am: 27.02.2005 18:30:47
Hi Thorsten
Schuss ins Blaue...

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 Worksheets("Daten").Range("A13"), Worksheets("Daten").Range("B13"), Worksheets("Daten").Range("C13"): Target.HorizontalAlignment = xlCenter
    Case Else: Target.HorizontalAlignment = xlLeft
End Select
Application.EnableEvents = True
End Sub


Gruss
Chris
Bild

Betrifft: AW: Script auf Zellen referenzieren
von: Thorsten
Geschrieben am: 28.02.2005 11:15:06
Danke Chris
Bild

Betrifft: Danke für die Rückmeldung o.T.
von: ChrisL
Geschrieben am: 28.02.2005 11:41:19
.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Script auf Zellen referenzieren"