Zeichen löschen
28.02.2019 16:56:06
Thomas
kurz zur Funktion des Makros:
Starte bei L12 und markiere bis zur letzten ausgefüllten Zeile.
Lösche alle Sonderzeichen in den markierten Zellen.
ich habe bereits folgenden Code:
Sub ZeichenLoeschung2()
Dim i As Long
Dim Start As String
Dim Ende As String
Dim Temp As String
Dim erlaubt As String
Dim Kurz1 As Integer
With ThisWorkbook.ActiveSheet
Start = Time ' " ' 0 Then
Temp = Temp & Mid(.Text, i, 1)
End If
Next i
.Value = Temp
End With
Next C
End With
Application.ScreenUpdating = True ' Jetzt wird die Anzeige wieder aktualisiert
Ende = Time ' Am Ende kommt die Fehlermeldung:
Variable C nicht definiert...
Hat jemand eine Idee?
Wenn ich schreibe
Dim C As Long
kommt die Meldung:
"Steuervariable für For Each muß vom Typ Variant oder Object sein"
Hat jemand eine Idee?
Anzeige