Hallo,
ich habe eine Datei mit vielen Arbeitsblättern. Ich möchte gern per VBA, dass der Text aus Textbox1 vom Sheet("List") in allen anderen Datenblättern gesucht wird und durch den Text der Textbox2 ersetzt wird.
Leider klappt es nicht so ganz...mit der Auswahl der Bereiche. Muss ein Arbeitsblatt erst AKTIV sein, um die Funktion des Ersetzens nutzen zu können ?
Und wie ganz ich das machen, dass Excel die jeweiligen Arbeitblätter im Hintergrund durchsucht und alle Einträge entsprechend ändert ?!
Versuchte es so:
For i = worksheets.count to 1 step-1
if worksheets(i).Name "Data" then
Worksheets(i).Range("A1").
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
' Kennzahl
Selection.Replace What:=tKennzahlalt, Replacement:=objTBKennzahl.Text, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
end if
next i
Gruß Kay