09.10.2019, 11:52
Hallo zusammen,
ich bin noch ein ziemlicher VBA Anfänger und komme einfach nicht weiter. Ich habe schon ewig rumgegoogelt bin aber auf nichts gestoßen, was meiner Herausforderung ähnelt:
Insgesamt wird in 2 Workbooks gearbeitet. (Im Grunde mehr aber ich will niemanden verwirren :20: )
In Workbook 1 werden Begriffe gesucht welche ersetzt werden müssen.
Workbook 2 beinhaltet eine Übersetzungsliste. Alle Begriffe, die in Spalte A vorkommen, müssen und mit der Nachbarzelle aus Spalte B ersetzt werden.
Funktionstechnisch ausgedrückt also folgendermaßen:
Wenn workbook2!A1 in Workbook1 gefunden wird
dann diese Zelle durch Workbook2!B1 ersetzen,
ansonsten
wenn (Workbook2!A2 in Workbook1 gefunden wird
dann diese Zelle durch Workbook2!B2 ersetzen.
ansonsten
wenn (Workbook2!A3 in Workbook1 gefunden wird
dann diese Zelle durch Workbook2!B3 ersetzen)...
usw. für 2700 Zeilen
Bisher habe ich folgenden Code (nur ein Teilcode):
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets ' ActiveWorkbook ist Workbook1
wks.Cells.Replace What:=Workbooks("Workbook2.xlsx").Sheets("Tabelle1).Range("A2").Value, Replacement:=Workbooks("Workbook2.xlsx").Sheets("Tabelle1).Range("B2").Value, LookAt:= _
xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
Hierbei wird aber nur nach a2 "gesucht" (im Grunde ist es keine direkte Suche).
Benötigt wird es für die gesamte Spalte.
Ich denke mit einer For Schleife oder einem Counter wäre mir geholfen. Ich weis allerdings nicht wie ich das ganze aufziehen soll.
Ich danke für jede hilfreiche Anregung!
ich bin noch ein ziemlicher VBA Anfänger und komme einfach nicht weiter. Ich habe schon ewig rumgegoogelt bin aber auf nichts gestoßen, was meiner Herausforderung ähnelt:
Insgesamt wird in 2 Workbooks gearbeitet. (Im Grunde mehr aber ich will niemanden verwirren :20: )
In Workbook 1 werden Begriffe gesucht welche ersetzt werden müssen.
Workbook 2 beinhaltet eine Übersetzungsliste. Alle Begriffe, die in Spalte A vorkommen, müssen und mit der Nachbarzelle aus Spalte B ersetzt werden.
Funktionstechnisch ausgedrückt also folgendermaßen:
Wenn workbook2!A1 in Workbook1 gefunden wird
dann diese Zelle durch Workbook2!B1 ersetzen,
ansonsten
wenn (Workbook2!A2 in Workbook1 gefunden wird
dann diese Zelle durch Workbook2!B2 ersetzen.
ansonsten
wenn (Workbook2!A3 in Workbook1 gefunden wird
dann diese Zelle durch Workbook2!B3 ersetzen)...
usw. für 2700 Zeilen
Bisher habe ich folgenden Code (nur ein Teilcode):
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets ' ActiveWorkbook ist Workbook1
wks.Cells.Replace What:=Workbooks("Workbook2.xlsx").Sheets("Tabelle1).Range("A2").Value, Replacement:=Workbooks("Workbook2.xlsx").Sheets("Tabelle1).Range("B2").Value, LookAt:= _
xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
Hierbei wird aber nur nach a2 "gesucht" (im Grunde ist es keine direkte Suche).
Benötigt wird es für die gesamte Spalte.
Ich denke mit einer For Schleife oder einem Counter wäre mir geholfen. Ich weis allerdings nicht wie ich das ganze aufziehen soll.
Ich danke für jede hilfreiche Anregung!