Hi,
ich habe in vielen Zellen vor dem eigentlichen Text Leerzeichen, die rausmüssen. Kann man dies automatisieren?
Alex
Hallo Alex,
geht sicher, zur Not mit nem Makro.
Aber versuch doch erstmal in ner testtabelle das viell. mit Suchen und Ersetzen zu lösen.
Ansonsten weiss ich nicht wie gut du mit markos arbeiten kannst?!
und welche zellen du durchsuchen musst.
kannst ja ne kleine testtabelle schicken und ich schreibe ein makro wenn du das selber nicht kannst, ist nicht viel arbeit
gruß marcel
Hallo Alex,
probier das mal aus …
Sub SonderzeichenWegmachen()
Dim i As Long
Dim Start As String
Dim Ende As String
Dim Temp As String
Dim erlaubt As String
'Entfernt alle Sonderzeichen, die NICHT in der
'Variablen "erlaubt" enthalten sind
Start = Time
erlaubt = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ßÖöÜüÄä-"
Application.ScreenUpdating = False
For Each c In Selection
With c
Temp = ""
For i = 1 To Len(.Text)
If InStr(1, erlaubt, Mid(.Text, i, 1), vbTextCompare) \> 0 Then
Temp = Temp & Mid(.Text, i, 1)
End If
Next i
.Value = Temp
End With
Next c
Application.ScreenUpdating = True
Ende = Time
MsgBox "Start: " & Start & vbCrLf & "Ende: " & Ende, vbInformation, "...fertig!"
End Sub
gruss moritzbock
Hi,
ich habe in vielen Zellen vor dem eigentlichen Text
Leerzeichen, die rausmüssen. Kann man dies automatisieren?
Alex
Du kannst aber auch zuerst mal eine einfachere Möglichkeit nutzen, die GLäTTEN()-Funktion. Sie entfernt führende und folgende Leerzeichen aus dem angegebenen Text.
Am besten machst Du Dir hinter der eigentlichen Datenspalte eine Hilfsspalte. Dort kommt dann die Formel rein: =glätten(A1)
Diese kopierst Du dann runter und bewunderst das Ergebnis 
Danach kannst Du durch ‚Kopieren‘ und ‚Inhalte einfügen => Werte‘ die Formeln entfernen. Die verbleibenden Werte müssen dann nur noch aus der Hilfsspalte wieder in die Originalspalte zurückkopiert werden, bevor die Hilfsspalte wieder gelöscht werden kann.
Fertig!
(Woly)