Listbox Textbox
15.02.2016 09:59:08
Hermelin
Ich möchte vom meinem Aktiven Blatt "Ausgangslage" ein VBA starten, bei dem ich auf dem Blatt "Adressliste" (Das Suchfeld habe ich im Namensmanager von A:D auf Adressen umgeschrieben) Daten suchen kann.
In dem Suchfeld möchte ich mit der Suche in der 3. Spalte beginnen. Aber ich bleibe immer in der 1. Spalte stecken. Die Resultate müssen dann aber für alle Spalten kommen, also von der 1. bis zur 5.
Was mache ich falsch?
Den Code habe ich von einem meiner früheren Versionen kopiert.
Sub Suchen()
Dim Ing As Long
Dim i As Integer
Application.ScreenUpdating = False
With frm_Daten
.ListBox1.Clear
Sheets("Adressliste").Activate
i = 0
For Ing = 3 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(Ing, 1).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(Ing, 1).Value
.ListBox1.Column(1, i) = Cells(Ing, 2).Value
.ListBox1.Column(2, i) = Cells(Ing, 3).Value
.ListBox1.Column(3, i) = Cells(Ing, 4).Value
.ListBox1.Column(4, i) = Cells(Ing, 5).Value
.ListBox1.Column(5, i) = Ing
i = i + 1
Else
End If
Next Ing
End With
frm_Daten.Label42.Caption = frm_Daten.Label42.Caption
frm_Daten.Label43.Caption = frm_Daten.Label43.Caption
frm_Daten.Label44.Caption = frm_Daten.Label44.Caption
frm_Daten.Label45.Caption = frm_Daten.Label45.Caption
frm_Daten.Label46.Caption = frm_Daten.Label46.Caption
Application.ScreenUpdating = True
End Sub
Anzeige