Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
03.10.2025 18:57:58
Ersatz für PrettyCode.Print
03.10.2025 12:02:13
leere Zeilen nicht drucken (trotz Kontrollkästchen)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchmaschine

Forumthread: Suchmaschine

Suchmaschine
19.12.2007 23:49:28
Cordt-Erik
Hallo zusammen,
ich habe eine kleine Suchmaschine als Beispiel im Anhang, die nicht so funzt wie sie soll....
https://www.herber.de/bbs/user/48554.xls
Die genaue Beschreibung des Problems, was wahrscheinlich gar keins ist, ist in der Tabelle.
Könnte mal jemand schauen?
Vielen Dank & beste Grüsse,
Erik

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchmaschine
20.12.2007 00:02:00
Josef
Hallo Erik,
Private Sub CommandButton1_Click()
Dim rng As Range
Dim strFirst As String

ListBox1.Clear

Set rng = Sheets("Namen").Range("A:A").Find(What:=TextBox1, LookAt:=xlPart)

If Not rng Is Nothing Then
    strFirst = rng.Address
    
    Do
        
        With ListBox1
            .AddItem rng.Text
            .List(.ListCount - 1, 1) = rng.Offset(0, 1).Text
            .List(.ListCount - 1, 2) = rng.Offset(0, 2).Text
        End With
        
        Set rng = Sheets("Namen").Range("A:A").FindNext(rng)
        
    Loop While Not rng Is Nothing And strFirst <> rng.Address
    
End If

End Sub

Gruß Sepp

Anzeige
AW: Suchmaschine
20.12.2007 00:12:22
Daniel
Hi
wenn du daten aus dem anderen Sheet hohlen willst, musst du immer auch dazuschreiben, aus welchem Sheet.
das sieht dann so aus:

Private Sub CommandButton1_Click()
With UserForm1
.ListBox1.Clear
e = 0
For i = 2 To Sheets("Namen").UsedRange.Rows.Count
If InStr(LCase(Sheets("Namen").Cells(i, 1).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Sheets("Namen").Cells(i, 1).Value
.ListBox1.Column(1, e) = Sheets("Namen").Cells(i, 2).Value
.ListBox1.Column(2, e) = Sheets("Namen").Cells(i, 3).Value
e = e + 1
Else
End If
Next i
End With
End Sub


gruß, Daniel

Anzeige
AW: Suchmaschine
20.12.2007 00:15:00
Cordt-Erik
Danke Sepp & Daniel, für die Hilfe zu später Stunde !!!!
Gruss,
Erik
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige