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
Um die TRIM-Funktion in Excel auf alle Zellen einer Spalte anzuwenden, kannst Du einen VBA-Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.Einfügen > Modul, um ein neues Modul zu erstellen.Sub TrimAllCellsInColumn()
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Columns(1).SpecialCells(xlCellTypeConstants)
rngC.Value = Application.WorksheetFunction.Trim(rngC.Value)
Next rngC
Application.ScreenUpdating = True
End SubColumns(1) in die gewünschte Spalte (z.B. Columns(2) für Spalte B).ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.Damit wird die TRIM-Funktion auf alle Zellen in der gewählten Spalte angewendet.
Fehler: "Laufzeitfehler 1004: Die Methode 'SpecialCells' für das Objekt 'Range' ist fehlgeschlagen."
Fehler: "Objektvariable oder With-Blockvariable nicht festgelegt."
Es gibt verschiedene Möglichkeiten, die TRIM-Funktion auf Zellen in Excel anzuwenden:
Direkt in einer Zelle: Du kannst die TRIM-Funktion direkt in einer Zelle verwenden, um einen bestimmten Text zu trimmen:
=TRIM(A1)VBA mit InputBox zur Bereichsauswahl: Hier ist ein weiteres Beispiel, das es Dir ermöglicht, einen bestimmten Bereich auszuwählen:
Sub TrimSelectedRange()
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 SubHier sind einige praktische Beispiele, wie Du die TRIM-Funktion in VBA verwenden kannst:
Trimmen eines bestimmten Bereichs: Wenn Du einen spezifischen Bereich (z.B. "A1:A10") trimmen möchtest, kannst Du folgenden Code verwenden:
Sub TrimSpecificRange()
Dim rng As Range
Set rng = Range("A1:A10")
Dim cell As Range
For Each cell In rng
cell.Value = Application.WorksheetFunction.Trim(cell.Value)
Next cell
End SubTrimmen einer ganzen Spalte: Um die gesamte Spalte A zu trimmen, verwende:
Sub TrimColumnA()
Dim rng As Range
Set rng = Columns("A")
Dim cell As Range
For Each cell In rng
cell.Value = Application.WorksheetFunction.Trim(cell.Value)
Next cell
End SubApplication.ScreenUpdating = False, um die Leistung zu verbessern, während das Makro läuft.Trim-Funktion mit LTrim oder RTrim kombinieren möchtest, um führende oder nachfolgende Leerzeichen gezielt zu entfernen.1. Kann ich die TRIM-Funktion auch in Excel selbst verwenden, ohne VBA?
Ja, Du kannst die TRIM-Funktion in einer Zelle verwenden, wie z.B. =TRIM(A1).
2. Was ist der Unterschied zwischen TRIM, LTRIM und RTRIM?
TRIM entfernt führende und nachfolgende Leerzeichen.LTRIM entfernt nur führende Leerzeichen.RTRIM entfernt nur nachfolgende Leerzeichen.3. Wie kann ich die TRIM-Funktion auf eine ganze Zeile anwenden?
Du kannst den VBA-Code anpassen, um anstatt einer Spalte eine Zeile zu trimmen, indem Du Rows(1) anstelle von Columns(1) verwendest.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen