Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Bestimmte Zeilen löschen und umwandeln?"
Befindet sich die aktive Zelle in einem bestimmten Bereich? Werte eins bestimmten Monats summieren
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen Alle Links zu einer bestimmten Arbeitsmappe löschen
Anzahl eines bestimmten Wochentages im Monat Alle Dateien ab einem bestimmten Datum listen
Daten eines bestimmten Jahres filtern Word mit bestimmtem Dokument starten
Bestimmte Anzahl von Zeichen zulassen Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen