ComboBox 1.Zeile Leer.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub einlesen() Dim col As New Collection On Error Resume Next With Tabelle1 .ComboBox1.Clear .ComboBox1.AddItem "" For i = 10 To .[W65536].End(xlUp).Row col.Add .Cells(i, 23), .Cells(i, 23) If Err = 0 Then .ComboBox1.AddItem .Cells(i, 23) Else Err.Clear End If Next End With End Sub

Sub einlesen() Dim col As New Collection Dim i As Long On Error Resume Next With Sheets("Tabelle1") .ComboBox1.Clear .ComboBox1.AddItem "" For i = 10 To .[W65536].End(xlUp).Row col.Add .Cells(i, 23), .Cells(i, 23) If Err = 0 Then .ComboBox1.AddItem .Cells(i, 23) Else Err.Clear End If Next End With Call Sortieren End Sub

Sub Sortieren() Dim i_Erster As Integer Dim i_Letzter As Integer Dim i_Aktuell As Integer Dim i_Nächster As Integer Dim s_buffer As String With Sheets("Tabelle1").ComboBox1 If .ListCount = 0 Then Exit Sub i_Erster = 0 i_Letzter = .ListCount - 1 For i_Aktuell = i_Erster To i_Letzter For i_Nächster = i_Aktuell + 1 To i_Letzter If .List(i_Aktuell) > .List(i_Nächster) Then s_buffer = .List(i_Nächster) .List(i_Nächster) = .List(i_Aktuell) .List(i_Aktuell) = s_buffer End If Next i_Nächster Next i_Aktuell End With End Sub

Hallo Paulchen,
habe es eingebaut, kann auswählen aber es wird nicht sortiert und nicht die doppelten
rausgenommen.
Vielleicht endeckst Du den Fehler, habe gerade 2h probiert!
Übrings die Combobox ist jetzt in Tabelle4 und die Daten in Tabelle1, ab Zeile4 !
Tabelle1=Lager, Tabelle4=Bestand


Private Sub ComboBox1_Change()
Dim FI$
Dim z As Long
Dim i As Long
Dim sp
Dim col As New Collection
On Error Resume Next
With Sheets("Tabelle4")
.ComboBox1.Clear
.ComboBox1.AddItem ""
For i = 4 To Tabelle1.[W65536].End(xlUp).Row
col.Add Tabelle1.Cells(i, 23), Tabelle1.Cells(i, 23)
If Err = 0 Then
Tabelle4.ComboBox1.AddItem Tabelle1.Cells(i,23)
Else
Err.Clear
End If
Next
End With
Call Sortieren
Sheets("Lager").Select
Sheets("Lager").Range("A3:O3").Select
If Not ActiveSheet.AutoFilterMode Then
Selection.AutoFilter
End If
FI = Tabelle4.ComboBox1.Text
Selection.AutoFilter Field:=7, Criteria1:=FI & "*", Operator:=xlAnd
Sheets("Bestand").Select
Call Sortieren
End Sub

Sub Sortieren()
Dim i_Erster As Integer
Dim i_Letzter As Integer
Dim i_Aktuell As Integer
Dim i_Nächster As Integer
Dim s_buffer As String
Sheets("Bestand").Select
With Sheets("Tabelle4").ComboBox1
If .ListCount = 0 Then Exit Sub
i_Erster = 0
i_Letzter = .ListCount - 1
For i_Aktuell = i_Erster To i_Letzter
For i_Nächster = i_Aktuell + 1 To i_Letzter
If .List(i_Aktuell) > .List(i_Nächster) Then
s_buffer = .List(i_Nächster)
.List(i_Nächster) = .List(i_Aktuell)
.List(i_Aktuell) = s_buffer
End If
Next i_Nächster
Next i_Aktuell
End With
End Sub

herz. KURT

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox 1.Zeile Leer.

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread