ich möchte mehrere Einträge aus einer Listbox in eine Zelle eines Tabellenblattes einlesen und auch später wieder in die Listbox auslesen können. Wie bekomme ich das hin?
Vielen Dank vorab
Marc
ich möchte mehrere Einträge aus einer Listbox in eine Zelle eines Tabellenblattes einlesen und auch später wieder in die Listbox auslesen können. Wie bekomme ich das hin?
Vielen Dank vorab
Marc
blende über Ansicht / Symbolleisten das Formular ein
und zeichne ein Listenfeld.
Gebe in die Zellen A1-A10 Buchstaben ein.
Mit der rechten Maustaste Steuerelement formatieren auswählen.
Unter Reiter Steuerung Listenbereich A1-A10 auswählen.
Ausgabebereich eine Zelle auswählen. Hier wird der Listindex der
Listbox ausgegeben.
In eine weitere Zelle den Index Abfragen:
Index(A1:A10;Ausgabezelle) Ausgabezelle Ist der Listindex (s.o.)
Fertig.
Teil 2 ist schon schwieriger, da dem Steuerelement ein Integerwert für den Listindex übergeben werden muss.
Mit dem obigen Beispiel klappt es aber, weil die jeweils
ausgewählte Zelle dem Listindex entspricht.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Worksheets("Tabelle1").Shapes(1).ControlFormat.ListIndex = ActiveCell.Row
End Sub
Du kannst dass Ganze noch verfeinern und auf einen beliebigen Bereich begrenzen.
Hoffe es hilft.
Gruss Harald