Microsoft Excel

Herbers Excel/VBA-Archiv

sonderzeichen aus zelle entfernen

Betrifft: sonderzeichen aus zelle entfernen von: andreas e
Geschrieben am: 21.08.2004 08:32:12

Hallo zusammen,
nach import von Zahlen nach excel erhalte ich eine Liste die etwaso aussieht:

[1234]
2134
nun gehe ich mit folgendem makro drüber

Sub ZahlenmitKlammernlöschen()
With Selection
  .Replace What:="[", Replacement:=""
  .Replace What:="]", Replacement:=""
  .HorizontalAlignment = xlGeneral
  .VerticalAlignment = xlBottom
  .WrapText = False
  .Orientation = 0
 .AddIndent = False
 .ShrinkToFit = False
 .MergeCells = False
End With
End Sub


Der Umbruch ist weg, die eckigen Klammern auch aberan der stelle wo der erzwungene Zeilenumbruch war ist nun ein 4-Eck -

wie bekomme ich das nun aus der Zelle raus ?
es steht drin 1234viereck43434

kann leider dieses 4eck hier nicht darstellen

gruß
andreas e
  


Betrifft: AW: sonderzeichen aus zelle entfernen von: andre
Geschrieben am: 21.08.2004 08:42:37

Hallo Andreas,
du musst aus der Zeichenkette noch chr(10) entfernen...


  


Betrifft: AW: sonderzeichen aus zelle entfernen von: Ulf
Geschrieben am: 21.08.2004 08:44:59

Option Explicit
Sub ZahlenmitKlammernlöschen()
With Selection
  .Replace Chr(10), ""
  .Replace Chr(13), ""
  .Replace "[", ""
  .Replace "]", ""
  .HorizontalAlignment = xlGeneral
  .VerticalAlignment = xlBottom
  .WrapText = False
  .Orientation = 0
 .AddIndent = False
 .ShrinkToFit = False
 .MergeCells = False
End With
End Sub


Ulf


  


Betrifft: Danke euch deiden !! von: andreas e
Geschrieben am: 21.08.2004 08:46:54

es funzt einwandfrei ! War das "blöde" chr13 !!

danke !!

schönes we


  


Betrifft: Liste der chr-zeichen bedeutung?? von: andreas e
Geschrieben am: 21.08.2004 08:55:01

Da hätte ich noch ne kleine Frage dazu -

wo finde ich denn eine Liste dieserchr Zeichen und was die jeweils bedeuten -

habe gerade dieses makro gestartet und dachte so bekomme ich die Zeichen -
wie toll das ergebnis liefert mir immer 4-ecke -

Sub chrzeichen()
Sheets(2).Activate
For i = 1 To 31
Cells(i, 1).Value = Chr(i)
Next
End Sub



gruß
andreas e


  


Betrifft: erledigt ! habs gefunden! danke oT von: andreas e
Geschrieben am: 21.08.2004 09:07:32




  


Betrifft: AW: Liste der chr-zeichen bedeutung?? von: Ulf
Geschrieben am: 21.08.2004 09:08:07

Zeichen oder Chr(0) bis Chr(31) sind nichtdruckbare Sonderzeichen zu Steuerungszwecken.
Welche in Excel eine Bedeutung haben, findest du in der Hilfe. Wenn du sehen willst, wie
die aussehen, kannst du sie mit Charmap.exe ansehen.

Ulf


  


Betrifft: AW: Liste der chr-zeichen bedeutung?? von: Roland Hochhäuser
Geschrieben am: 21.08.2004 09:09:45

Hallo andreas e,

das ist völlig richtig, du hast nur zu früh aufgegeben:
Sub chrzeichen()
Dim i As Integer
For i = 1 To 255
Cells(i, 1) = Chr(i)
Cells(i, 2) = "Chr-Nr. " & i
Next
End Sub

Gruß
Roland


  


Betrifft: nochmals danke an alle- jetzt habs ... von: andreas e
Geschrieben am: 21.08.2004 09:18:54

sogar ich kapiert -
dauert bei mir manchmal etwas länger ! *

gruß und schönes we
andreas e


 

Beiträge aus den Excel-Beispielen zum Thema "sonderzeichen aus zelle entfernen"