Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmte Zeilen löschen und umwandeln?

Forumthread: Bestimmte Zeilen löschen und umwandeln?

Bestimmte Zeilen löschen und umwandeln?
01.03.2005 11:34:25
Dominik
Hallo zusammen,
habe hier eine Datei https://www.herber.de/bbs/user/18973.xls bei der alle Zeilen ausser der Zeile mit der Mailadresse gelöscht werden und die eMail-Zeile ohne das voranstehende "EMail: " umgewandelt werden sollen so daß nur noch die reinen Mailadressen übrig bleiben die ich dann ins Outlook importieren kann. Hat jemand ein Makro wie sowas zu bewerkstelligen ist? Wäre echt super!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zeilen löschen und umwandeln?
01.03.2005 11:41:38
Mac4
Hi Dominik,
so sollte es gehen:

Sub test()
Dim i
For i = [A65536].End(xlUp).Row To 1 Step -1
If Left(Cells(i, 1), 5) <> "Email" Then
Rows(i).Delete
Else
Cells(i, 1) = WorksheetFunction.Substitute(Cells(i, 1), "Email: ", "", 1)
End If
Next
End Sub

Marc
Anzeige
AW: Bestimmte Zeilen löschen und umwandeln?
01.03.2005 12:10:58
Dominik
Super, hat geklappt - tausend Dank!
AW: Bestimmte Zeilen löschen und umwandeln?
01.03.2005 11:49:16
Tobi
Hi Dominik,
der Befehl REPLACE sollte helfen.
Z.B. =REPLACE(A4;1;7;) In diesem Fall würde im neuen Feld "Email:" nicht mehr
erscheinen.
Gruss
Tobi
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige