Schleife bei Worksheet_Change

Forumthread: Schleife bei Worksheet_Change
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Schleife bei Worksheet_Change

20.02.2008 14: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

Anwender

AW: Schleife bei Worksheet_Change

20.02.2008 14:22:36

Beverly
Genial - Herzlichen Dank !!! (owT)

20.02.2008 14:31:00

Luftibus

AW: Schleife bei Worksheet_Change

20.02.2008 14: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