VBA Excel: Ausführen einer Funktion für jede Zelle in einer Spalte und Durchlaufen aller Arbeitsmappen

Question

Jun 21, 2013, 10:36 PM

VBA Excel: Ausführen einer Funktion für jede Zelle in einer Spalte und Durchlaufen aller Arbeitsmappen

Folgendes habe ich bisher:

Sub TrimColumnD()
   Dim ws As Worksheet

   For Each ws In ThisWorkbook.Worksheets
   Dim c As Range
        For Each c In ActiveSheet.UsedRange.Columns("D").Cells
            c.Value = WorksheetFunction.Trim(c.Value)
        Next c
   Next ws

End Sub

Die Zuschneidefunktion wirkt sich nur auf die Zellen im ersten Arbeitsblatt aus, aber das war's. Irgendwelche Vorschläge?

Danke im Voraus