Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Script auf Zellen referenzieren

Script auf Zellen referenzieren
24.02.2005 14:15:52
Thorsten
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Script auf Zellen referenzieren
ChrisL
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
Anzeige
AW: Script auf Zellen referenzieren
28.02.2005 11:15:06
Thorsten
Danke Chris
Danke für die Rückmeldung o.T.
ChrisL
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige