Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Name vergleichen und ersetzen
#1
Hallo,

ich habe in der hochgeladenen Datei zwei Tabellen. In der Tabelle Daten in Spalte A befinden sich verschiedene Texte, wobei sich hinter diesen ein anderer Name verbirgt, der in der Tabelle Codes dargestellt ist.
Das Ergebnis sollte wie in der Tabelle Daten (Spalte C) aussehen, aber in Spalte A ausgegeben werden. Ich dies per VBA möglich und wer kann evtl. helfen? Müsste aber zwingend eine VBA Lösung sein, ich denke, wenn
ich ein wenig rumprobiere, finde ich dann natürlich eine Formel die das lösen kann, aber es sollte eine VBA Lösung sein, die ich leider nicht hinbekomme.

LG


Angehängte Dateien
.xlsm   codes.xlsm (Größe: 10,43 KB / Downloads: 7)
Antwortento top
#2
Hallo,

hier ein Beispiel, ohne Fehlerabfragen, ...

Code:
Sub Test()
 
  Dim n As Long
  Dim d As Collection
  Dim s As Variant
  Dim t As Variant
 
  Set d = New Collection
 
  s = ThisWorkbook.Worksheets("Codes").Range("A1:B7").Value
  t = ThisWorkbook.Worksheets("Daten").Range("A2:C71").Value
 
  For n = LBound(s) To UBound(s)
 
    d.Add s(n, 2), s(n, 1)
 
  Next
 
  For n = LBound(t) To UBound(t)
   
    t(n, 3) = d(t(n, 1))
   
  Next
 
  ThisWorkbook.Worksheets("Daten").Range("A2:C71").Value = t
 
End Sub

Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 01/2011 - 06/2019 :: 04/2020 - 06/2021
https://de.excel-translator.de/translator :: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner (neu)
Antwortento top
#3
Super Danke, funtioniert
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste