Optimale Spaltenbreite aber max ...
28.06.2013 22:51:03
WalterK
kann mir jemand dabei helfen, den folgenden Code zum Laufen zu bringen.
Option Explicit
Sub OptimaleSpaltenbreite()
Dim LCol As Integer
With ActiveSheet
LCol = Cells(2, Columns.Count).End(xlToLeft).Column
With Columns("A:" & LCol)
.EntireColumn.AutoFit
If .ColumnWidth > 10 Then
.ColumnWidth = 10
End If
End With
End With
End Sub
Damit soll die optimale Spaltenbreite aber höchstens die Breite 10 eingestellt werden.ABER:
1.) Kommt bei dieser Zeile With Columns("A:" & LCol) der Hinweis Typen unverträglich
2.) wird wenn der Code durchläuft (weil ich bei With Columns A:Z eingebe zwar die optimale Spaltenbreite eingestellt, nicht aber die Höchstbreite 10!
https://www.herber.de/bbs/user/86116.xls
Besten Dank für die Hilfe und Servus, Walter