AW: HTML Tags in Spalte löschen
30.01.2006 15:03:39
MichaV
Hallo,
füge dieses Makro in ein Modul ein (rechte Maustatste auf den Tabellennamen unten links, dann "Code einfügen", dann "Einfügen- Modul". Rechts folgenden Code reinkopieren):
Option Explicit
Sub Formatieren()
Dim a As Long, e As Long
Dim Zelle As Range
Dim x As String
For Each Zelle In Selection
x = " " & Zelle
'Maskierungen raus
x = Replace(x, " ", " ")
x = Replace(x, " ", " ")
x = Replace(x, """, """")
x = Replace(x, """, """")
'Zeilenumbrüche wandeln
x = Replace(x, "\r\n", " " & vbLf)
x = Replace(x, "\n\r", " " & vbLf)
'Alles vom Tag- Ende bis zum Leerzeichen davor raus
Do Until InStr(x, ">") = 0
e = InStrRev(x, ">")
a = InStrRev(x, " ", e)
x = Mid(x, 1, a - 1) & Mid(x, e + 1)
Loop
Zelle = Trim(x)
Next
End Sub
Dann markiere in Excel die betreffenden Zellen, drücke "Alt+ F8" und starte das Makro.
Gruß- Micha
PS: Rückmeldung wäre nett.
PPS: Was Klaus- Dieter meinte, stimmt schon: Die Tags sind unvollständig und es sind weiterhin teilweise fehlerhafte HTML- Sonderzeichen enthalten. Für Deine Beispielzeilen funzt das Makro gut, keine Garantie dafür, daß bei weiteren Zeilen Fehler auftreten (Tags nicht entfernt werden oder zu viel entfernt wird). Daher ist Klaus- Dieters Vorschlag, die Daten gleich "richtig" zum importieren, auf jeden Fall der bessere Weg.