Text in Zellen suchen

Guten Abend,
ich bin mal wieder auf Hilfe angewiesen und hoffe diese hier zu finden.
Ich habe eine csv. Datei aus einer Anwendung exportiert.
Diese enthält 220 Zeilen und ca. 30 Spalten. In jeder Zeile befindet sich eine Zelle, in der ein sehr sehr langer Text steht. In jeder dieser 220 Zellen mit dem langen Text muß ich einen Satz finden und löschen, eventuell auch ersetzen, da bin ich mir noch nicht ganz sicher. Anschließend soll das geänderte Werk dann wieder in die Anwendung importiert werden.
Mit Strg+F ist dieses Problem nicht zu bewältigen. Der Suchbegriff hat auch ca. 200 Zeichen und läßt sich in das Suchen Fenster erst gar nicht hineinkopieren. Es wäre ganz toll, wenn mir jemand sagen kann, wie ich am Besten vorgehen soll.
Gruß Oliver Barz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub weg_oder_neu() Dim zelle As Range On Error Resume Next For Each zelle In Range("a1:ad220") If zelle.Value = "Dein gesuchter Satz" _ Then zelle.ClearContents 'then zelle.value="Dein neuer Satz" Next End Sub

hallo oliver
im prinzip machen beide codes im moment das selbe.
sie löschen den gesuchten satz aus jeder zelle im bereich a1:ad220 in der er vorhanden ist.
nur der weg dahin ist verschieden.
der erste code würde den satz allerdings auch finden wenn er nicht alleine in einer zelle steht. entspricht der tabellenfunktion wechseln().
dafür ist er aber auch bedeutend langsamer.
der zweite code löscht alle zellen in denen NUR dein gesuchter satz steht.
hoffe ich habe mich verständlich genug ausgedrückt.
Public


Sub wechseln()
Dim zelle As Range
On Error Resume Next
For Each zelle In Range("a1:ad220")
zelle = WorksheetFunction.Substitute(zelle, "dein gesuchter satz", "") 'ersetzt den gesuchten satz durch "" (leer)
Next
End Sub

Public


Sub weg_oder_neu()
Dim zelle As Range
On Error Resume Next
For Each zelle In Range("a1:ad220")
If zelle.Value = "Dein gesuchter Satz" _
Then zelle.ClearContents 'löscht den inhalt der zelle in der der satz steht
'then zelle.value="Dein neuer Satz" würde einen neuen wert in die zelle schreiben
' dazu musst du das hochkomma vor then zelle.value="Dein neuer Satz" und die zeile:Then zelle.ClearContents löschen
Next
End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text in Zellen suchen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread