habe eine frage.
In celle B23 lasse ich per code daten einlesen, die daten erscheinen aber mit dem Chr(13) zeichen,
wie kann ich dies weg bekommen?
Hat da jemand eine idee?
Gruß & Dank
Holger
Private Function Zeichen13weg(Text As String) As String
Zeichen13weg = WorksheetFunction.Substitute(Text, Chr(13), "")
End Function
Gruß
Sigi
Private Function Zeichen13weg(Text As String) As String
Zeichen13weg = WorksheetFunction.Substitute(Text, Chr(13), "")
End Function
Range("B23").Value = Replace(Range("B23").Value, Chr(13), "")
der Befehl muss eingefügt werden, nachdem die Daten in B23 eingelesen wurden.
Gruß, Daniel
Private Function KommaStattBlank(Text As String) As String
KommaStattBlank = WorksheetFunction.Substitute(Text, " ", ",")
End Function
Gruß
Sigi