Office: Platzhalter beim Durchsuchen von Text in Zellen

tobitobsn · 2. November 2008

Moin,

also ich bin langsam am verzweifeln... Sobald ich Application.WorksheetFunction oder Evaluate benutzen will, bricht er immer die Sub Routine ab.

Leider habe ich kein Excel 2003 zum nachvollziehen, aber anders, als das Problem in Excel 2007 zu suchen, kann ich es mir nicht vorstellen. Zumal Excel 2007 das Schließen des Programms auch immer mit einer Fehlermeldung (Excel muss beendet werden) quitiert.

Wenn ich mit ActiveCell.Value = Replace(.Value, "< font color=" & Chr(34), "", 1, , vbTextCompare) den ersten Teil lösche, gibt es die Möglichkeit, einfach zu sagen, dass die nächsten 9 Zeichen auch gelöscht werden sollen, ohne die Application.WorksheetFunction zu nutzen? Weil wenn font color auftaucht, dann ist das Tag auch immer gleichlang.

gruß tobsn

IngGi · 2. November 2008

Hallo tobsn,

die ersten 9 Zeichen einer Zelle lassen sich mit folgender Codezeile löschen:
Code:

Range("A1") = Right(Range("A1"), Len(Range("A1")) - 9)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

tobitobsn · 3. November 2008

Moin,

so, habe euren Input umgesetzt und noch ein wenig weiterbearbeitet, denn es kam auch vor, dass das font tag 2x auftauchte.

Ergebnis des gesamten Codes als Sub Routine zum Entfernen von gängigen HTML Codes aus Zellinhalten:
(Wichtig: das Font Tag ist in diesem Fall immer 22 Zeichen lang)
Code:

Sub HTMLcut(akt_pos As Integer)

Dim lngPosFettSta As Long
Dim lngPosFettSto As Long
Dim lngPosULSta As Long
Dim lngPosULSto As Long
Dim firstaddress As Long

With ActiveCell
.Value = Replace(.Value, "< html>", "", 1, , vbTextCompare)
.Value = Replace(.Value, "< body>", "", 1, , vbTextCompare)
.Value = Replace(.Value, " ", Chr(10), 1, , vbTextCompare)
.Value = Replace(.Value, "", "", 1, , vbTextCompare)
.Value = Replace(.Value, "", "", 1, , vbTextCompare)
.Value = Replace(.Value, "", "", 1, , vbTextCompare)
.Value = Replace(.Value, "", "", 1, , vbTextCompare)
.Value = Replace(.Value, "", "", 1, , vbTextCompare)
.Value = Replace(.Value, "", "", 1, , vbTextCompare)
.Value = Replace(.Value, "", "", 1, , vbTextCompare)
.Value = Replace(.Value, "< /body>", "", 1, , vbTextCompare)
.Value = Replace(.Value, "< /html>", "", 1, , vbTextCompare)
Do
firstaddress = InStr(1, .Value, " 1 Then
.Value = Left(.Value, (firstaddress - 1)) & Right(.Value, Len(.Value) - (firstaddress + 21)) 'firstaddress + 22 - 1
' MsgBox (firstaddress - 1)
End If
Loop While InStr(1, .Value, "< font color=")
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke, jungs, für die hilfe.

gruß tobsn

Office: Platzhalter beim Durchsuchen von Text in Zellen

Platzhalter beim Durchsuchen von Text in Zellen

Platzhalter beim Durchsuchen von Text in Zellen

Platzhalter beim Durchsuchen von Text in Zellen - Similar Threads - Platzhalter Durchsuchen Text

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Zelle mit grauem Platzhalter versehen? (Ausfüllhinweis)

Word-Formulr ohne Platzhalter drucken

Werte aus Tabellenfeldern in Richtext-Boxen integrieren bzw. zusammen zu führen. (Platzhalter)

Extras, Optionen, Ansicht, Platzhalter für Grafiken deaktivieren

Outlook Regel mit Platzhalter Bestellnummer

Index Funktion mit Platzhalter