Office: Marko auf alle geöff. Arbeitsmappen und Arbeitsblätter anwen

Hallo,

ich habe ein Makro, welches mir alle Spalten eines Arbeitsblattes auf die optimale Breite einstellt.

Code:

Sub SpaltenOptimal()

Dim Spalte As Long, i As Long
    Spalte = ActiveSheet.Cells.SpecialCells(xlLastCell).Column

    For i = 1 To Spalte

    ActiveSheet.Columns(i).EntireColumn.AutoFit

Next i
End Sub

Ich bräuchte es aber eben so, dass es dies nicht nur für das gerade aktive Arbeitsblatt tut, sondern für alle geöffneten Arbeitsmappen und alle in den jeweiligen Arbeitsmappen enthaltenen Arbeitsblättern.

Wäre schön wenn mir da jemand weiterhelfen könnte! :-)

 

Hi,

Code:

Sub SpaltenOptimal()
    Dim wbMappe As Workbook
    Dim wsTabelleIntegerLong
    For Each wbMappe In Workbooks
        For Each wsTabelle In wbMappe.Worksheets
            For i = 1 To wsTabelle.UsedRange.SpecialCells(xlCellTypeLastCell).Column
                wsTabelle.Columns(i).EntireColumn.AutoFit
            Next i
        Next wsTabelle
    Next wbMappe
End Sub

Bis später,
Karin

 

Funktioniert. Vielen Dank!