Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA-Alternative zu „suchen und ersetzen“

VBA-Alternative zu „suchen und ersetzen“
23.01.2017 12:00:10
MichaelP
Hallo Zusammen,
in der Suche habe ich nichts direktes gefunden - deshalb probier ich es hier:
Ich suche für Excel eine VBA-Alternative zu „suchen und ersetzen“ damit ich diese Textfeld, was über mehrere Zeilen, und Umbrüche der Zelle gehen, komplett löschen kann.
In der Spalte E sind bis zu 400 Zellen, wo diese Daten ab hier zu entfernen sind:
-------Unterschrift -------
Anmerkung: der Text darunten variiert immer - deshalb "ab" wie gesagt, der gesamte Textblock darunter kann gelöscht werden ...
Vielen Dank im vorab für die Hilfe.
Grüße
Michael

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

Betreff
Datum
Anwender
Anzeige
AW: VBA-Alternative zu „suchen und ersetzen“
23.01.2017 12:47:49
ChrisL
Hi Michael
Vielleicht so...
Sub t()
Dim rng As Range
For Each rng In Range("E1:E" & Cells(Rows.Count, 5).End(xlUp).Row)
If InStr(rng, "-------Unterschrift -------") Then
rng = Left(rng, InStr(rng, "-------Unterschrift -------") - 2)
End If
Next rng
End Sub

cu
Chris
AW: VBA-Alternative zu „suchen und ersetzen“
23.01.2017 12:59:48
MichaelP
Hi Chris,
danke Dir - ich bin begeistert! :-)
Schöne Grüße
Michael
Anzeige

356 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige