Listbox leeren + Listbox Ergebnis anhand von Textbox und Kombobox generieren

Hallo zusammen,
ich grübel seit Tagen mit zwei Problemen, bei welchen ich aktuell leider nicht weiterkomme.
Deshalb meine Frage an die Expertenrunde :)
Folgende Vorgehensweise:
Ich habe eine Userform bestehend aus vier Textfeldern, 5 Comboboxen und einer Listbox erstellt.
Sowohl die Textfelder als auch die Comboboxen sind für die Eingabe vorbestimmt und können genutzt werden. Dies geschieht in unterschiedlichen Variationen. Aktuell ist das Makro so aufgebaut,
CommandButton5_Click()
IF Prüfung ob eines der Textfelder oder Comboboxen gefüllt ist, dann
Die Basisdaten ins Array laden. Im Arbeitsspeicher prüfen ob die IF Bedingung gegeben ist,
Falls ja, das neue Array auf einem neuen Arbeitsblatt auswerfen, anschließend als neues Array einlesen
und in der Listbox ausgeben. Aufgrund der Spaltenanzahl > 10 muss ich den Weg über das Array bzw. Rowsource gehen anstelle von Additem.
1. Problem:
Die Suche anhand der Textfelder, auch in Variation, funktioniert.
Die Suche anhand der Combobox (alleinstehend) mit dem Listenindex 1 funktioniert hervorragend.
Bei dem zweiten nicht, obwohl es der exakt selbe Code mit unterschiedlichen Variablen ist? Woran kann das liegen?
2. Problem: Aufgrund des Array bzw. Mehrspaltenproblems funktioniert im Falle einer erneuten Suche das Löschen der Listbox nicht über den Command .clear bzw. Me.Listbox1.clear weshalb ich folgenden Code im Forum gefunden habe:

  With Me.ListBox1
If .ListIndex > -1 Then .RemoveItem (.ListIndex)
End With

Hierbei werden zwar vereinzelte Zeilen gelöscht, stellenweise muss ich aber mehrmals suchen bis sich die Listbox auflöst. Wie kann ich dieses Problem sauber beheben?
3. Problem:
Besteht ein Ansatz, welcher im Falle der Suchbetätigung prüft welche Textfelder bzw. Comboboxen genutzt werden und passt das Makro entsprechend an oder muss ich unzählige Elseif Bedingungen schreiben? ;-)
Herzlichen Dank für eure Hilfe!
Viele Grüße,
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi ihr zwei,
sorry, in der Tat es sind etwas mehr verpackte Fehler.. Nehme deinen Ratschlag gerne zur Herzen Thorsten und werde zukünftig nur immer einen Problemfall online stellen.
Damit etwas mehr Klarheit herrscht, hier ein Auszug aus dem Code mit ein paar Anmerkungen,

Public letzteZeileArray As Integer
Private Sub CommandButton5_Click()
Dim vArr As Variant
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer
Dim strT As String
Dim strW As String
Dim k As Integer
Dim vOut As Variant
Dim letzteZeileNeuesArray As Long
Dim letzteSuchZeilenArrayLoeschen As Long
Dim SText As Integer
Dim SText2 As Integer
Dim AB As String
strT = Me.TextBox12.Value
strW = Me.TextBox2.Value
AB = "Erledigen"
With Me.TextBox12.Value
If Len(strT)  0 Then
SText = 1
Else
SText = 0
End If
End With
With Me.TextBox2.Value
If Len(strW)  0 Then
SText2 = 1
Else
SText2 = 0
End If
End With
' ... div. If Pruefungen
''***** 12. Fall     Nur Ein Fall von X
ElseIf Me.ComboBox1.ListIndex = 0 And SText = 0 And SText2 = 0 _
And Me.ComboBox2.ListIndex = 0 And _
Me.ComboBox3.ListIndex = 2 And Me.ComboBox4.ListIndex = 0 And Me.ComboBox5.ListIndex = 0 Then
vArr = wb_TJ.Worksheets("Planung").Range("A2:M" & letzteZeileArray).Value
ReDim vOut(0 To UBound(vArr, 2) - 1, 0 To UBound(vArr, 1) - 1)
For i = 1 To UBound(vArr, 1)
If vArr(i, 6) = AB Then '  Hier werden entsprechend der oberen ElseIf Bedingung die  _
Suchparameter angepasst
For j = 1 To UBound(vArr, 2)
vOut(j - 1, k) = vArr(i, j)
Next j
k = k + 1
End If
Next i
'*** Im Falle einer vorherigen Suche, das ausgewiesene Array auf Tabelle 1 loeschen
letzteSuchZeilenArrayLoeschen = wb_TJ.Worksheets("Tabelle1").Range("A" & Rows.Count).End(xlUp) _
.Row
With wb_TJ.Worksheets("Tabelle1")
For i = letzteSuchZeilenArrayLoeschen to 2 -1
.Rows(i).Delete
Next i
End With
'*** Inhalt der Listbox im Falle von vorheriger Suchen loeschen
With Me.ListBox1
If .ListIndex > -1 Then .RemoveItem (.ListIndex)
End With
'*** Listbox Inhalt aufarbeiten und in Tabelle 1 auswerfen
With Me.ListBox1
If vOut(0, 0)  "" Then  ' Pruefen ob ein Treffer erzeugt wurde
With wb_TJ.Worksheets("Tabelle1")
For z = 1 To k
For s = 1 To UBound(vArr, 2)
.Cells(z + 1, s).Value = vOut(0 + m, 0 + n)
m = m + 1
Next s
m = 0
n = n + 1
Next z
End With
'*** Einlesen des neuen Array aus Tabelle 1 und anzeige in der Listbox1
letzteZeileNeuesArray = wb_TJ.Worksheets("Tabelle1").Range("A" & Rows.Count).End(xlUp). _
Row
.ColumnCount = 13
.ColumnHeads = True
.RowSource = "'[ArbeitsmappeTJ.xlsx]Tabelle1'!A2:M" & letzteZeileNeuesArray
End If
End With
'.. Naechste Bedingung

Bin dankbar über eure Kommentare

Beliebteste Forumthreads (12 Monate)

Listbox leeren + Listbox Ergebnis anhand von Textbox und Kombobox generieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

7 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox leeren + Listbox Ergebnis anhand von Textbox und Kombobox generieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread