Wert in anderer Zelle schreiben

[dertommy]

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

[Werner.M]

Hallo,

sollte doch

Code:

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

sein.

Gruß Werner

[dertommy]

Danke sehr, funktioniert.