Hallo Leute,
ich versuche mit VBA aufgrund einer Liste mit Nummern ohne Indizes in einem neuen Tabellenblatt die Nummern mit allen Indizes, die in einer Gesamtliste vorhanden sind, auszugeben.
Gegeben:
- Tabellenblatt mit Liste allen Nummern MIT Indizes
- Tabellenblatt mit Liste Eingabenummern OHNE Indizes
- Tabellenblatt mit Liste, in die entsprechenden Nummern mit allen Indizes stehen soll.
Sprich:
-Eingabezelle: "110"
-In Gesamtliste vorhanden: "110A"; "110B"; "110C"
-Ausgabe: "110A"; "110B"; "110C"
aktueller Ansatz:
Sheets("ohne Indizes").Select
With ThisWorkbook.Worksheets("ohne Indizes")
For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
if InStr(1,Worksheets("ohne Indizes").Cells(i - 1, 1)
worksheets("Ausgabe").Cells(i,1) =
Vielen Dank im Vorraus :)
VG
TH