Suchfeld und Spaltenprobelm- verzweifelte sucht Hilfe

Question

Hallo und Hilfe :)

Habe folgende(s) Problem(e):Ich würde zu meiner Listbox1 gerne ein Suchfeld einfügen. Soll heißen:

-Wenn jemand einen Buchstaben oder Kombination aus Buchstaben eingibt, soll eine Auswahl in der Listbox angezeigt werden
(hintergrund ist eine Kundentabelle. In der Listbox1 sollen Nachnamen angezeigt werden).
Ich habe Google etliche Tage bemüht, finde aber einfach nichts wie ich das machen könnte :(

Zudem habe ich noch ein Problem nr. 2: Wenn ich auf "neuen Eintrag gehe" setzt er mir in
Zeile 188 zwar einen "neuen Eintrag" aber ich kann dort nichts speichern und zu allem
Überfluss sind in den darauf folgenden Spalten (188;B,188;C...usw) schon Daten hinterlegt-> quasi hat
er einen neuen Eintrag in einer falschen Spalte erstellt (aber warum?)
Habe jetzt ein wenig rumprobiert....irgendwie stoppt alles bei 188...
obwohl er eigentlich in die letzte Spalte gehen sollte

Wäre überaus dankbar für Hilfe.
Hier mein wirrer Code



LG Susi

Answer 1

Option Explicit
Option Compare Text

'Neuer Eintrag Schaltfläche Ereignisroutine
Private Sub CommandButton1_Click()

Dim lZeile As Long
'Wenn der Benutzer einen neuen Eintrag erzeugen möchte,
'erstellen wir einen neuen Eintrag in der ListBox und markieren
'diesen, damit der Benutzer die Daten eintragen kann

lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) <> ""
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop

'Nach Durchlauf dieser Schleife steht lZeile in der ersten leeren Zeile von Tabelle1
'Neuen Eintrag in die Tabelle1 schreiben, Spalte ID muss gefüllt sein, damit
'unsere Routinen die Zeile wiederfinden!
Tabelle1.Cells(lZeile, 1) = CStr("Neuer Eintrag Zeile " & lZeile)

'Und neuen Eintrag in die UserForm eintragen
ListBox1.AddItem CStr("Neuer Eintrag Zeile " & lZeile)

'Den neuen Eintrag markieren mit Hilfe des ListIndexes
ListBox1.ListIndex = ListBox1.ListCount - 1
'Durch das Click Ereignis der ListBox werden die Daten automatisch geladen

End Sub



'Löschen Schaltfläche Ereignisroutine
Private Sub CommandButton2_Click()
Dim lZeile As Long

'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub

'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes
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)) <> ""

'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then

'Eintrag gefunden, die ganze Zeile wird nun gelöscht
Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Delete

'Die ListBox muss nun neu geladen werden!
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0

Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist

End If

lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop

End Sub

'Speichern Schaltfläche Ereignisroutine
Private Sub CommandButton3_Click()
Dim lZeile As Long

'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub

'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
If Trim(CStr(TextBox1.Text)) = "" Then
'Meldung ausgeben
MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
'Abbrechen der Speicherroutine
Exit Sub
End If
'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!

'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
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)) <> ""

'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then

'Eintrag gefunden, TextBoxen in die Zellen schreiben
Tabelle1.Cells(lZeile, 1).Value = Trim(CStr(TextBox1.Text))
Tabelle1.Cells(lZeile, 2).Value = TextBox2.Text
Tabelle1.Cells(lZeile, 3).Value = TextBox3.Text
Tabelle1.Cells(lZeile, 4).Value = TextBox4.Text
Tabelle1.Cells(lZeile, 5).Value = TextBox5.Text
Tabelle1.Cells(lZeile, 6).Value = TextBox6.Text
Tabelle1.Cells(lZeile, 7).Value = TextBox7.Text
Tabelle1.Cells(lZeile, 8).Value = TextBox8.Text
Tabelle1.Cells(lZeile, 9).Value = TextBox9.Text
Tabelle1.Cells(lZeile, 10).Value = TextBox10.Text
Tabelle1.Cells(lZeile, 11).Value = TextBox11.Text
Tabelle1.Cells(lZeile, 12).Value = TextBox12.Text
Tabelle1.Cells(lZeile, 13).Value = TextBox13.Text
Tabelle1.Cells(lZeile, 14).Value = TextBox14.Text
Tabelle1.Cells(lZeile, 15).Value = TextBox15.Text
Tabelle1.Cells(lZeile, 16).Value = TextBox16.Text
Tabelle1.Cells(lZeile, 17).Value = TextBox17.Text
Tabelle1.Cells(lZeile, 18).Value = TextBox18.Text
Tabelle1.Cells(lZeile, 19).Value = TextBox19.Text
Tabelle1.Cells(lZeile, 20).Value = TextBox20.Text
Tabelle1.Cells(lZeile, 21).Value = TextBox21.Text
Tabelle1.Cells(lZeile, 22).Value = TextBox22.Text
Tabelle1.Cells(lZeile, 23).Value = TextBox23.Text
Tabelle1.Cells(lZeile, 24).Value = TextBox24.Text
Tabelle1.Cells(lZeile, 25).Value = TextBox25.Text
Tabelle1.Cells(lZeile, 26).Value = TextBox26.Text
Tabelle1.Cells(lZeile, 27).Value = TextBox27.Text
Tabelle1.Cells(lZeile, 28).Value = TextBox28.Text
Tabelle1.Cells(lZeile, 29).Value = TextBox29.Text

'Die ListBox muss nun neu geladen werden
'allerdings nur, wenn sich der Name (ID) geändert hat
If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End If

Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist

End If

Answer 2

lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop

End Sub

'Beenden Schaltfläche Ereignisroutine
Private Sub CommandButton4_Click()
Unload Me
End Sub


'Klick auf die ListBox Ereignisroutine
Private Sub ListBox1_Click()
Dim lZeile As Long
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle1 heraus und tragen die Daten
'in die TextBoxen ein.

'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""
TextBox21 = ""
TextBox22 = ""
TextBox23 = ""
TextBox24 = ""
TextBox25 = ""
TextBox26 = ""
TextBox27 = ""
TextBox28 = ""
TextBox29 = ""

'Nur wenn ein Eintrag selektiert/markiert ist
If ListBox1.ListIndex >= 0 Then

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(Tabelle2.Cells(lZeile, 2).Value)) <> ""

'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
'gefunden haben, übertragen wir die anderen Spalteninhalte
'in die TextBoxen!
If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then

'TextBoxen füllen
TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
TextBox2 = Tabelle1.Cells(lZeile, 2).Value
TextBox3 = Tabelle1.Cells(lZeile, 3).Value
TextBox4 = Tabelle1.Cells(lZeile, 4).Value
TextBox5 = Tabelle1.Cells(lZeile, 5).Value
TextBox6 = Tabelle1.Cells(lZeile, 6).Value
TextBox7 = Tabelle1.Cells(lZeile, 7).Value
TextBox8 = Tabelle1.Cells(lZeile, 8).Value
TextBox9 = Tabelle1.Cells(lZeile, 9).Value
TextBox10 = Tabelle1.Cells(lZeile, 10).Value
TextBox11 = Tabelle1.Cells(lZeile, 11).Value
TextBox12 = Tabelle1.Cells(lZeile, 12).Value
TextBox13 = Tabelle1.Cells(lZeile, 13).Value
TextBox14 = Tabelle1.Cells(lZeile, 14).Value
TextBox15 = Tabelle1.Cells(lZeile, 15).Value
TextBox16 = Tabelle1.Cells(lZeile, 16).Value
TextBox17 = Tabelle1.Cells(lZeile, 17).Value
TextBox18 = Tabelle1.Cells(lZeile, 18).Value
TextBox19 = Tabelle1.Cells(lZeile, 19).Value
TextBox20 = Tabelle1.Cells(lZeile, 20).Value
TextBox21 = Tabelle1.Cells(lZeile, 21).Value
TextBox22 = Tabelle1.Cells(lZeile, 22).Value
TextBox23 = Tabelle1.Cells(lZeile, 23).Value
TextBox24 = Tabelle1.Cells(lZeile, 24).Value
TextBox25 = Tabelle1.Cells(lZeile, 25).Value
TextBox26 = Tabelle1.Cells(lZeile, 26).Value
TextBox27 = Tabelle1.Cells(lZeile, 27).Value
TextBox28 = Tabelle1.Cells(lZeile, 28).Value
TextBox29 = Tabelle1.Cells(lZeile, 29).Value


Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist

End If

lZeile = lZeile + 1 'Nächste Zeile bearbeiten

Loop

End If

End Sub


Private Sub TextBox27_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub UserForm_Activate()
'Wenn die Eingabemaske angezeigt wird, markieren wir den ersten Namen
'jedoch nur, wenn auch Einträge in der Liste stehen
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End Sub

'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
Dim lZeile As Long

'Alle TextBoxen leer machen
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox21 = ""
TextBox22 = ""
TextBox23 = ""
TextBox24 = ""
TextBox25 = ""
TextBox26 = ""
TextBox27 = ""
TextBox28 = ""
TextBox29 = ""

'In dieser Routine laden wir alle vorhandenen
'Einträge in die ListBox1
ListBox1.Clear 'Zuerst einmal die Liste leeren

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))

lZeile = lZeile + 1 'Nächste Zeile bearbeiten

Loop

End Sub

Answer 3

Hallo Susanne,

zu deinem Problem 2: Was mir beim drüberschauen über dein erstes Makro aufgefallen ist, ist diese Zeile:
Do While Trim(CStr(Tabelle2.Cells(lZeile, 1).Value)) <> ""
Du prüfst hier einen Zellinhalt in Tabelle2, obwohl sich sonst alles in deiner Tabelle1 abspielt. Ist das so richtig?

zu deinem Problem1:
Ich würde so vorgehen: Füge ein Textfeld ein, in der der Suchbegriff eingegeben werden kann. Dann füge einen Button ein, der die Suche startet. Dem Button kannst du z.B. dieses Makro nutzen:

Private Sub CommandButton1_Click()
Dim strSuche As String
Dim lngLang As Long

strSuche = TextBox1.Value
lngLang = Len(strSuche)

'Inhalt der Listbox1 löschen
UserForm1.ListBox1.Clear

'Nur Daten aus Spalte A in Listbox eintragen, deren Anfang dem Suchbegriff entspricht; durch LCase wird Groß-/Kleinschreibung ignoriert
For i = 2 To Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
If Left(LCase(Worksheets("Tabelle1").Cells(i, 1)), lngLang) = LCase(strSuche) Then UserForm1.ListBox1.AddItem Worksheets("Tabelle1").Cells(i, 1)
Next i

End Sub

Gruß

M.O.

Answer 4

Hallo M.O

vielen vielen lieben Dank für deine Hilfe.

Könntest du mir bitte diese Zeile erklären?
'Inhalt der Listbox1 löschen
UserForm1.ListBox1.Clear


Was genau passiert dort?

Zum anderen Problem, dass ich in meiner Listbox nur einträge bis 188 angezeigt bekomme:

Soll ich dort etwas anderes einsetzten? Gibt es eine unendlich Schleife dir meine spalte nach freien Plätzen absuchen könnte?

Answer 5

Hallo Susanne,

'Inhalt der Listbox1 löschen
UserForm1.ListBox1.Clear

löscht den Inhalt der List-Box, damit nur die Adressen in der Listbox angezeigt werden, deren Anfang mit dem eingegeben Suchbegriff übereinstimmt.

Zum anderen Problem, dass ich in meiner Listbox nur einträge bis 188 angezeigt bekomme:

Ich kenne weder den Code, den du zum Einlesen der Adressen nutzt, noch deine Daten. Ich kann daher nur raten und nehme mal an, bei deinen Adressen ist eine Leerzeile in Spalte A oder - wie bereits in Antwort hingewiesen - du prüfst in der falschen Tabelle, ob Spalte A leer ist und bekommst daher nur 188 Adressen angezeigt.

Du benutzt ja die folgende Schleife:

Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
..
Loop

Dabei wird jedoch nur die Spalte A geprüft. Steht dort in einer Spalte nicht, so wird die Schleife verlassen und du hast deine letzte Zeile eventuell mitten in den Adressen, wie du in deiner Problembeschreibung ja festgestellt hast. Probier mal statt dessen die folgende Version:

Do While Application.CountA(Tabelle1.Rows(lZeile)) <> 0
..
Loop

Hier wird die ganze Zeile überprüft. Nur wenn die ganze Zeile leer ist, wird die Schleife verlassen.

Auf alle Fälle würde ich aber mal deine Daten überprüfen.

Gruß

M.O.

Answer 6

Oh Super :)

Danke, danke, danke.

Das komische. in der 188 steht etwas :(
Es löscht einfach den Wert in A,188

Ich werde das sofort testen und berichten :)

zur Erklärung:
Meine Tabelle beinhaltet Kundendaten (name, vorname, adresse..usw.)
Mit einem Klick auf den passenden Nachnamen
-In Spalte A stehen alle Nachnamen (ca. 1000 Sätze)
Die werden in meiner Listbox1 angezeigt.-
werden weitere Daten wie z.B der Vorname (Spalte B) einfach in einer Textbox angezeigt.
(Habe für jede Textbox eine Spalte von A-Z)

Das Problem bei der Sache, genau ab dem 188 Nachnamen (z.B "Ma") steht bei 189 (z.B "Mb")
nichts mehr in den weieren Textboxen, obwohl in der Exceltabelle werte hinterlegt sind.
Die Textboxen sind einfach nur weiß- kein Wert wird angezeigt.

Wenn ich auf "neuen Eintrag" klicke, springt er automatisch in die 188 Zeile, löscht den Nachnamen (.z.B Ma)
und schreibt in Spalte A mit der Rubrik Nachname "Neuer Eintag 188 Zeile".
Quasi löscht er einen Vorhandenen Eintrag :(

Answer 7

Hallo,

Susanne nochmal.
Und zwar, das mit dein Einträgen bis 188 habe ich dank M.O. hinbekommen. Nochmals Danke danke danke danke.

Nur das mit dem Suchfeld will nicht wirklich.

Habe das :

Private Sub CommandButton1_Click()
Dim strSuche As String
Dim lngLang As Long

strSuche = TextBox1.Value
lngLang = Len(strSuche)

'Inhalt der Listbox1 löschen
UserForm1.ListBox1.Clear

'Nur Daten aus Spalte A in Listbox eintragen, deren Anfang dem Suchbegriff entspricht; durch LCase wird Groß-/Kleinschreibung ignoriert
For i = 2 To Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
If Left(LCase(Worksheets("Tabelle1").Cells(i, 1)), lngLang) = LCase(strSuche) Then UserForm1.ListBox1.AddItem Worksheets("Tabelle1").Cells(i, 1)
Next i

End Sub


Übernommen, aber es kommt der Fehler wenn ich z.B "A" in die Suchleiste einfüge "Fehler beim kompliieren, Variable nicht gefunden" und er verweist auf
For I = 2 To Worksheets


Hoffentlich kann mir da noch jemand helfen.
Gruß

Answer 8

Hallo Susanne,

du hast meinen Code für das Suchen 1:1 zu übernommen. Stimmen denn die Bezeichnungen für die Listbox bzw. Textbox?

Gruß

M.O.

Answer 9

Ja, habe diese passend umbenannt bzw. neue hinzugefügt und den code abgeändert

Answer 10

Mein Fehler- da steht "Variable nicht definiert"