Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Was ist Asc 160 ?

Was ist Asc 160 ?
14.06.2004 11:38:01
Nike
Hi,
ich hab nen Html import und versuche gerade die Leerzeichen weg zu bekommen,
nun darf ich erkennen, das es sich nicht um Leerzeichen (ASC=30)
handelt, sondern um Asc 160 was ist denn das?
Kann mir da jeman nen Tip geben, wie ich die weg bekomme?
Trim bzw Suchen und Ersetzen mit Leerzeichen funkt nicht...
Ein Hinweis waere nett.
Bye
Nike

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Was ist Asc 160 ?
Ulf
cells.replace chr(160),""
Ulf
AW: Was ist Asc 160 ?
Nike
Hi Ulf,
kurz und knackig,
genau was ich gesucht hab,
danke ;-)
Bye
Nike
AW: Was ist Asc 160 ?
Klaus
Kleiner Ansatz:

Function HTMLEncode(ByVal Text As String) As String
Dim i As Long
Dim Ascii As Long
'Ggf. HTML-Spezies ersetzen:
If InStr(Text, "&") Then Text = Replace(Text, "&", "&")
If InStr(Text, """") Then Text = Replace(Text, """", """)
If InStr(Text, "<") Then Text = Replace(Text, "<", "<")
If InStr(Text, ">") Then Text = Replace(Text, ">", ">")
'Sonderzeichen durch Asc-Code ersetzen:
For i = Len(Text) To 1 Step -1
Ascii = Asc(Mid$(Text, i, 1))
If Ascii >= 160 Then
Text = Left$(Text, i - 1) _
& "" & CStr(Ascii) & ";" _
& Mid$(Text, i + 1)
End If
Next i
HTMLEncode = Text
End Function

Anzeige
AW: Was ist Asc 160 ?
Nike
Hi,
ich wollte das Zeig nur loswerden, aber danke fuer den Ansatz.
Bye
Nike
AW: Was ist Asc 160 ?
16.06.2004 13:36:17
Otto
Hallo Nike,
Meine Testumgebung: Excel 9.0 SR-1, Multilingual unter Windows 2000 SP-4
wenn ich mich nicht sehr irre ist das der &nbsp;
Gruß Otto

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige