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
Das Kopieren funktioniert einwandfrei. Das Suchen und ersetzen ignoriert er aber völlig...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
HILFE!!!LG
Marc