ich würde mich bei meinem folgenden Problem, über Hilfe sehr freuen.
Ich habe eine Listbox erstellt, die mir nach Eingabe eines Suchbegriffs aus einer Tabelle das Gesuchte anzeigt.
Um den Eintrag in der Tabelle zu finden, wird die Zeile angezeigt ($A$37).
Ich möchte gern als Anzeige Zeile 37 stehen haben. Da ich schon bei der o.g.
Anzeige Unterstützung hatte, möchte ich jetzt mit dem Problem noch mal um Hilfe bitten
Private Sub CommandButton1_Click()
Dim zelle As Range
Dim strZelle As String
Call autofilterzurücksetzen
ListBox1.Clear
With Range("A15:A" & Range("A260").End(xlUp).Row)
Set zelle = .Find(TextBox1.Value, LookIn:=xlValues)
If Not zelle Is Nothing Then
strZelle = zelle.Address
Do
With ListBox1
ListBox1.ColumnWidths = "40 Pt;40 Pt"
.ColumnCount = 2
.AddItem zelle.Address
.List(.ListCount - 1, 1) = Cells(zelle.Row, 1)
End With
Set zelle = .FindNext(zelle)
Loop While zelle.Address strZelle
End If
End With
End Sub
Vielen Dank.
Detlef