ich habe schon Archiv nachgesehen, aber leider nichts passendes gefunden.
Ich habe Texte in Excel kopiert (u.a. Emailadressen). Nun sind in der einen oder anderen Zelle auch Leerzeichen am Ende eingefügt worden, die natürlich dann eine Email-Adresse unbrauchbar machen ...
Ich habe nun versucht, alle Leerzeichen am Ende jeder Zelle mit dem Code zu "bereinigen":
Bereich (A1:CN595) markiert und dann dieser Code
Sub trimmen()
Dim c As Range
For Each c In Selection
c.Value = Trim(c.Value)
Next c
End Sub
Klappt leider nicht - die Leerzeichen sind immer noch da ...Dieser Code ist nur für einzelne Spalten (oder?). Vielleicht kann man den für die gesamte Mappe anpassen - aber da bin ich in VBA nicht fit genug ...
Sub Leerzeichen_weg()
Dim laR As Long, i As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laR
Cells(i, 56) = Trim(Cells(i, 56).Value)
Next i
End Sub
Hat jemand ne bessere Lösung?Danke vorab
TOM