Habe eine Frage zum sverweis mit VBA
Habe auf dem Activesheet von Zeile B17 bis B34 Bezeichnungen in Englisch. Diese Bezeichnungen wollte ich mit einer Sverweis Funktion ins Deutsche übersetzen. Hierzu hatte ich mir eine separate Tabelle "Dropdownfelder angelegt wo die Übersetzungen vorhanden sind.
Hatte dies mit der ersten Zelle B17 ausprobiert und funktioniert auch soweit (s. Quellcode unten).
Wollte dies nun über eine Schleifenfunktion bis Zelle 34 wiederholen was ich nicht hinkriege
Quelltext:
'Falls Zeile schon übersetzt worden ist dann springe zur Fehlermeldung
On Error Resume Next
ActiveSheet.Range("B13") = Application.WorksheetFunction.VLookup(Range("B13").Value, Worksheets("Dropdownfelder").Range("AI4:AJ36"), 2, False)
MsgBox "Zelle wurde schon übersetzt"
Vielleicht hat von Euch einer eine Idee