@Hajo_Zi
22.06.2005 18:06:38
Lorenz
Selbstverständlich den anderen auch ein Hallo!
Mit Deinem Code (v. Deiner HP) funktioniert das sortieren einwandfrei.
Mein Problem ist aber:
In der Combobox1 kann ich`s verwenden, aber in weiterer Folge zum Anwählen
(lt Auswahl in Combobox2) nicht mehr, da warscheinlich ListIndex mit ZeilenNummer nicht mehr übereinstimmt.
Ist es möglich mir den Code dementsprechend zurecht zu schnitzen?
Dein Code:
Sub OhneDupliLfd(Adresse As String)
Dim AlleZellen As Range, Zelle As Range
Dim AnzAlle As Long, AnzOhneDupl As Long
Dim OhneDupl As New Collection
Dim i As Long, j As Long
Dim Swap1, Swap2, Item
Set AlleZellen = Range("L19:L65536")
von = AlleZellen.Row
bis = von + AlleZellen.Count - 1
On Error Resume Next
For Each Zelle In AlleZellen
OhneDupl.Add Zelle.Value, CStr(Zelle.Value)
Next Zelle
On Error GoTo 0
AnzAlle = AlleZellen.Count
AnzOhneDupl = OhneDupl.Count
For i = 1 To OhneDupl.Count - 1
For j = i + 1 To OhneDupl.Count
If OhneDupl(i) > OhneDupl(j) Then
Swap1 = OhneDupl(i)
Swap2 = OhneDupl(j)
OhneDupl.Add Swap1, before:=j
OhneDupl.Add Swap2, before:=i
OhneDupl.Remove i + 1
OhneDupl.Remove j + 1
End If
Next j
Next i
ReDim SuchDatenLfd(0 To AnzOhneDupl - 1)
For n = 0 To UBound(SuchDatenLfd)
SuchDatenLfd(n) = OhneDupl.Item(n + 1)
Next n
For Each Item In OhneDupl
ComboBox2.AddItem Item
Next Item
End Sub
Mein code: so wird die Zeile lt. ListIndex angewählt
Private Sub ComboBox2_Change()
Dim iCounter As Integer
For iCounter = 1 To 50
Controls("TextBox" & iCounter).Text = Worksheets("Daten").Cells(ComboBox2.ListIndex + 19, iCounter).Text
Next iCounter
End Sub
so werden die Einträge in die ComboBoxen übernommen
Private Sub UserForm_Initialize()
Call EntferneDupliLfd("b19:b65500")
ComboBox1.List = .Range(.Cells(19, 1), .Cells(.UsedRange.Rows.Count, 1)).Value
vielen Dank im Voraus &
Grüsse Lorenz