Alles glätten?

Forumthread: Alles glätten?
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Alles glätten?

Alles glätten?

Tom

Hallo,
ich habe das Problem, dasss ich zig Dateien mit jeweils zig Spalten habe und diese GLÄTTEN muss, nun ist es natürlich mühsam jede Spalte einzeln zu glätten. Gibt es eine Möglichkeit das Glätten auf alle Zellen in der Datei anzuwenden?
Grüße
Tom

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Alles glätten?

Michael
AW: Alles glätten?

Tom
kennst du GLÄTTEN nicht?

Rudi
AW: Alles glätten?

Rudi
AW: Alles glätten?

Tom

AW: Alles glätten?

12.04.2010 17:32:52

Michael

Hallo Tom,
was heißt Glätten?
Gruß
Michael

AW: Alles glätten?

12.04.2010 17:51:06

Tom

Es gibt den Befehl GLÄTTEN und den würde ich gerne auf alle Zellen anwenden.

kennst du GLÄTTEN nicht?

12.04.2010 17:59:01

Rudi

Hallo,
aus der Hilfe:
GLÄTTEN
Löscht Leerzeichen in Text, die nicht als jeweils einzelne zwischen Wörtern stehende Trennzeichen dienen. GLÄTTEN können Sie für Texte verwenden, die Sie aus anderen Anwendungsprogrammen übernommen haben und die eventuell unerwünschte Leerzeichen enthalten.
Syntax
GLÄTTEN(Text)
Text ist der Text, aus dem Sie Leerzeichen entfernen möchten.
Gruß
Rudi

AW: Alles glätten?

12.04.2010 17:53:34

Rudi

Hallo,

Sub Glaetten()
Dim c As Range, wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
For Each c In wks.Cells.SpecialCells(xlCellTypeConstants)
c = Trim(c)
Next
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rudi