Clever-Excel-Forum

Normale Version: wenn Zellwert wechselt, Aktion auslösen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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
(21.05.2015, 07:28)Kuwer schrieb: [ -> ]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