HERBERS Excel-Forum - das Archiv
Thema: Trim Funktion
-
Trim FunktionDietz
-
oT: Vorinfo ......
Trim Funktion
Dietz
Hallo Forum,
ich hab knapp 20000 Zeilen und in jeder Zelle hab ich am Ende ein Leerzeichen. Versuche ich die Zellen mit Trim zu kürzen dann funktioniert es nicht. Ich werde da irgendwie nicht schlau draus. In der Vergangenheit hat das stets funktioniert.
Kann jemand helfen?
Gruß
Dietz
AW: vielleicht ist es ja kein Leerzeichen ...
...
Hallo Dietz,
.. gib mal folgende Formel ein: =CODE(RECHTS(A1;1))
Nur wenn das Ergebnis eine 32 ist ist es ein Leerzeichen.
Gruß Werner
.. , - ...
AW: für engl. Version: =CODE(RIGHT(A1,1)) owT
...
Gruß Werner
.. , - ...
AW: für engl. Version: =CODE(RIGHT(A1,1)) owT
Dietz
Danke Neopa C,
es kommt eine 160 raus.
Hab folgenden Code gefunden der mir die ganze Spalte umformatiert. Es scheint, wie es aussieht, zu funktionieren. Wie kommt so etwas überhaupt zu Stande das Trim nicht funktioniert bzw. eine 160 und nicht eine 32 als Ergebnis raus kommt. Erfolgt die Eingabe anders?
Sub TrimmenVonWerten()
Dim Bereich As Range
Dim Zeilemax As Long
Dim zelle As Range
With ActiveSheet
Zeilemax = .UsedRange.Rows.Count
Set Bereich = .Range("A2:B" & Zeilemax)
For Each zelle In Bereich
If IsError(zelle.Value) = False Then
zelle.Value = Trim(zelle.Text)
zelle.Value = Replace(zelle.Value, Chr(160), "")
End If
Next zelle
End With
End Sub
Dietz
AW: für engl. Version: =CODE(RIGHT(A1,1)) owT
Luschi
Hallo Dietz,
das Zeichen mit dem ASCII-Code '160' sieht aus wie ein Leerzeichen, hat die selbe Zeichenbreite - ist aber was ganz Anderes. In Winword wird dieses Zeichen genutzt für das 'geschützte Leerzeichen', um Wortgruppen nicht durch einen Zeilenumbruch zu trennen!
Sowas benutzen gern Datenlogger um Daten zu trenndn.
Gruß von Luschi
aus klein-Paris
oT: Vorinfo ...
...
Hallo Luschi,
... ich rufe Dich heute am späteren Nachmittag mal an. Wäre das ok?
Gruß Werner
.. , - ...
AW: dazu müsste man wissen, ...
...
Hallo Dietz,
... wie die Daten entstanden sind. Duch reine Eingabe kann ich es mir nicht vorstellen. Ich vermute eher durch Kopieraktionen aus anderen Programmergebnissen oder sonst woher.
Suchen und Ersetzen derartiger Zeichen (sofern man weiß bzw. herausgefunden hat, was es für ein Zeichen es ist, kann man übrigens auch mit der Standardfunktion von Excel.
Gruß Werner
.. , - ...
Trim Funktion
Dietz
Hallo Forum,
ich hab knapp 20000 Zeilen und in jeder Zelle hab ich am Ende ein Leerzeichen. Versuche ich die Zellen mit Trim zu kürzen dann funktioniert es nicht. Ich werde da irgendwie nicht schlau draus. In der Vergangenheit hat das stets funktioniert.
Kann jemand helfen?
Gruß
Dietz
AW: vielleicht ist es ja kein Leerzeichen ...
...
Hallo Dietz,
.. gib mal folgende Formel ein: =CODE(RECHTS(A1;1))
Nur wenn das Ergebnis eine 32 ist ist es ein Leerzeichen.
Gruß Werner
.. , - ...
AW: für engl. Version: =CODE(RIGHT(A1,1)) owT
...
Gruß Werner
.. , - ...
AW: für engl. Version: =CODE(RIGHT(A1,1)) owT
Dietz
Danke Neopa C,
es kommt eine 160 raus.
Hab folgenden Code gefunden der mir die ganze Spalte umformatiert. Es scheint, wie es aussieht, zu funktionieren. Wie kommt so etwas überhaupt zu Stande das Trim nicht funktioniert bzw. eine 160 und nicht eine 32 als Ergebnis raus kommt. Erfolgt die Eingabe anders?
Sub TrimmenVonWerten()
Dim Bereich As Range
Dim Zeilemax As Long
Dim zelle As Range
With ActiveSheet
Zeilemax = .UsedRange.Rows.Count
Set Bereich = .Range("A2:B" & Zeilemax)
For Each zelle In Bereich
If IsError(zelle.Value) = False Then
zelle.Value = Trim(zelle.Text)
zelle.Value = Replace(zelle.Value, Chr(160), "")
End If
Next zelle
End With
End Sub
Dietz
AW: für engl. Version: =CODE(RIGHT(A1,1)) owT
Luschi
Hallo Dietz,
das Zeichen mit dem ASCII-Code '160' sieht aus wie ein Leerzeichen, hat die selbe Zeichenbreite - ist aber was ganz Anderes. In Winword wird dieses Zeichen genutzt für das 'geschützte Leerzeichen', um Wortgruppen nicht durch einen Zeilenumbruch zu trennen!
Sowas benutzen gern Datenlogger um Daten zu trenndn.
Gruß von Luschi
aus klein-Paris
oT: Vorinfo ...
...
Hallo Luschi,
... ich rufe Dich heute am späteren Nachmittag mal an. Wäre das ok?
Gruß Werner
.. , - ...
AW: dazu müsste man wissen, ...
...
Hallo Dietz,
... wie die Daten entstanden sind. Duch reine Eingabe kann ich es mir nicht vorstellen. Ich vermute eher durch Kopieraktionen aus anderen Programmergebnissen oder sonst woher.
Suchen und Ersetzen derartiger Zeichen (sofern man weiß bzw. herausgefunden hat, was es für ein Zeichen es ist, kann man übrigens auch mit der Standardfunktion von Excel.
Gruß Werner
.. , - ...
Excel-Beispiele