= als normalen Text behandeln ohne ' ?

Question

Hallo

ich lade aus einer Textdatei Variablen welche ich in Excel bearbeiten möchte.

Einer der Spalten beginnt eigentlich immer mit einem Gleichheitszeichen.

=VariablenNameUndSonstWas

Das funktioniert auch wunderbar solange ich die Zellen vorher als Text formatiere.

.Columns("O").NumberFormat = "@"

Nun kann es aber sein, das ein paar der Variablen mit einem Anführungszeichen beginnen.

"=VariablenNameUndSonstWas"

Dieses muss entfernt werden. Eigentlich wollte ich es mit replace machen, scheitere aber daran das es nur funktioniert wenn ich als replacement irgendetwas einfüge. Etwa ein Leerzeichen.

.Columns("O").Replace What:="""", Replacement:=""
.Columns("O").Replace What:="""", Replacement:=" " <---geht

Wie bekomme ich die Zeichen nun wirklich weg? Ein Leerzeichen anstatt eines Anführungszeichens hilft mir leider auch nicht viel.

Gruß
Deathfun

Answer 1

hi :-)

leerzeichen integriert ^^

gruss nighty

Sub SonderzeichenLoeschen()
Dim zaehler As Long
ReDim Sarray(1, ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row) As Variant
Sarray() = Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
For zaehler = 1 To UBound(Sarray())
Sarray(zaehler, 1) = Sumtext("" & Sarray(zaehler, 1))
Next zaehler
Range("A1:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row) = Sarray()
End Sub

Function Sumtext(Zellen As String) As String
Dim Zelle As String
Dim zeich1 As Integer
Dim schalter As Boolean
Dim zaehler3 As Integer
ReDim zaehler2(Len(Zellen)) As String
zaehler3 = 1
For zeich1 = 1 To Len(Zellen)
If Mid(Zellen, zeich1, 1) Like "[0-9,.A-Za-z,üöäÜÖÄ=, ]" = True Then
Sumtext = Sumtext & zaehler2(zaehler3) & Mid(Zellen, zeich1, 1)
schalter = True
End If
If schalter = True And Mid(Zellen, zeich1, 1) Like "[0-9,.A-Za-z, ,üöäÜÖÄ=, ]" = False Then
zaehler3 = zaehler3 + 1
schalter = False
End If
Next zeich1
End Function

weitere zeichen sind in 2 zeilen zu ergaenzen
"[0-9,.A-Za-z,üöäÜÖÄ=, ]"