Typenunverträglichkeit bei durchsuchen von Zellbereichen
05.12.2020 00:41:42
Zellbereichen
ich habe ein kleines Problem bei dem durchsuchen und editieren von Zellen.
Ich würde gern über die Inputbox einen Zellbereich eingeben, welcher anschließend durchsucht und jede Zelle angepasst wird. Diese soll am Anfang und Ende von Leerzeichen und Zeilenumbrüchen bereinigt werden. Alle Leerzeichen und Umbrüche im Text (der in jeder Zelle steht) sollte jedoch erhalten bleiben. Ich habe eine Datei mit ca. 20 Spalten und 4000 Zeilen. Ich habe alle Zellen als Text formatiert.
Ich bekomme jedoch die Fehlermeldung "Typen unverträglich". Wenn ich alle Variablen als Variant deklariere tut es auch nicht. Es hat 1 mal funktioniert. Anschließend nicht mehr. Hat jemand eine Idee und kann mir helfen? Unten stehend meine Sub.
Sub KillAnfang()
Dim Bereich As String
Dim Bereich2 As Range, Cell As Range
Bereich = InputBox(prompt:="Zellen angeben")
Set Bereich2 = Worksheets(1).Range(Bereich)
For Each Cell In Bereich2
'Zellen am Anfang von unnötigen Zeichen bereinigen
Do While Left(Cell.Value, 1) = " "
Cell.Value = Right(Cell.Value, Len(Cell.Value) - 1)
Loop
Do While Left(Cell.Value, 1) = Chr(10)
Cell.Value = Right(Cell.Value, Len(Cell.Value) - 1)
Loop
Do While Left(Cell.Value, 1) = Chr(13)
Cell.Value = Right(Cell.Value, Len(Cell.Value) - 1)
Loop
'Zellen am Ende von unnötigen Zeichen bereinigen
Do While Right(Cell.Value, 1) = " "
Cell.Value = Left(Cell.Value, Len(Cell.Value) - 1)
Loop
Do While Right(Cell.Value, 1) = Chr(10)
Cell.Value = Left(Cell.Value, Len(Cell.Value) - 1)
Loop
Do While Right(Cell.Value, 1) = Chr(13)
Cell.Value = Left(Cell.Value, Len(Cell.Value) - 1)
Loop
Next
End Sub
Danke & Grüße