Office: mehrmals vorkommenden String in Spalte suchen

tkirsten · 19. Juli 2009

Hallo zusammen!

Ich habe ein Tabellenbaltt in dem in der ersten Spalte ein bestimmtes Wort mehrmals vorkommt. Um genau zu sein 3 Mal.

Nun interessiert mich die jeweilige Nummer der Zeile in dem das Wort steht.
Ich habe bereits einen Code gefunden, für den ich das erste und das letzte herausbekomme, welches ich über die Suchrichtung steuere.
Mit "FindNext" kann ich sicher auch an das dritte in der Mitte kommen. Allerdings sind alle Versuche, es vernünftig einzubauen, gescheitert. Vielleicht kann mir jemand ein wenig beim Syntax unter die Arme greifen!?
Das Skript unten funktioniert soweit, hat nur den Nachteil, dass ich lediglich das 1. und das 3. Wort rausbekomme *frown.gif* ausserdem sucht es nicht in einer Zeile sondern überall .... :-(

Vielen Dank und Grüße
Timo

Code:

Sub test()

Dim temp_1 As String
Dim temp_3 As String

With Sheets("SHAD")
temp_1 = .Cells.Find(what:="ISO", lookat:=xlPart, SearchOrder:=xlByColumns).Row
temp_3 = .Cells.Find(what:="ISO", lookat:=xlPart, SearchOrder:=xlByColumns, searchdirection:=xlPrevious).Row
MsgBox (temp_1)
MsgBox (temp_3)
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

chris-kaiser · 21. Juli 2009

Hallo Timo

ich habe das ein weinig dokumentiert.
darum ist es ein wenig länger geworden

Code:

Sub test()
Dim obgef As Object, firstmatch As String
Dim foundISO(), zähler As Integer, icount As Integer
'suche im Blatt SHAD in Spalte 1 (A)
With Sheets("SHAD").Columns(1)
Set obgef = .Find(what:="ISO", lookat:=xlPart, SearchOrder:=xlByColumns)
'wenn was gefunden worden ist
If Not obgef Is Nothing Then
'merke Dir die ERSTE gefundene Zelle
firstmatch = obgef.Address
'Schleife
Do
'ändere die Größe des Arrays
ReDim Preserve foundISO(zähler)
'setze den eintrag im Array (Zeilennummer)
foundISO(zähler) = obgef.Row
'erhöhe den Zähler für das Array
zähler = zähler + 1
'suche weiter in Spalte 1
Set obgef = .FindNext(obgef)
'mach das so lange bis entweder nichts mehr gefunden wird oder die erste Zellenadresse wieder erreicht wurde
Loop While Not obgef Is Nothing And firstmatch obgef.Address
End If
End With
'was damit gemacht werden sollte?
'diese letzen Codezeilen sind nur zur Demo wie die Werte wieder aus dem Array genommen werden können

'gebe die gefundenen Zeilen die im Array abgelegt sind aus
For icount = 0 To UBound(foundISO)
MsgBox "in Zeile " & foundISO(icount)
Next
'hier noch eine Ausgabe der insgesamt gefundenen Treffer
MsgBox "insgesamt waren es " & UBound(foundISO) + 1 & " Treffer"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tkirsten · 21. Juli 2009

Wow, danke für die ausgiebige Antwort! Klingt prima!

Wird ausprobiert ... Melde mich dann wieder

Grüße
Timo

tkirsten · 21. Juli 2009

Hallo nochmal!

Funktioniert traumhaft. Hab allerdings für meine Zwecke die Schleife entfernt und die Abfrage, weil der String immer 3 Mal vorkommt!

Vielen Dank und Grüße nochmal
Timo

Office: mehrmals vorkommenden String in Spalte suchen

mehrmals vorkommenden String in Spalte suchen

mehrmals vorkommenden String in Spalte suchen

mehrmals vorkommenden String in Spalte suchen

mehrmals vorkommenden String in Spalte suchen - Similar Threads - mehrmals vorkommenden String

VBA: Variable Anzahl Zeilen mit Suchkriterien finden und kopieren

Zeilen kopieren, mehrmals einfügen in Abhängigkeit von weiteren Daten

VBA Filecopy, gleiches PDF mehrmals unter anderem Namen speichern

Schleife mehrmals durchlaufen

Aufgabe (Excel-Datei) lässt sich nicht mehrmals bearbeiten.

Outlook Adressbuch: Kontakte mehrmals angezeigt (e-mail + fax etc.)

Index-Vergleich mit variablen Suchbreich