29.09.2017, 11:19
Seiten: 1 2
29.09.2017, 11:31
Leider funktioniert das nicht so ohne weiteres.
Aber Grundsätzlich sollte diese UF fast identisch sein:
http://www.clever-excel-forum.de/attachm...?aid=13149
Aber Grundsätzlich sollte diese UF fast identisch sein:
http://www.clever-excel-forum.de/attachm...?aid=13149
29.09.2017, 11:54
Hallo Mario,
ich habe hier das Userform_Initialize-Ereignis so
geändert und da hat es geklappt. 3 Codezeilen eingefügt, 2 auskommentiert und 1 Zeile Variablendekleration.
ich habe hier das Userform_Initialize-Ereignis so
Code:
Private Sub UserForm_Initialize()
Dim lZeile As Long
Dim loLetzte As Long
Dim objArray As Object
loLetzte = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row ' letzte belegte in Spalte A (1)
Set objArray = CreateObject("system.collections.arraylist")
'Alle TextBoxen leer machen
TextBox1 = ""
TextBox2 = ""
' ComboBox2 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
' ComboBox1 = ""
'In dieser Routine laden wir alle vorhandenen
'Einträge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
For lZeile = 2 To loLetzte 'Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
'Aktuelle Zeile in die ListBox eintragen
' ListBox1.AddItem Tabelle1.Cells(lZeile, 1).Value
objArray.Add Tabelle1.Cells(lZeile, 1).Value
Next lZeile
objArray.Sort
ListBox1.List = objArray.toarray
' ListBox1.Value = ListBox1.List(0)
'Loop
' ComboBox1.RowSource = "Tabelle2!A3:A10"
' ComboBox2.RowSource = "Tabelle2!B3:B15"
End Sub
geändert und da hat es geklappt. 3 Codezeilen eingefügt, 2 auskommentiert und 1 Zeile Variablendekleration.
29.09.2017, 12:03
Herzlichen Dank. Funktioniert.
Seiten: 1 2