Im Formular nur am Anfang suchen | Herbers Excel-Forum

Sub SucheName() Dim lng As Long Dim i As Integer Application.ScreenUpdating = False With frm_Daten .ListBox1.Clear Sheets("Kunden").Activate i = 0 For lng = 2 To ActiveSheet.UsedRange.Rows.Count If InStr(LCase(Cells(lng, 2).Value), LCase(.TextBox2.Value)) > 0 Then .ListBox1.AddItem Cells(lng, 1).Value .ListBox1.Column(1, i) = Cells(lng, 2).Value .ListBox1.Column(2, i) = Cells(lng, 3).Value .ListBox1.Column(3, i) = Cells(lng, 4).Value .ListBox1.Column(4, i) = Cells(lng, 5).Value .ListBox1.Column(5, i) = Cells(lng, 6).Value .ListBox1.Column(6, i) = Cells(lng, 7).Value .ListBox1.Column(7, i) = Cells(lng, 8).Row i = i + 1 Else End If Next lng End With Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DialogAnzeigenSpez() frm_Daten.Show Dim lng As Long Dim i As Integer Application.ScreenUpdating = False With frm_Daten .ListBox1.Clear Sheets("Kunden").Activate i = 0 For lng = 2 To ActiveSheet.UsedRange.Rows.Count 'If Left(LCase(Cells(lng, 2).Value), 2, Left(.TextBox2.Value), 2) > 0 Then If InStr(Left(LCase(Cells(lng, 2).Value), 2), Left((.TextBox2.Value), 2)) > 0 Then 'If InStr(LCase(Cells(lng, 2).Value), LCase(.TextBox2.Value)) > 0 Then .ListBox1.AddItem Cells(lng, 1).Value .ListBox1.Column(1, i) = Cells(lng, 2).Value .ListBox1.Column(2, i) = Cells(lng, 3).Value .ListBox1.Column(3, i) = Cells(lng, 4).Value .ListBox1.Column(4, i) = Cells(lng, 5).Value .ListBox1.Column(5, i) = Cells(lng, 6).Value .ListBox1.Column(6, i) = Cells(lng, 7).Value .ListBox1.Column(7, i) = Cells(lng, 8).Row i = i + 1 Else End If Next lng End With Application.ScreenUpdating = True End Sub

Sub DialogAnzeigenSpez() frm_Daten.Show 'frm_Daten.CommandButton7 = True 'frm_Daten.CommandButton7_Click 'CommandButton7.Activate 'frm_Daten.CommandButton7.Activate 'CommandButton7 = True 'CommandButton7_Click 'frm_Daten.CommandButton7 = True 'Run Macro:="SucheNameSpez" End Sub

Hallo Hajo,
vielen Dank, Beverly hatte was geschrieben - das klappt wie verrückt.
Das Formular aufrufen und die Suche soll eigentlich in einem gehen:

Sub DialogAnzeigenSpez()
frm_Daten.Show
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With frm_Daten
.ListBox1.Clear
Sheets("Kunden").Activate
i = 0
For lng = 2 To ActiveSheet.UsedRange.Rows.Count
'If Left(LCase(Cells(lng, 2).Value), 2, Left(.TextBox2.Value), 2) > 0 Then
If InStr(Left(LCase(Cells(lng, 2).Value), 2), Left((.TextBox2.Value), 2)) > 0 Then
'If InStr(LCase(Cells(lng, 2).Value), LCase(.TextBox2.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 1).Value
.ListBox1.Column(1, i) = Cells(lng, 2).Value
.ListBox1.Column(2, i) = Cells(lng, 3).Value
.ListBox1.Column(3, i) = Cells(lng, 4).Value
.ListBox1.Column(4, i) = Cells(lng, 5).Value
.ListBox1.Column(5, i) = Cells(lng, 6).Value
.ListBox1.Column(6, i) = Cells(lng, 7).Value
.ListBox1.Column(7, i) = Cells(lng, 8).Row
i = i + 1
Else
End If
Next lng
End With
Application.ScreenUpdating = True
End Sub

Geht es aber nicht.
Ziel des ganzen: ich schreibe in eine Zelle die Anfangsbuchtaben, die werden gleich in das Formular geschrieben und es soll gleich mit diesem Inhalt lossuchen...
Also 2 Buchtsaben in eine Zelle, ein Click und das Formular öffnet sich mit den gefundenen Einträgen.
Was muß ich da noch ändern?
Vielen Dank Gruß Lutz

Beliebteste Forumthreads (12 Monate)

Im Formular nur am Anfang suchen | Herbers Excel-Forum

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread