Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text suchen und Suche fortsetzen

Text suchen und Suche fortsetzen
15.10.2004 15:53:37
Michael
.
Servus Forum-Aktive,
ich möchte in einer Tabelle, Spalte C,
einen Text suchen, z.B. "*love*".
Anschliessend soll die Suche nach dem gleichen
Such-Text, in der gleichen Tabelle, bis zum
Ende der Zeilen mit Text-Inhalt
fortgesetzt werden.
Jedesmal wenn der Such-Text gefunden wurde,
soll die Zeilen-Nummer ausgegeben werden und
die Zeile mit den Feldern "A" bis "G" soll
in ein anderes Tabellen-Blatt kopiert werden.
Ich suche für diesen Vorgang sehr kurze
VBA-Funktionen.
Wer weis Rat wie so etwas geht ?
Vielen Dank im Voraus.
Gruss Michael

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

Betreff
Datum
Anwender
Anzeige
AW: Text suchen und Suche fortsetzen
Dieter
Hallo Michael
hast du schon die Recherche bemüht? Dein Problem ist schon zig-Mal abgehandelt worden!
Gruß Dieter
AW: Text suchen und Suche fortsetzen
harry
hi,
versuchs mal so:
With ActiveSheet.Columns(3)
Set c = .Find("love", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
HIER DIE ÄNDERUNGEN PROGRAMMIEREN
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
liebe grüße,
harry
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige