Office: (Office Version unbekannt) ActiveSheet.Columns(i).AutoFit (mit einem Spaltenbereich)

Hallo zusammen,

ich würde gerne meine Spaltenbreite automatisch anpassen, da meine Daten Flexibel sind muss ich die anzahl der Spalten ermitteln.

Das klapptr auch, in meinem Beispiel kommt da
startSpalte =21
endSpalte = 39
raus.

doch bei der auswahl der Spalten mache ich wohl was Falsch :-(

Code:

ActiveSheet.Columns(startSpalte & ":" & endSpalte).AutoFit

Wenn ich das so schreiben: klappt es

Code:

ActiveSheet.Columns("T:Z").AutoFit

Aktuell Löse ich es über ein For Schleife, doch das möchte ich vermeinden aus gründern der Performens.

Code:

' AutoFit für die Spalten von startSpalte bis endSpalte
    For i = zielZelle.Column To zielZelle.Column + UBound(werte)
             ActiveSheet.Columns(i).AutoFit
    Next

Wie nutze ich diesen Befehl richtig wenn ich einen Bereich so angeben möchte.

Gruß Mücke

Code:

' Nach dem Import der Daten und der Schleife

Dim letzteSpalte As Long
Dim startSpalte As Long
Dim endSpalte As Long

' Bestimme die Start- und Endspalte
startSpalte = zielZelle.Column              ' Spalte von zielZelle
endSpalte = startSpalte + UBound(werte)     ' Endspalte basierend auf der Anzahl der Werte

' AutoFit für die Spalten von startSpalte bis endSpalte
ActiveSheet.Columns(startSpalte & ":" & endSpalte).AutoFit

 

Hatte eine eingebung, ich wandle die Nummer in einen Buchstaben, irgend wie gleube ich zwar das das nicht so ganz richtig ist was ich mache, doch es klappt und ich bin die For schleife los.

Code:

    ' Spaltenbreite automatisch anpassen
    ActiveSheet.Columns(Split(Cells(1, zielZelle.Column).Address, "$")(1) & ":" & Split(Cells(1, zielZelle.Column + UBound(werte)).Address, "$")(1)).AutoFit

Damit hat sich das Thema erledigt, sorry für den beitrag.
Gruß Mücke

 

Oder:

Code:

Range(Cells(1, startspalte), Cells(1, endspalte)).EntireColumn.AutoFit