Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl der gefunden Suchbegriffe

Anzahl der gefunden Suchbegriffe
15.03.2005 10:25:26
Günter
Guten Tag!
Ich habe unten aufgeführtes Makro aus dem Forum.
Hier wird über eine Formular-Userform ein Suchbegriff
eingegeben und die gefundenen Werte werden dargestellt.
Kann mir jemand ein Tipp geben, wie ich es anstellen könnte,
die Anzahl der gefundenen Suchbegriffe darzustellen ?!

Private Sub cmdSearch_Click()
Dim rng As Range
Dim sFirst As String
Dim sFind As String
Dim sMod As XlLookAt
Dim n As Integer, i As Integer
Dim arrG
Dim arrL
Dim chkMod
If txtSearch = "" Then Exit Sub
ListBox1.Clear 'Listbox leeren
'Textboxen leeren
For n = 0 To 9
Controls("txt" & n + 1) = ""
Next
n = 0
'Überschriftenzeile
ListBox1.AddItem Sheets("Bestandsprotokoll").Cells(11, 1)
For n = 0 To 9
ListBox1.List(i, n) = Sheets("Bestandsprotokoll").Cells(11, n + 1)
Next
i = i + 1
sFind = txtSearch
sMod = xlWhole
'Suchen
Application.Cursor = xlWait 'Sanduhr
Set rng = Sheets("Bestandsprotokoll").Cells.Find(What:=sFind, LookIn:=xlValues, LookAt:=sMod)
If Not rng Is Nothing Then
sFirst = rng.Address
Do
ListBox1.AddItem Sheets("Bestandsprotokoll").Cells(rng.Row, 1)
For n = 0 To 9
ListBox1.List(i, n) = Sheets("Bestandsprotokoll").Cells(rng.Row, n + 1)
Next
i = i + 1
'weitersuchen bis zur letzten Fundstelle
Set rng = Sheets("Bestandsprotokoll").Cells.FindNext(rng)
Loop While rng.Address <> sFirst
End If
Application.Cursor = xlDefault 'Normal
If ListBox1.ListCount > 1 Then ListBox1.ListIndex = 1
End Sub

Grüße
Günter

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

Betreff
Datum
Anwender
Anzeige
ListBox1.ListCount
15.03.2005 10:43:44
IngoG
Hallo Günter
was ist denn mit
ListBox1.ListCount
dort steht doch die anzahl deiner Einträge drin ;-)
Gruß Ingo
AW: ListBox1.ListCount
15.03.2005 13:08:25
Günter
Hallo Ingo!
Aber wie bringe ich den Wert in die Userform ?
Gruss
Günter
AW: ListBox1.ListCount
15.03.2005 15:41:34
IngoG
Hallo Günter
einfach irgendwo in der UF eine neue Textbox einfügen und mit
label1.caption=ListBox1.ListCount
zuweisen...
Gruß Ingo
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige