Microsoft Excel

Herbers Excel/VBA-Archiv

Schleife bei Worksheet_Change

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

  

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





GrußformelBeverly's Excel - Inn


  

Betrifft: Genial - Herzlichen Dank !!! (owT) von: Luftibus
Geschrieben am: 20.02.2008 13:31:45




 

Beiträge aus den Excel-Beispielen zum Thema "Schleife bei Worksheet_Change"