Excel Wechseln formel mit MAkro ersetzen

Computer: Software & Programmierung Visual Basic
1

Hallo,

mit dieser Formel klappt die Umsetzung, aber ergibt im nachhinein Probleme.
=WECHSELN(G1;"+";"")

Ich brauche nun ein Makro, welches mir diese Formel ersetzt. Da die Werte in Spalte G sich regelmäßig ändern, sollte es mit usedrange, immer nur die wirklich belegten Zellen kopieren.

Zielspalte soll Z sein

Ich hoffe Ihr habt eine gute Idee

mfg

2

Hallo Jo,

mit dieser Formel klappt die Umsetzung, aber ergibt im
nachhinein Probleme.
=WECHSELN(G1;"+";"")

welche Probleme?

Ich brauche nun ein Makro, welches mir diese Formel ersetzt.
Da die Werte in Spalte G sich regelmäßig ändern, sollte es mit
usedrange, immer nur die wirklich belegten Zellen kopieren.
Zielspalte soll Z sein

Vielleicht so:

Sub wechseln()
Dim Zei As Long
With Worksheets("Tabelle1")
 .Columns(26).ClearContents
 Zei = .Cells(Rows.Count, 7).End(xlUp).Row
 .Range("Z1:Z" & Zei).Formula = "=SUBSTITUTE(G1,""+"","""")"
 .Range("Z1:Z" & Zei).Value = .Range("Z1:Z" & Zei).Value
End With
End Sub

Gruß
Reinhard