langsam komme ich mit meinem Vorhaben weiter und komme zur Erkenntnis, dass ich so den Überblick verliere. Deswegen habe ich mich an das Thema Listbox heran gewagt. Terra Inconita für mich, öffne es nicht, wenn du nicht bereit bist. Ich muss aber diese Kiste mir zunutze machen, sonst gehe ich kurz oder lang auf dem Zahnfleisch daher. Ich habe mir dazu eine Testapparatur gebastelt. Ziel dabei ist es, erstmal was in Sheet1 steht, 4 Spalten, in die Listbox im Sheet2 zubekommen. Ich gehe nach dem System vor: Ich Probiere es mit 2 Spalten, wenn das geht, geht es auch mit 4.
Hier ist mein Kode, alles was Wahnsinn ist oder wie Kraut und Rüben ausschaut, habe ich entfernt. Bei meinen Versuchen habe ich schon System ausfälle Produziert. Deswegen wäre ich froh wenn Ihr mir weiter helfen könntet.
Sub teszt()
Dim i As Long
Dim a As Long
a = 0
With ListBox1
For i = 2 To Worksheets("Munka1").Cells(Rows.Count, 2).End(xlUp).Row
ListBox1.Clear
ListBox1.AddItem
ListBox1.list(a, 0) = Sheets(1).Cells(i, 2)
ListBox1.list(a, 1) = Sheets(1).Cells(i, 2).Row
a = a + 1
Next i
End With
End Sub
Das Ziel was mir vor Augen schwebt ist, wenn ich ein shape.Objekt betätige, ich auswählen kann, ob ich das Book öffnen will oder nur schauen will was da gerade alles aufgelistet ist. Dieser Teil läuft bis auf meine ListBox. Wenn ihr wollt, kann ich diesen Kode auch senden.MfG Peter