Bestimmte Zeilen löschen und umwandeln?

Bild

Betrifft: Bestimmte Zeilen löschen und umwandeln? von: Dominik
Geschrieben am: 01.03.2005 11:34:25

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!

Bild


Betrifft: AW: Bestimmte Zeilen löschen und umwandeln? von: Mac4
Geschrieben am: 01.03.2005 11:41:38

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


Bild


Betrifft: AW: Bestimmte Zeilen löschen und umwandeln? von: Dominik
Geschrieben am: 01.03.2005 12:10:58

Super, hat geklappt - tausend Dank!


Bild


Betrifft: AW: Bestimmte Zeilen löschen und umwandeln? von: Tobi
Geschrieben am: 01.03.2005 11:49:16

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Zeilen löschen und umwandeln?"