wenn Zellwert wechselt, Aktion auslösen

[Theo]

Guten Morgen Helfer

Kann mir jemand für folgende Aufgabe einen VBA-Code schreiben, bitte.

Wenn in Zelle C2 der Wert geändert wird, dann
 in Zelle D2
 den Wert aus Zelle C1001 einlesen.

Erklärung: Die Zellen C1001 und folgende enthalten Werte für eine Dropdown-Liste und sind vom Wert der Zelle C2 abhängig.

Herzlichen Dank für Eure Hilfe

Gruss

Theo

Excel 2007 SP3

[Kuwer]

Hallo Theo,

folgender Code kommt in das schon vorhandene VBA-Modul der entsprechenden Tabelle:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$2" Then
   Range("D2").Value = Range("C1001").Value
 End If
End Sub

Gruß Uwe

[Theo]

Hallo Theo,

folgender Code kommt in das schon vorhandene VBA-Modul der entsprechenden Tabelle:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$2" Then
   Range("D2").Value = Range("C1001").Value
 End If
End Sub

Gruß Uwe

Hallo Uwe

herzlichen Dank.

Funktioniert tadellos und ist genau das, was ich brauche.

Gruss und einen schönen Tag wünsche ich Dir.

Theo