VBA - Suchen und ersetzen
20.08.2015 12:59:57
Jan
Wieder einmal habe ich ein Problem und würde mich über jegliche Tipps oder Hilfen sehr freuen. Es reicht mir, wenn ihr mir im Zweifelsfall einen Wink in die richtige Richtung gebt. Es geht um folgendes Makro:
Sub SuchenUndErsetzen()
' SuchenUndErsetzen Makro
Dim vWhat 'Array der zu suchenden Zeichenfolgen im Stil "*AMI *
Dim vRep 'Array der Ersatzzeichenfolge als Wort. Hier: "Auftragsminuten"
Dim iSuch As Long 'Laufvariable
vWhat = Worksheets("Tabelle1").Range("D8:D41").Value 'Hier stehen die Suchtexte
vRep = Worksheets("Tabelle1").Range("B8:B41").Value 'Hier stehen die Ersatztexte
For iSuch = LBound(vWhat) To UBound(vWhat)
Cells.Replace What:=CStr(vWhat(iSuch, 1)), Replacement:=CStr(vRep(iSuch, 1)), LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Next
Worksheets("Tabelle1").Range("D8:D41").Value = vWhat 'Die Arrays werden wieder an
Worksheets("Tabelle1").Range("B8:B41").Value = vRep 'ihren Ursprungsort gesschrieben
End Sub
Die Array werden am Ende zurückgeschrieben, da die eine Range ja auch ersetzt wurde, da im gesamten Workbook gesucht wurde.
Problem ist simpel: Er sucht nix. Es hat schon einmal funktioniert, seitdem nicht mehr. Es flackert einmal kurz und das wars. Es wurde nichts ersetzt. Ich habe auch durch das flackern das Gefühl, dass der nur im aktuellen Sheet gesucht hat, kann das sein?
Schonmal danke fürs anschauen und den Input.
Gruß, Jan