VBA suchen und ersetzen
08.09.2016 16:36:51
Rene
leider wieder mal ein kleines Problem,
er führt alles aus, außer den letzten Abschnitt mit den Suchen und ersetzen, dies führt er nicht aus.
Anbei der Code :)
Sub Schaltfläche3_Klick()
Range("F2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(Tabelle_Abgleichsfunktionen.accde[@Material],[Bestandsübersicht_Rohdaten.xlsx] _
Bestandsübersicht_Rohdaten!C1:C4,4,0)"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F600")
Range("F2:F600").Select
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("F:F").Select
Selection.Replace What:="#NV", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Anzeige