Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einträge von A2:Q - suchen in UF

Einträge von A2:Q - suchen in UF
A2:Q
Hallo Leute
Ich habe eine UF, wo ich in TextBox20 einen Wert eingebe und bei Klick auf CommandButton1
Werden mir in der ListBox1 alle Werte die ungefähr oder gleich lauten von Sheets "Liste" angezeigt.
Das funktioniert auch sehr gut.
Aber es werden nur Werte angezeigt die in der Spalte A in " Liste" stehen.
Wenn ich in TextBox20 einen Wert eingebe der in "Liste" Spalte B steht dann kommt die MsgBox "Leider kein Wert gefunden"
Also ich möchte gerne das in "Liste A2:Q" alles durchsucht wird und nicht nur in Spalte A
Könnte mir dazu bitte jemand weiterhelfen.
Gruß
Heinz
Private Sub CommandButton1_Click()
Dim WkSh         As Worksheet  ' die Variable nimmt ein Excel-Sheet auf
Dim lZeile       As Long       ' Lauf-Variable für die Schleife
Dim f            As Integer
Dim LetzteZeile  As Integer    ' damit wir wissen bis wohin eigentlich
Dim SuchString   As String
Dim s            As String
ListBox1.Clear  ' Löscht den alten Suchantrag
Set WkSh = Worksheets("Liste") 'Zuordnung der Adressens-Tabelle
WkSh.Unprotect
LetzteZeile = WkSh.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'Excel sagt mir bis wohin
'einen Suchstring erzeugen aus den Eingaben
SuchString = Trim(UCase(TextBox20.Text)) '& Trim(UCase(TextBox2.Text))
For lZeile = 2 To LetzteZeile ' Schleife zum Suchen
'Vergleichsstring erzeugen aus den Zellen
s = UCase(Trim(WkSh.Cells(lZeile, 1))) & UCase(Trim(WkSh.Cells(lZeile, 2)))
If SuchString = s Then Exit For  ' raus wenn gefunden - wenn absolut identisch
'        raus wenn ähnlich (nur Nachname z. B.
If Left(s, Len(SuchString)) = SuchString Then Exit For
Next lZeile
If lZeile > LetzteZeile Then ' es wurde nichts gefunden
MsgBox (" Leider kein Eintrag gefunden... "), _
48, "   Hinweis für " & Application.UserName
Exit Sub
End If
Me.TextBox1 = WkSh.Cells(lZeile, 1).Value   'Spalte A=Familienname
Me.TextBox2 = WkSh.Cells(lZeile, 2).Value   'Spalte B=Vorname
Me.TextBox3 = WkSh.Cells(lZeile, 3).Value   'Spalte C=Adresse
Me.TextBox4 = WkSh.Cells(lZeile, 4).Value   'Spalte D=Ort
Me.TextBox5 = WkSh.Cells(lZeile, 5).Value   'Spalte E=PLZ
Me.TextBox6 = WkSh.Cells(lZeile, 6).Value   'Spalte F=Bundesland
Me.TextBox7 = WkSh.Cells(lZeile, 7).Value   'Spalte G=Tel.Privat
Me.TextBox8 = WkSh.Cells(lZeile, 8).Value   'Spalte H=Handy Privat
Me.TextBox9 = WkSh.Cells(lZeile, 9).Value   'Spalte I=Fax Privat
Me.TextBox10 = WkSh.Cells(lZeile, 10).Value 'Spalte j=Email Privat
Me.TextBox11 = WkSh.Cells(lZeile, 11).Value 'Spalte K=Tel.Firma
Me.TextBox12 = WkSh.Cells(lZeile, 12).Value 'Spalte L=Handy Firma
Me.TextBox13 = WkSh.Cells(lZeile, 13).Value 'Spalte M=Fax Firma
Me.TextBox14 = WkSh.Cells(lZeile, 14).Value 'Spalte N=Email Firma
Me.TextBox15 = WkSh.Cells(lZeile, 15).Value 'Spalte O=Webadresse
Me.TextBox16 = WkSh.Cells(lZeile, 16).Value 'Spalte P=Geburtstag
Me.TextBox17 = WkSh.Cells(lZeile, 17).Value 'Spalte Q=ICQ Nummer
For lZeile = 1 To LetzteZeile
If Len(TextBox20.Text) 


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Einträge von A2:Q - suchen in UF
06.09.2009 01:48:02
A2:Q
Hallo Heinz,
ungefähr so müsste es funktionieren. Da im Blindflug angepasst ohne Gewähr auf Funktion.
Gruß
Franz
Private Sub CommandButton1_Click()
Dim WkSh         As Worksheet  ' die Variable nimmt ein Excel-Sheet auf
Dim lZeile       As Long       ' Lauf-Variable für die Zeile in Schleife
Dim lSpalte      As Long       ' Lauf-Variable für die Spalte in Schleife
Dim bolGefunden  As Boolean    ' Status für Suchbegriff gefunden
Dim f            As Integer
Dim LetzteZeile  As Integer    ' damit wir wissen bis wohin eigentlich
Dim SuchString   As String
Dim s            As String
listbox1.Clear  ' Löscht den alten Suchantrag
Set WkSh = Worksheets("Liste") 'Zuordnung der Adressens-Tabelle
WkSh.Unprotect
LetzteZeile = WkSh.UsedRange.SpecialCells(xlCellTypeLastCell).Row 'Excel sagt mir bis wohin
'einen Suchstring erzeugen aus den Eingaben
SuchString = Trim(UCase(Textbox20.Text)) '& Trim(UCase(TextBox2.Text))
bolGefunden = False
'Name + Nachname finden in Spalten A und B finden
For lZeile = 2 To LetzteZeile ' Schleife zum Suchen
'Vergleichsstring erzeugen aus den Zellen
s = UCase(Trim(WkSh.Cells(lZeile, 1))) & UCase(Trim(WkSh.Cells(lZeile, 2)))
If SuchString = s Then
bolGefunden = True
Exit For  ' raus wenn gefunden - wenn absolut identisch
End If
Next lZeile
If bolGefunden = True Then GoTo DatenEinlesen
'Name/Teilname finden in Spalten A und B finden
For lZeile = 2 To LetzteZeile ' Schleife zum Suchen
'Vergleichsstring erzeugen aus den Zellen
s = UCase(Trim(WkSh.Cells(lZeile, 1))) & UCase(Trim(WkSh.Cells(lZeile, 2)))
If Left(s, Len(SuchString)) = SuchString Then
bolGefunden = True
Exit For '  raus wenn ähnlich (nur Nachname z. B.
End If
Next lZeile
If bolGefunden = False Then 'keine genaue Übereinstimmung gefunden
GoTo AlleZellen
End If
DatenEinlesen:
Me.TextBox1 = WkSh.Cells(lZeile, 1).Value   'Spalte A=Familienname
Me.TextBox2 = WkSh.Cells(lZeile, 2).Value   'Spalte B=Vorname
Me.TextBox3 = WkSh.Cells(lZeile, 3).Value   'Spalte C=Adresse
Me.TextBox4 = WkSh.Cells(lZeile, 4).Value   'Spalte D=Ort
Me.TextBox5 = WkSh.Cells(lZeile, 5).Value   'Spalte E=PLZ
Me.TextBox6 = WkSh.Cells(lZeile, 6).Value   'Spalte F=Bundesland
Me.TextBox7 = WkSh.Cells(lZeile, 7).Value   'Spalte G=Tel.Privat
Me.TextBox8 = WkSh.Cells(lZeile, 8).Value   'Spalte H=Handy Privat
Me.TextBox9 = WkSh.Cells(lZeile, 9).Value   'Spalte I=Fax Privat
Me.TextBox10 = WkSh.Cells(lZeile, 10).Value 'Spalte j=Email Privat
Me.TextBox11 = WkSh.Cells(lZeile, 11).Value 'Spalte K=Tel.Firma
Me.TextBox12 = WkSh.Cells(lZeile, 12).Value 'Spalte L=Handy Firma
Me.TextBox13 = WkSh.Cells(lZeile, 13).Value 'Spalte M=Fax Firma
Me.TextBox14 = WkSh.Cells(lZeile, 14).Value 'Spalte N=Email Firma
Me.TextBox15 = WkSh.Cells(lZeile, 15).Value 'Spalte O=Webadresse
Me.TextBox16 = WkSh.Cells(lZeile, 16).Value 'Spalte P=Geburtstag
Me.TextBox17 = WkSh.Cells(lZeile, 17).Value 'Spalte Q=ICQ Nummer
If bolGefunden = False Then GoTo Ende
AlleZellen:
'Alle Zellen in den Spalten 1 bis 17 (A bis Q) durchsuchen
For lZeile = 1 To LetzteZeile
For lSpalte = 1 To 17
If Len(Textbox20.Text) 

Anzeige
AW: Einträge von A2:Q - suchen in UF
08.09.2009 08:28:52
A2:Q
Hallo Franz
Sorry das ich erst heute Antworte
Du bist einfach G E N I A L - Echt S U P E R - Genau so
Recht herzlichen DANK
Gruß
Heinz

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige