Das Archiv des Excel-Forums

Schleife bei Worksheet_Change

Bild

Betrifft: Schleife bei Worksheet_Change
von: Luftibus

Geschrieben am: 20.02.2008 13:18:27

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

Bild

Betrifft: AW: Schleife bei Worksheet_Change
von: Beverly
Geschrieben am: 20.02.2008 13:22:36
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





Bild

Betrifft: Genial - Herzlichen Dank !!! (owT)
von: Luftibus

Geschrieben am: 20.02.2008 13:31:45


 Bild

Excel-Beispiele zum Thema "Schleife bei Worksheet_Change"

In einer Schleife auf Elemente einer UserForm zugreifen download CheckBoxes in UserForms in eine Schleife einbinden download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download UserForm-Optionsfelder über eine Schleife zurücksetzen download