Tabellenblatt durchsuchen, Treffer in Listbox anzeigen
Autor
Nachricht
Gast
Verfasst am: 12. Dez 2007, 11:58 Rufname:
Version: Office 2003
Moin moin
Ich will ein gesamtes Tabellenblatt per VBA + UserForm durchsuchen und die Trefferergebnisse in einer Listbox anzeigen lassen. Das ist im Endeffekt so wie, wenn man Strg + F drckt und dann "Alle suchen". Excel vba suchen und in listbox anzeigen auf deutsch. Nur dann will ich die Treffer entsprechend mit einem Hyperlink jeweils versehen, deswegen kann ich die normale Suchfunktion nicht nutzen. Knnt ihr mir da helfen?? Vielen, vielen Dank im Voraus
bst
Programmierer
Verfasst am: 12. Dez 2007, 13:29 Rufname: Bernd
Wohnort: Ilsfeld
Hi,
versuche mal sowas. Bentigt TextBox1 fr den Suchtext, ListBox1 fr das Ergebnis, CheckBox1 fr LookAt, sowie CommandButton1 zum Starten. cu, Bernd
--
Code: Option Explicit
Private Sub CommandButton1_Click()
Dim myLookAt As XlLookAt, strFirstAddress As String, rngFound As Range
If Len() = 0 Then
MsgBox "Nix zu Suchen"
Exit Sub
End If
myLookAt = IIf(, xlPart, xlWhole)
With edRange
Set rngFound = (, LookIn:=xlValues, LookAT:=myLookAt)
If rngFound Is Nothing Then
MsgBox "Nix da"
strFirstAddress = dress(0, 0)
Do
dItem dress(0, 0)
Set rngFound =.
- Excel vba suchen und in listbox anzeigen english
- Schüller besteckeinsatz eiche natur vegan
- Schüller besteckeinsatz eiche natur shop
- Schüller besteckeinsatz eiche nature
Excel Vba Suchen Und In Listbox Anzeigen English
Anfenger schrieb:
dann verwende, wie Unwesen es bereits geschrieben hat, "Contains()". Beachte aber, dass Groß- und Kleinschreibung beachtet wird. "Auto" <> "AUTO" <> "auto". Wenn alle Varianten "gefunden" werden sollen, dass musst du noch "ToLower()" oder "ToUpper()" verwenden:
If (i)ntains( "test") Then
so ich bins nochmal. hat alles gut geklappt. bis auf folgendes problem:
da i jeweils vom datentyp integer ist, werden mir nur zahlen ausgegeben
sobald ich i als string versuche zu deklarieren klappt nicht mal das starten der anwendung. string bringt in der msgbox auch nichts
seht selbst:
For i As Integer = 0 To - 1 'zeile markieren
If (i)ntains( "test") Then 'wenn zeile "test" beinhaltet, dann
MsgBox (i & " wurde gefunden") 'msgbox ausgeben
Else 'sonst
' (nichts)
hab wirklich lange über das problem nachgedacht, bin aber zu keinem ergebniss gekommen. Zeilen mit Kriterium suchen und in ListBox ausgeben Office-Loesung.de. MsgBox ((i). ToString & " wurde in Zeile " & string & " gefunden! ") i ist ja nur der Zeiger auf den Listboxeintrag, also das Item. Mit
lectedIndex = i
wird dann auch noch die Zeile in der Listbox markiert, wo der Fund erfolgte.
Viele Grüße
Michelle
#2
Bitt in Zukunft angeben in was du das Programmierst. Ist es VB6 oder VBA? Wenn VBA, welches Programm. MS Access, Excel, Word? Aber für einen Vergleich auf Deu für Deutschland musst du nicht mit > arbeiten. Sondern mit LIKE denn "A" ist ebenfalls <= als "DEUTSCHLAND"
Visual Basic:
'Am Ende noch ein * hinzufügen, für den LIKE
myTxt = UCase() & "*"
'Hier muss die Logik umgedreht werden: "DEUTSCHLAND" LIKE "DEU*"
If UCase((i)) Like myText Then Exit For
#3
Vielen lieben Dank für deine schnelle Hilfe, es hat funktioniert! Die Erklärung ist natürlich einleuchtend. Excel vba suchen und in listbox anzeigen windows 10. In Zukunft werde ich auch genauer angeben, wo ich die Programmierung hinterlegt haben möchte. #4
Jetzt hätte ich doch noch einmal eine Frage: Leider findet er immer nur den ersten Eintrag der eine Übereinstimmung aufweist
Um mein Versäumnis nachzuholen: Die Programmierung ist in VBA, Word 2010
#5
Jepp. Das ist so. Wie willst du auf die Zweite kommen? Oder willst du die Auswahl eingrenzen? #6
Zuerst: ich habe deinen Code leicht modifiziert damit sich die Suche nicht nur nach den Anfangsbuchstaben richtet ([... ] myTxt = "*" & UCase() & "*" [... ]) ich möchte das er mir alle Übereinstimmungen findet, beispielsweise kommt in der Liste "Republik Korea (Südkorea)" vor und "Südafrika".
Erwerben Sie günstiges Zubehör für Ihre Schüller Küche im Online Shop von Sabine Geisler
In unserm Online Shop gibt es für die Auszüge von Schüller Einbauküchen unterschiedliche Einsätze zu kaufen. Dabei können Sie diese je nach Ihren Bedürfnissen von unserm Team zusammenstellen lassen. Dabei stehen Ihnen verschiedene Auszüge und Innenschubkästen zur Wahl. Bei der Ausstattung Ihrer Schüller Küchenschränke stehen Ihnen in unsrem Online Shop verschiedene Auszüge, Innenauszüge, Einsätze und Organisationen zur Auswahl. Die Universalorganisationen für die Schüller Einbauküchen führen wir in Eiche natur. Für diese Organisationen können Sie die Massivholzstäbe günstig nachkaufen und sind so bei der Einteilung noch flexibler. Die Innenauszüge von Schüller bieten wir unserem Online Shop in verschiedene Schubkastentiefen an. Stratmann Besteckeinsätze Besteckeinsatz »HELFA CLASSIC«, für Schüller next125 Küchen (ab Baujahr 2013), aus Massivholz (Eiche) online kaufen | OTTO. Sie erhalten die Innenauszüge mit Ausgleichsleisten und komplett fertig zur Montage. Zudem haben wir die Innenauszüge in verschiedene Breiten vorrätig. Dasselbe gilt auch bei den Innenschubkästen von Schüller, die wir Ihnen in unterschiedlichen Tiefen und Breiten günstig anbieten können.
Schüller Besteckeinsatz Eiche Natur Vegan
SCHUBKASTEN-AUSSTATTUNG SCHUB-/ZUG-AUSSTATTUNG 8 | MEHRWERTAUSSTATTUNG 2020 MEHRWERTAUSSTATTUNG Eiche natur Korpustiefe 56 cm Beschreibung Breite cm Bestellangaben Artikel An- schlag Porzellan-Vorratsschalen-Set Höhe 6 cm, 4 Stück Korpus: T. 56 cm 4 kleine Schalen mit Deckel in Eiche natur 1 Aufnahmerahmen, Eiche natur Planung: Passend auch für Schubkästen. Schüller besteckeinsatz eiche natur vegan. 11, 4 Z V 11 6 EI Besteckeinsatz, Eiche natur Korpus: T. 56 cm Planung: Für individuelle Planung kann das "Zubehör - Besteckeinsatz" auf die mit Zahlen 10/15/20 gekennzeichneten Felder positioniert werden.
Schüller Besteckeinsatz Eiche Natur Shop
Anfragen bitte ausschließlich per Mail:
Mo-Fr: 9-11 Uhr
Telefon: 0151 5058 0409
Schüller Besteckeinsatz Eiche Nature
Gewürze können Sie auch übersichtlich in den 27 stehenden Gewürzgläsern des Schüller Rahmens aufbewahren. Der Rahmen ist 200 mm breit und lässt somit noch genügend Platz für weitere Besteckeinsätze.
Falls Sie einen Ersatzgriff benötigen oder ein Leuchtmittel für Schüller Beleuchtungen nachbestellen möchten, finden Sie alle Varianten in unserem Angebot. Gerade bei den Griffen haben wir eine große Auswahl und können Ihnen alle Original Ersatzteile von Schüller anbieten. Schüller Tiefenausgleich-Besteckeinsatz Eiche natur - versandkostenfrei - Küchen Geisler. In unserem Online Shop finden Sie neben den Ersatzteilen auch verschiedenste Beschläge, Scharniere und Dämpfungen für Schubkästen oder Schränke. Gerade diese Kleinteile machen die Schüller Einbauküchen so besonders und komfortabel im täglichen Gebrauch. Sämtliche Zubehörteile und Ersatzteile von Schüller Küchen erhalten Sie von uns versandkostenfrei zugestellt.