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?
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
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.
Zitat:..., 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.
'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
Dim lZeile As Long
ComboBox1.RowSource = "Q1:Q2"
'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
