Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA suchen und ersetzen
08.09.2016 16:36:51
Rene
Hallo zusammen,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA suchen und ersetzen
08.09.2016 16:52:51
UweD
Hallo
versuch mal die englische Schreibweise..
nicht "#NV" sondern "#N/A"
LG UweD
AW: VBA suchen und ersetzen
08.09.2016 17:01:25
UweD
Unabhängig davon kannst du den Code optimieren.
ungetestet.
    Range("F2").FormulaR1C1 = _
"=VLOOKUP(Tabelle_Abgleichsfunktionen.accde[@Material],[Bestandsübersicht_Rohdaten.xlsx] _
Bestandsübersicht_Rohdaten!C1:C4,4,0)"
Range("F2").AutoFill Destination:=Range("F2:F600")
Columns("F:F").Value = Columns("F:F").Value
Columns("F:F").Replace What:="#N/A", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Gruß UweD
Anzeige
AW: VBA suchen und ersetzen
09.09.2016 10:24:08
Rene
Ungetest hat funktioniert.
Super vielen dank :)
Schönes Wochenende.
lg René
Danke für die Rückmeldung owT
09.09.2016 10:49:36
UweD

356 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige