Suchen und ersetzen klappt nicht...
26.03.2020 09:10:44
Marc
ich habe ein Makro aufgezeichnet, was etwas hemdsärmlig Daten kopiert, als Werte einfügt und dann #WERT! durch leer ersetzen soll:
Sub Makro4()
Columns("EN:EQ").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Wenn ich das manuell mache, dann klappt es....
Gibt es da noch einen Trick?
Ich habe es auch versucht über eine IF Abfrage zu lösen, da bekomme ich aber eine Typenunverträglichkeit:
Sub versuch ()
If Sheets("CSV_Rohdaten").Range("EN2").Value = "#WERT!" Then
Sheets("CSV_Rohdaten").Range("EN2").Value = ""
End If
End Sub
LG
Marc
Anzeige