Schleife ist noch nicht ausgereift!
29.01.2004 12:05:10
Martin
ich wollte mir ein Makro basteln, bei dem auf Knopfdruck alle Tabellen meiner Datei in Bezug auf die Spaltenbreite angepasst werden. Leider scheint meine Schleife nicht zu funktionieren.
Hier der Quellcode:
Sub AutoFit()
Dim i As Integer
Dim N As Integer
For i = 1 To N
Sheets(i).Cells.Select
Sheets(i).Cells.EntireColumn.AutoFit
Next i
End Sub
Frage nun: Wie kann ich es realisieren, dass das Makro funktioniert. Das "N" dient als Platzhalter. Ich will keine genaue Zahl angeben, da das Makro abbricht, wenn die Zahl zu groß ist.
Oder ist mein ganzer Ansatz falsch?
Vielen Dank für Eure Hilfe und einen schönen, winterlichen Tag noch!
MfG,
Martin
Anzeige