Hallo,
ich bin noch VBA-Anfänger und hoffe, dass ihr mir helfen könnt.
Ich habe eine Excel-Datei mit einer Vielzahl von Reitern. Diese Reiter sind abwechselnd Arbeitsblätter und Diagrammblätter. Ich habe die Diagramme bewusst nicht als eingebettete Objekte in die Arbeitsblätter eingefügt.
Folgender VBA-Code soll nun automatisch die optimale Spaltenbreite anpassen, jedoch nur innerhalb der Arbeitsblätter. Die Diagrammblätter sollen davon unberührt bleiben:
Dim i As Long
For i = 1 To Sheets.Count
If Sheets(i).ChartObjects.Count = 0 Then
Sheets(i).Select
Cells.Select
Cells.EntireColumn.AutoFit
End If
Next i
End Sub
Das Problem: Leider werden die Diagramme in den Diagrammblättern nicht durch "ChartObjects" erkannt, d.h. das Makro läuft nicht problemlos durch. Kann mir jemand von euch weiterhelfen?
Vielen Dank im Voraus.