Sub tt()
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Columns(1).SpecialCells(xlCellTypeConstants)
rngC = Trim(rngC)
Next
Application.ScreenUpdating = True
End Sub
Sub BereichGlaetten()
Dim r As Range, c As Range
On Error Resume Next
Set r = Application.InputBox("Bereich markieren, der geglättet werden soll: ", Type:=8)
For Each c In r.Cells
c.Value = Application.WorksheetFunction.Trim(c.Value)
Next c
End Sub
Sub Test()
Dim tempArea
Dim Bereich As Range
Dim A As Long, B As Long
Set Bereich = Range("A1:Z10000") 'Bereich
tempArea = Bereich
For A = 1 To Ubound(tempArea, 1)
For B = 1 To Ubound(tempArea, 2)
tempArea(A, B) = Trim$(tempArea(A, B))
Next B
Next A
Bereich = tempArea
End Sub
Gruß Tino
Sub führende_leerzeichen()
Dim Sparte As String 'Sparte ist die Überschrift der 1. Spalte in dem Blatt GesamtRoh
Sheets("GesamtRoh").Select
Sparte = Trim(Sparte) 'Die trim-Funktion muss doch so aussehen
End Sub
Kann ich nicht mit ColumnHeads=true VBA sagen, dass ich Überschriften habe und dann einfach sagen er soll die Spalte mit der überschrift "Sparte" trimmen?
Vielen Dank schon mal für die Antworten (bitte für nen kleinen Dummy erklären)
Grüße
Dagmar
'einen zusammenhengenten Zellbereich
Set Bereich = Range("A1:Z10000") 'Bereich
'oder eine ganze Spalte
Set Bereich = Columns(5) 'Bereich
'oder ab A1 bis zur letzten gefüllten in Spalte A
Set Bereich = Range("D2", Cells(Rows.Count, "D").End(xlUp)) 'Bereich
'oder mit einen Namen den der Zellbereich hat
Set Bereich = Range("Mein_Zellberich_Name") 'Bereich
Gruß Tino