Hallo,

ich möchte die Spaltenbreite meiner Spalten anpassen. Jetzt findet man überall einen Code wie diesen hier:

Sub Spaltenbreite_Festlegen()
    Columns("A:E").ColumnWidth = 30
End Sub

Leider gilt das ja nur für eine vorher festgelegte Anzahl von Spalten. Kennt jemand von euch eine unkomplizierte Lösung, bei der man die letzte Spalte ermitteln kann und bis zu dieser Spalte die Breite anpassen kann?

Man könnte jetzt sagen: Und wenn du einfach alle nimmst? Leider geht das nicht weil die erste Spalte eine andere Breite benötigt als alle anderen.

Vielleicht kann mir ja jemand helfen.