Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
576to580
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
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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!

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige