Clever-Excel-Forum

Normale Version: Wert in anderer Zelle schreiben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo!

Ich habe folgenden Code:

Code:
If Target.Offset(0, 20) > Target.Offset(0, -7) Then
           Dim intText2 As Integer
           Set WsShell2 = CreateObject("WScript.Shell")
           intText2 = WsShell2.Popup("Der Rang bei """ & Target.Offset(0, -6) & """ hat sich von " & Target.Offset(0, 20) & " (" & Target.Offset(0, 21) & " %) auf " & Target.Offset(0, -7) & " (" & Target.Offset(0, -2) & " %) verbessert.", 3)

       Else
Nun möchte ich, dass er mir vor dem "Else" den Wert von "Target.Offset(0, -2)" in "Target.Offset(0, 21)" schreibt. Leider bekomme ich es nicht hin.
Ich hoffe, dass mir jemand helfen kann.

LG
Hallo,

sollte doch

Code:
Target.Offset(0, 21).Value = Target.Offset(0, -2).Value
sein.

Gruß Werner
Danke sehr, funktioniert.