VBA Listbox suche

[Klaus-Dieter]

Hallo Naitscho,

OK, ich hatte das von mir vorgeschlagene Makro in deine Datei eingebaut. In diesem Fall wurde Zeile 35 als Treffer angezeigt, (nächst kleinere Zahl), nur sind die Werte dort kleiner als der Suchbegriff. Was wäre denn in so einem Fall die gewünschte Vorgehensweise?

[Klaus-Dieter]

Hallo Naitscho,

habe das mal in deine Datei eingebaut. Bitte um Rückmeldung, ob ich das so richtig verstanden habe.

[Naitscho]

Hallo Klaus-Dieter,

leider immer noch nicht ganz was ich suche. Es geht mir nicht um die Zeilennummer direkt, sondern um die Zeile selbst in der Listbox. Wenn du dir die Suchfunktion im UserForm von mir anschaust, siehst du was ich meine. Dort springt er mir in die richtige Zeile der ListBox, aber nur wenn es genau die Nummer ist, nicht wenn die Nummer zwischen den Werten liegt, was ich aber eigentlich haben will.

..., nur sind die Werte dort kleiner als der Suchbegriff. Was wäre denn in so einem Fall die gewünschte Vorgehensweise?

Sollte ein Wert noch nicht vorhanden sein kann auch eine Nachricht auftauchen "Nummer zu klein" oder so etwas. Es wird auch noch Eintragungen geben unter der 10000 marke also von 1 beginnend.

[Kuwer]

Hallo Naitscho,

ersetze folgende Makros:

'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
   Dim lZeile As Long
   ComboBox1.RowSource = "Q1:Q2"
  
   'Alle TextBoxen leer machen
   TextBox1 = ""
   TextBox2 = ""
   TextBox3 = ""
   TextBox4 = Worksheets("Wandlerarchiv").Range("H1").Value
   TextBox5 = Worksheets("Wandlerarchiv").Range("H1").Value
   ComboBox1 = ""
 
   'In dieser Routine laden wir alle vorhandenen
   'Einträge in die ListBox1
   ListBox1.ColumnCount = 2
   
   lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
   'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
   Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
       'Aktuelle Zeile in die ListBox eintragen
       ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
       ListBox1.List(ListBox1.ListCount - 1, 1) = Trim(CStr(Tabelle1.Cells(lZeile, 2).Value))
       lZeile = lZeile + 1 'Nächste Zeile bearbeiten
   Loop
End Sub

Private Sub CommandButton5_Click()
 Dim i As Long
 With ListBox1
   For i = 1 To .ListCount - 1
     If .List(i, 0) >= TextBox6 Then
       If .List(i - 1, 1) >= TextBox6 Then
         i = i - 1
       End If
       .ListIndex = i
       Exit For
     End If
   Next i
 End With
End Sub

Gruß Uwe

[Naitscho]

Guten Morgen, 

Vielen Dank Uwe, dein Code funktioniert. Top!

Danke auch an Klaus-Dieter, für die Zeit die er sich dafür genommen hatte. 

Vielen Dank und Grüße
Naitscho