Ich möchte Formeln einer Spalte in eine andere Spalte einfügen.
Hat bis jetzt auch funktioniert. Jetzt mußte ich aber ein paar Spalten einfügen.
Teste schon Stundenlang umher, einmal funktioniert es, dann kommen die Werte wieder in falsche Spalten.
Könnte mir bitte jemand wieder Ordnung bei meiner Datei reinbringen?
If Not Intersect(Target, Range("C3:C99999")) Is Nothing Then
Target.Offset(, 1).Value = Target.Offset(, 23).Value
End If
'Formel von Spalte Y in Spalte I als Wert einfügen
If Not Intersect(Target, Range("C3:C99999")) Is Nothing Then
Target.Offset(, 1).Value = Target.Offset(, 21).Value
End If
'Formel von Spalte W in Spalte F als Wert einfügen
If Not Intersect(Target, Range("C3:C99999")) Is Nothing Then
Target.Offset(, 1).Value = Target.Offset(, 17).Value
End If
Gruß Heinz