ich habe eine Tabelle mit Rohdaten, in denen in einer Spalte untereinander viele verschiedene Typen-Kürzel für Fahrzeuge stehen. Meine Aufgabe ist es, diese Kürzel einer Fahrzeug-Baureihe zuzuordnen. Die Fahrzeug-Baureihe soll per VBA immer jeweils in die Zelle rechts vom Kürzel geschrieben werden.
Beispiel: Die Kürzel
Für die Zuordnung habe ich eine Excel-Liste (eine Art Schlüssel als Vorgabe), in der in Spalte A die Kürzel stehen und in Spalte B die zugehörige Baureihe (es gibt ca. 10 Baureihen und ca. 100 Kürzel). Das einzige was mir einfällt ist das hier, um die Rohdaten-Tabelle durchzugehen und die Kürzel zu "übersetzen":
Dim lngL as Long
lngL = 1
Dim wsQuelle as Worksheet 'wsQuelle ist die Rohdaten-tabelle
Do While lngL <= wsQuelle.Cells(Rows.Count, 1).End(xlUp).Row
If wsQuelle.Cells(lngL, 1).Value = "TRV 15SHD (R1)" Or wsQuelle.Cells(lngL, 1).Value = "O 580-16 RHD" Then
wsQuelle.Cells(lngL, 2).Value = "Travego"
End If
usw.
Das ist recht umständlich, da es viele Kürzel zu "übersetzen" gibt. Gibt es eine Möglichkeit, dass ich die Schlüssel-Liste (eine Excel-Tabelle) direkt auslese, ohne alle Kürzel in den VBA-Code schreiben zu müssen? In etwa so:
Dim lngL as Long
lngL = 1
Dim wsQuelle as Worksheet 'wsQuelle ist die Rohdaten-tabelle
Do While lngL <= wsQuelle.Cells(Rows.Count, 1).End(xlUp).Row
If wsQuelle.Cells(lngL, 1).Value = "EINER DER WERTE AUS WORKSHEET XY(SCHLÜSSELLISTE), DIE IN DEN ZELLEN A1 BIS A16 STEHEN" Then
wsQuelle.Cells(lngL, 2).Value = "Travego"
End If
Gibt es da eine Funktion? Habe leider nichts gefunden bisher, wäre super wenn jemand einen Ansatz hat! Vielen Dank im vorraus,
Benny