Liebe Excel Gemeinde,
habe eine Listbox mit 3 Comboboxen möchte dabei 1 Combobox schon beim öffnen mit einer vorgegebenen Selektion belegen hier der Code der Combobox
Sub AuswahlListeSpeziell()
'Auswalliste für Speziell aktualisieren
Dim hshA As Object
Dim i As Long
Dim varGeraet, varBez
Set hshA = CreateObject("Scripting.Dictionary")
varGeraet = Me.cbb1.Text
varBez = Me.cbb2.Text
For i = LBound(arrList) To UBound(arrList)
If (varGeraet = "" Or varGeraet = arrList(i, 1)) And (varBez = "" Or varBez = arrList(i, 2)) Then
hshA(CStr(arrList(i, 3))) = 0
End If
Next
'Auswahlliste der Combobox zuweisen
Me.cbb3.List = hshA.keys
Set hshA = Nothing
End Sub
Im Tabellenblatt soll aus der Spalte C mit dem Begriff "Zubehör" schon vorselektiert werden.
Oder geht es auch einfacher dass ich 2 Comboboxen nehme und die Vorselektierung in der _
Initialisierung der UF vornehme hier der Code
Private Sub UserForm_Initialize()
Dim Zeile_L As Long
Dim i As Long
'Tabellenblatt mit den Daten einer modulweiten Variablen zuweisen
Set wksData = ThisWorkbook.Sheets("tbl_Dokumente")
With wksData
'letzte Zeile mit Daten in Spalte 1 des Tabellenblatts
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
'Daten (Spalten 1:12) im Tabellenblatt in ein Daten-Array übernehmen ohne Spaltentitel _
_
_
_
_
_
und miteiner Leerspalte für die Zeilennummer
arrData = .Range(.Cells(2, 1), .Cells(Zeile_L, 10))
'Zeilennummern im Daten-Array nachtragen - für spätere Ausführung des Hyperlinks
For i = 2 To Zeile_L
arrData(i - 1, 10) = i
Next
'alle Daten der Auswahlliste zuweisen
arrList = arrData
End With
'Listbox formatieren
With Me.ListBox1
.ColumnHeads = False
.ColumnCount = 10 'Anzahl felder
.ColumnWidths = "55Pt;0Pt;0Pt;90Pt;90Pt;0Pt;70Pt;50Pt;0Pt;15Pt"
.MultiSelect = fmMultiSelectMulti 'Mehrfachmarkierung
End With
Call Auswahl_Reset
End Sub
es wäre nett wenn ich Hilfe bekäme.
Vielen Dank im voraus
Richard