Auswahl aus Combobox soll korrespondierneden Text
Frank
ich habe mal wieder eine Frage.
In einer Tabelle habe ich zwei Spalten.
in Spalte A stehen Merkmale z.B. " Viskosität / viskcosity"
In Spalte B stehen dazu korrespondierende Methoden DIN 53018, DIN 53019
Ich lese alles in ein Array und zerlege die Merkmale in Deutsch und Englisch
Nun möchte ich eine Combobox mit den Werten der Spalte A ( nur den deutschen Teil) füllen aber ohne Duplikate und in Listbox1 soll dazu der korrespondierende englische Text und in Listbox2 die korrespondierende Methode stehen.
Ich hoffe ich habe mich verständlich ausgedrückt
With Worksheets("Methoden")
arrDaten = Range(Cells(2, 7), Cells(Rows.Count, 8).End(xlUp))
ReDim Preserve arrDaten(1 To UBound(arrDaten), 1 To 3)
For i = 1 To UBound(arrDaten)
arrTmp = Left$(arrDaten(i, 1), InStr(1, arrDaten(i, 1), " / "))
arrTmp = RTrim(arrTmp)
arrTmp1 = Right$(arrDaten(i, 1), InStr(1, arrDaten(i, 1), " / "))
arrTmp1 = LTrim(arrTmp1)
arrTmp2 = arrDaten(i, 2)
arrDaten(i, 1) = arrTmp
arrDaten(i, 2) = arrTmp1
arrDaten(i, 3) = arrTmp2
With ComboBox1
.AddItem (arrDaten(i, 1))
End With
Next
end with
https://www.herber.de/bbs/user/73564.xls
Vielen dank schon mal