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"