Guten Tag,

ich habe zwei Reiter in einer Datei:

- Reiter 1 heißt Main und enthält Wörter/Sätze auf Englisch in Spalte A.

- Reiter 2 heißt Dictionary und enthält in Spalte A Englische Wörter und in Spalte B die Übersetzungen ins Deutsche

Ich habe eine erste Makro erstellt, welche durch VLOOKUP die Wörter aus Reiter Main ins Englische übersetzt und dabei den Reiter Dictionary dafür benutzt. Das Wort wird in Spalte A (englisch) gefunden und mit dem Wort aus Spalte B (deutsch) ersetzt. Das hat soweit funktioniert wie ich es möchte:

Sub TranslateCHN() Dim mainWs As Worksheet Dim dictionaryWs As Worksheet Dim mainLastRow As Long Dim dictionaryLastRow As Long Dim dictionaryRng As Range Dim x As Long Set mainWs = ThisWorkbook.Worksheets("Homologation Scheme") Set dictionaryWs = ThisWorkbook.Worksheets("Dictionary") mainLastRow = mainWs.Range("A" & Rows.Count).End(xlUp).Row dictionaryLastRow = dictionaryWs.Range("A" & Rows.Count).End(xlUp).Row Set dictionaryRng = dictionaryWs.Range("A2:B" & dictionaryLastRow) For x = 2 To mainLastRow On Error Resume Next mainWs.Range("A" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("A" & x).Value, dictionaryRng, 2, False) mainWs.Range("B" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("B" & x).Value, dictionaryRng, 2, False) mainWs.Range("C" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("C" & x).Value, dictionaryRng, 2, False) mainWs.Range("D" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("D" & x).Value, dictionaryRng, 2, False) mainWs.Range("E" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("E" & x).Value, dictionaryRng, 2, False) mainWs.Range("F" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("F" & x).Value, dictionaryRng, 2, False) Next x End Sub

Nun möchte ich eine zweite Makro hinzufügen, um die bereits übersetzten deutschen Wörter wieder ins Englische zu übersetzen. D.h. die Makro soll nun nicht das Wort im Reiter Dictionary aus Spalte A (englisch) finden und es mit B (deutsch) ersetzen, sondern umgekehrt: Sie soll das Wort aus Spalte B(deutsch) finden und es mit Spalte A (englisch) ersetzen. Leider funktioniert diese zweite Makro nicht, es passiert einfach nichts. Kann mir hierbei jemand weiterhelfen und sehen worin der Fehler liegt?

Zweite Makro:  

Sub TranslateEN() Dim mainWs As Worksheet Dim dictionaryWs As Worksheet Dim mainLastRow As Long Dim dictionaryLastRow As Long Dim dictionaryRng As Range Dim x As Long Set mainWs = ThisWorkbook.Worksheets("Homologation Scheme") Set dictionaryWs = ThisWorkbook.Worksheets("Dictionary") dictionaryLastRow = dictionaryWs.Range("B" & Rows.Count).End(xlUp).Row Set dictionaryRng = dictionaryWs.Range("A2:B" & dictionaryLastRow) For x = 2 To mainLastRow On Error Resume Next mainWs.Range("A" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("A" & x).Value, dictionaryRng, 1, False) mainWs.Range("B" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("B" & x).Value, dictionaryRng, 1, False) mainWs.Range("C" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("C" & x).Value, dictionaryRng, 1, False) mainWs.Range("D" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("D" & x).Value, dictionaryRng, 1, False) mainWs.Range("E" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("E" & x).Value, dictionaryRng, 1, False) mainWs.Range("F" & x).Value = Application.WorksheetFunction.VLookup( _ mainWs.Range("F" & x).Value, dictionaryRng, 1, False) Next x End Sub