Hallo Zusammen,

wie kann ich folgenden Code umbauen um

alle einträge die sich z.b. in tabelle1.range ("A1:A20") befinden in einer Lisbox (Multiselected, direkt in der Excel Tabelle, Active X Box) auswählen (Selected) zu lassen.

z.b.

Tabelle1.range ("A1:A40")

haus1

haus3

haus5

Lisbox einträge: (x = markierte)

Haus0

Haus1    x

Haus2

Haus3    x

Haus4

Haus5    x

Haus6

Mit dem Makro unten lese ich ja die aus die ausgewählt wurden, bekomme es aba net hin das genau andersrum zu bauen. mit der "Find" Methode oder so?

   For i = 0 To Tabelle17.ListBox1.ListCount - 1

      If Tabelle17.ListBox1.Selected(i) Then
         Tabelle1.Cells(65000, 19).End(xlUp).Offset(1, 0) = Tabelle17.ListBox1.List(i)
      End If

   Next i

Danke & Gruß

Michi