Mit ua. Code entferne ich aus 5 Spalten alle v o r stehenden und n a c h stehenden Leerzeichen.
Sub LeerzeichenEntfernen()
Dim lngLetzte As Long
Dim lngZeile As Long
Dim lngSpalte As Variant
lngLetzte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Each lngSpalte In Array(1, 3, 4, 5, 8)
For lngZeile = 1 To lngLetzte
If Cells(lngZeile, lngSpalte) "" Then
Cells(lngZeile, lngSpalte).Value = Trim(Cells(lngZeile, lngSpalte))
End If
Next lngZeile
''''Msgbox .....es wurden Anzahl an Leerzeichen aus der Spalte entfernt
Next lngSpalte
''''Msgbox .....es wurden Anzahl an Leerzeichen aus allen 5 Spalten entfernt
End Sub
Cool wäre es aber wenn er die Leerzeichen die er entfernt hat zählt bzw. nach dem Code oder nach jeder Spalte ausgibt. ..
Wer hat einen Tipp!!!!
Besten Dank und schönen Sonntag noch
mfg
STeve