Laufzeitfehler 6; Überlauf
Erich
habe nachstehenden Code aus diesem Thread:
https://www.herber.de/forum/archiv/416to420/t416455.htm
Damit kann ich automatisch alle Spalten auf die optimale Breite anpassen,
ferner wird eine Maximalbreite definiert. Der Code läuft soweit einwandfrei,
jedoch bin ich beim Durchtesten auf folgendes gestossen:
Wenn ich die Spalte IV belege, dann erhalte ich die Fehlermeldung:
Laufzeitfehler 6
Überlauf.
In der Praxis bei mir zwar eher selten; trotzdem würde mich interessieren,
was das bedeutet; beim Debuggen ist die Zeile
For iSpalte = 1 To mySpalte
gelb und bei mySpalte leuchtet "256" (= Spalte IV).
Sub Spalte_opt()
Dim mySpalte As Integer
Dim iSpalte As Byte
' Hier die maximale Spaltenbreite einstellen
Const MaxBreite = 50
mySpalte = Cells.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 1), Cells(1, mySpalte)).EntireColumn.AutoFit
For iSpalte = 1 To mySpalte
If Columns(iSpalte).ColumnWidth > MaxBreite Then _
Columns(iSpalte).ColumnWidth = MaxBreite
Next iSpalte
End Sub
Besten Dank für eine Info!
mfg
Erich