HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife bei Worksheet_Change

Schleife bei Worksheet_Change
20.02.2008 13:18:27
Luftibus
Hallo Forum
ändere ich den Wert inZelle D4, wird mit unten stehendem Code in der Zelle E4 der Text "Hier neu auswählen" ausgegeben.
Wer kann mir sagen, wie die Schleife aussehen muss, wenn ich den gleichen Mechanismus in den Zellen D4:E18 anwenden möchte (Bsp. Änderung in D7, Textausgabe in E7 / Änderung in D12, Textausgabe in E12 / etc.)?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$D$4" Then
Range("$E$4").FormulaR1C1 = "Hier neu auswählen!"
End If
End Sub


Herzlichen Dank für eure Unterstützung!
Gruss Luftibus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Schleife bei Worksheet_Change
20.02.2008 13:22:36
Beverly
Hi,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D4:D18")) Is Nothing Then
Target.Offset(0, 1) = "Hier neu auswählen!"
End If
End Sub



Genial - Herzlichen Dank !!! (owT)
20.02.2008 13:31:00
Luftibus

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!