Suchmaske in Excel

Private Sub CommandButton1_Click() Dim X As Long Z = Sheets(1).UsedRange.Rows.Count 'Letzt genutzte Zeile ermitteln X = TextBox1 'Suchfeld auslesen temp = 0 For i = 5 To Z 'In Zeile 5 starten bis Letzt genutzte Zeile If Cells(i, 1) = X Then temp = 1 Exit For End If Next If temp = 1 Then Unload Me zeile = i 'Ergebnis in Variable schreiben (wird in UserForm1 übergeben) UserForm1.Show Else MsgBox "Kundennummer nicht vorhanden!", vbExclamation TextBox1 = "" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub UserForm_Initialize() With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With TextBoxKundenNummer = Cells(Zeile, 1) 'Hier bricht er ab Muss ich denn die Dateitypen irgendwie separat konvertieren für jeden Feld welches ich befüllen _ möchte? Danke :)

Danke für die Infos.
zu 1) Meine Liste hat über 1000 Einträge. Nur sind das Kundendaten die ich jetzt nicht online stellen wollte. Die zwei Fake Sachen waren nur zur Veranschaulichung. :)
zu 2) Den Button kann man ja fix anlegen, die Voraussetzungen sind ja da. Ich habe Bisher nur über F5 aus dem VBA Code direkt getestet, da ich damit noch nicht Live arbeite.
zu 2) Das ist der Plan. Eine Suchbox für eine "neue Suche" ist ja schon da. Ich wollte entweder über die große Textbox ein "Suchergebnis" einbauen oder in einem Separaten Reiter.
zu 4) Genau das möchte ich ja. Der Gedanke dahinter ist, das ich zb die Kundennummer nicht kenne aber in Etwa weis wie der Kunde heißt oder wann ich ihn angelegt habe. Wenn ich zb 12 Kunden am 01.01.2019 angelegt habe, dann habe ich die Übersicht und kann mir genau den Raus picken den ich möchte. Dabei soll das Ergebnis der Suche weiter vorgehalten werden, damit ich ggf die Einträge durch klicken kann.
So ist der Plan :D

Hey du bist ja klasse :) Vielen Dank
Ich habe ihn noch so angepasst.

Private Sub SuchText_Change()
Dim z, Nam
zl = Sheets(1).UsedRange.Rows.Count
FoundList.Clear
With Sheets(1)
For z = 5 To zl
Nam = .Cells(z, 2).Text
If Nam  "" Then
If InStr(1, Nam, SuchText, 1) > 0 Then
FoundList.AddItem Cells(z, 1)
FoundList.List(FoundList.ListCount - 1, 1) = Cells(z, 2)
End If
End If
Next z
End With
End Sub

su = SuchText habe ich ebenfalls raus genommen, da die Variable su ja nicht mehr vorhanden ist. Hier wusste ich nicht, warum du den SuchText in die Variable schreibst, wenn mit der gar nicht gearbeitet wird.
zl = Sheets(1).UsedRange.Rows.Count ich nehme das Ergebnis der letzten beschriebenen Zeile, damit die Listbox schneller ist. Zumindest am Anfang, wenn dann hier mehr als 1000 Zeichen drin sind, wird es eh wieder langsam.
With Sheets(1) Habe ich mal abgeändert, da ich mich gefragt habe, was passiert wenn das Tabellenblatt mal umbenannt wird.
lz und su hab ich raus genommen, da wusste ich nicht wozu die deklariert wurden
Die Checkbox für die Livesuche habe ich dann doch raus geschmissen.
Wenn ich jetzt nach einer Kundennummer suchen möchte, müsste ich die Schleife gleich schreiben, nur das ich eine Variable zb Kud nutze (Kud = .Cells(z, 1).Text) und dann die Spalte 1 anspreche (InStr(1, Kud, SuchText, 1). Würde das als If Else funktionieren? Oder gibt es noch eine andere Fuktion zum vergleichen verschiedener Werte? Die InStr-Funktion vergleicht ja nur den Wert aus dem Textfeld mit dem was er in Zelle 5/2 gefunden hat.
Noch einmal vielen Dank für deine Hilfe. Das hat mir verdammt weiter geholfen, vor allen in Bezug auf die Benutzung einer Listbox. Vielen vielen Dank :)

Private Sub SuchText_Change() Dim z, Nam, Kud zl = Sheets(1).UsedRange.Rows.Count FoundList.Clear With Sheets(1) For z = 5 To zl Nam = .Cells(z, 2).Text Kud = .Cells(z, 1).Text If Nam "" Then If InStr(1, Nam, SuchText, 1) > 0 Then FoundList.AddItem Cells(z, 1) FoundList.List(FoundList.ListCount - 1, 1) = Cells(z, 2) End If If Kud "" Then If Len(SuchText) > 8 Then SuchText = Left(SuchText, 8) ' Damit bei 9-stelligen _ Zahlen keine Fehlermeldung kommt If Left(Kud, Len(SuchText)) = SuchText Then FoundList.AddItem Cells(z, 1) FoundList.List(FoundList.ListCount - 1, 1) = Cells(z, 2) End If End If End If Next z End With End Sub

Private Sub SuchText_Change() Dim z, Nam, su, KdNr FoundList.Clear With Sheets("Aktiv") For z = 5 To 10000 Nam = .Cells(z, 2).Text KdNr = .Cells(z, 1).Text su = SuchText If su = "" Then Exit Sub If Len(su) > 8 Then su = Left(su, 8) ' Damit bei 9-stelligen _ Zahlen keine Fehlermeldung kommt If Nam "" Then If InStr(1, Nam, su, 1) > 0 Or Left(KdNr, Len(su)) = su Then FoundList.AddItem Cells(z, 1) FoundList.List(FoundList.ListCount - 1, 1) = Cells(z, 2) End If End If Next z End With End Sub

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchmaske in Excel

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread