Autofit für Spalte anstatt aber

Computer: Software & Programmierung Office Software
1

Liebe/-r Experte/-in,

Ich möchte
Columns(ActiveCell.Columns & „:“ AtiveCell.Columns).EntireColumn.AutoFit

ausführen - was aber nicht geht!

Ich bräuchte eine Lösung, bei der ich die Spalte als Zahl angegen kann (weil in einer Schleife).

Gibts eine Autofit für Spalten mit Nummer?
Oder wie kann ich die Spaltennummer in den entspr. Buchstaben umwandeln?

Herzlichen Dank schon mal im Voraus,
Walter

2

Hallo Walter,

Du willst nur die aktive Spalte verarbeiten?

Das geht dann einfach mit:

Columns(ActiveCell.Column).EntireColumn.AutoFit

Beachte: Kein ActiveCell.Columns, weil das die Spaltenanzahl, nicht die Spaltennummer liefert.

Wenn Du eine einfache Zahl übergibst, musst Du nicht mit der Buchstabenvariante arbeiten.

Oder ein Beispiel, wenn Du mit der Schleife arbeiten willst und alle Spalten des aktiven Blattes anpassen willst:

Dim lngSpalte As Long
For lngSpalte = 1 To ActiveSheet.UsedRange.Columns.Count
 ActiveSheet.Columns(lngSpalte).EntireColumn.AutoFit
Next lngSpalte

Gruß, Manfred

3

Hallo!

In diesem Fall (weil nur jeweils eine einzige Spalte anzupassen ist) geht es ganz einfach:

Columns(ActiveCell.Column).AutoFit
[Achtung: in der Klammer heisst es nur Column ohne -s!]

Wären z.B. mehrere Spalten markiert, dann könnte man es etwa so lösen:

For Each spalte In Selection.Columns
Columns(spalte.Column).AutoFit
Next spalte

Viel Erfolg!

flocko

Liebe/-r Experte/-in,

Columns(ActiveCell.Columns & „:“
AtiveCell.Columns).EntireColumn.AutoFit

ausführen - was aber nicht geht!

4

Hallo Walter,

ganz einfach: ActiveSheet.Columns(i).AutoFit
Und i ist die die beliebige Ganzzahl-Spaltenangabe.

Grüße
Felix

5

Herzlichen Dank für die schnelle Hilfe!

6

Herzlichen Dank für die schnelle Hilfe!.

7

Ganz herzlichen Dank für die schnelle und umfassende Hilfe!