Überspringen leerer Zeilen in List Box
06.05.2020 18:33:44
Sebastian
ich habe mir eine Eingabemaske mit einer ListBox erstellt. In dieser ListBox sollen alle Werte aufgeführt werden, die ungleich dem Wort "Bezeichnung" sind. Allerdings zeigt mir meine List Box nur die Werte bis zur ersten freien Zeile an. Ich habe aber noch keine Möglichkeit gefunden, wie ich die leeren Zeilen überspringen kann, dass sie sowohl nicht in meiner ListBox auftauchen, der Algorithmus aber drüber läuft. Zum besseren Verständnis habe ich den Code von meiner ListBox mit angehängt.
Vielen Dank schon mal :)
Gruß Sebi
Private Sub ListBox1_Click() 'Auflistung der Eingaben mit Befüllung der Textboxen
Dim Zeile As Long
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle1 heraus und tragen die Daten
'in die TextBoxen ein.
'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
TextBox2 = ""
TextBox4 = ""
TextBox6 = ""
TextBox8 = ""
TextBox13 = ""
'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then
Zeile = 14 'Start in Zeile 14, Zeile 13 sind ja die Überschriften
'Schleife solange etwas in der dritten Spalte in Tabelle 2 drin steht
Do While Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) Bezeichnung
'Wenn wir den Namen aus der ListBox1 in der Tabelle2 Spalte 3
'gefunden haben, übertragen wir die anderen Spalteninhalte
'in die TextBoxen!
If ListBox1.Text = Trim(CStr(Tabelle2.Cells(Zeile, 3).Value)) Then
'TextBoxen füllen
TextBox4 = Trim(CStr(Tabelle2.Cells(Zeile, 3).Value))
TextBox2 = Tabelle2.Cells(Zeile, 2).Value
TextBox6 = Tabelle2.Cells(Zeile, 4).Value
TextBox8 = Tabelle2.Cells(Zeile, 5).Value
TextBox13 = Tabelle2.Cells(Zeile, 1).Value
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
Zeile = Zeile + 1 'Nächste Zeile bearbeiten
Loop
End If
End Sub
