Mit folgendem Codeteil aus einem Forum sollten die Hochkommas aus einer Tabelle entfernt werden. Bei Zahlen funktioniert das auch. Dachte eigentlich, dass es bei Text auch funktioniert. Tut es aber nicht.
Was muss geändert werden, damit alle Hochkommas in der Tabelle entfernt werden.
Option Explicit
Sub Hochzeichenentfernen()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Range(Cells(1, 1), Cells(30, 3))
If Zelle = "" Or Zelle.Text = "FALSCH" Or Zelle.Value = False Then
Zelle.ClearContents
Else
If (InStr(2, Zelle.Text, ".") Or InStr(2, Zelle.Text, ":")) _
And IsDate(Zelle.Text) Then 'Text=Datum/Uhrzeit ?
Zelle.Value = CDate(Zelle.Text)
ElseIf IsNumeric(Zelle.Text) Then 'Text = Zahl ?
Zelle.Value = CDbl(Zelle.Text)
Else
Zelle.Value = Zelle.Text
End If
End If
Next Zelle
End Sub
Danke und Servus, Walter