In meinem Code soll das "End With" zuviel sein.
Ich finde den Fehler nicht. Wer kann mir helfen?
Arbeitet alle Zeilen 1 in den einzelnen Worksheets durch. Wo eine Zahl enthalten ist, wird die Spaltenbreite entsprechend festgelegt.
Danke und Gruss, Peter
Option Explicit
Sub Spaltenbreite()
Dim rCell As Range, rRange As Range, lngLetzteSpalte As Long, wSheet As Object
For Each wSheet In Worksheets
Select Case wSheet.Name
Case "Tabelle1", "Tabelle2"
'' keine Aktion ausführen
Case Else
With wSheet
lngLetzteSpalte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
Set rRange = .Range(.Cells(1, 1), .Cells(1, lngLetzteSpalte))
For Each rCell In rRange
If Not IsNumeric(rCell.Value) Or rCell.Value = "" _
Or rCell.EntireColumn.Hidden Then GoTo KeineAngabe
rCell.ColumnWidth = rCell.Value
End With
KeineAngabe:
'' keine Aktion ausführen
End Select
Next wSheet
End Sub