Column 10 = (Offset(-1, 10).Value

Question

Hallo Excelfreunde,
wie kann ich zum Code:
If Target.Column = 9 And Cells(Target.Row, Target.Column) = "0" Then Cells(Target.Row, Target.Column) = "VL"
noch hinzufügen, das in Spalte 10 der darüber eingetragene Inhalt eingefügt wird. Column 10 (Offset(-1, 10).Value

Gruß
fedjo

Answer 1

Hallo

ich vermute du beziehst dich auf ein Worksheet_Change Makro

ungetestet:

If Target.Column = 9 And Target.value = "0" Then
Target.value = "VL"
Target.offset(0, 1).value = Target.offset(-1, 1).value
end if

Gruß Mr. K.

Answer 2

Hallo Mr. K.,
Danke für die schnelle Antwort.
Ja, ich beziehe mich auf "Worksheet_Change Makro".

Es funktioniert einfach Super.

DANKE

Gruß
fedjo