auf Tabelle anwenden

Bild

Betrifft: auf Tabelle anwenden
von: Thomas
Geschrieben am: 19.08.2015 15:12:17

Hallo excelfreunde,
ich möchte gern die spaltenbreite einer Tabelle einstellen.
dazu habe ich den befehl autofit gefunden. Mit dem untenstehenden Macro kann man die Spalte a auf maximal 10 zeichen beschränken. Ich bekomme es einfach nicht mit der ganzen tabelle hin. wenn ich With Columns("A:zz") schreibe funktioniert es einfach nicht.
Weiss jemand Rat?
liebe grüsse thomas

Sub Spaltenbreite()
    With Columns("A:A")
        .EntireColumn.AutoFit
        If .ColumnWidth > 10 Then
            .ColumnWidth = 10
        End If
    End With
End Sub

Bild

Betrifft: einfache Schleife
von: Michael
Geschrieben am: 19.08.2015 15:23:00
Hi Thomas,
try...

Sub Spaltenbreite()
For z = 1 To 3
  With Columns(z)
        .EntireColumn.AutoFit
        If .ColumnWidth > 10 Then
            .ColumnWidth = 10
        End If
  End With
Next
End Sub
Schöne Grüße,
Michael

Bild

Betrifft: AW: auf Tabelle anwenden
von: Matthias
Geschrieben am: 19.08.2015 15:23:01
Hallo Thomas,
das ganze funktioniert einwandfrei, solange du nur Spalte A abfragen willst. Wenn du schreibst "A:ZZ" vergleicht er trotzdem nur Spalte A, ist diese größer als 10, werden alle Spalten auf 10 verschmälert. Ist Spalte A nicht größer als 10, passiert mit garkeiner Spalte etwas.
Du kannst um jede Spalte einzeln abzufragen folgende Schleife nutzen.


Sub Spaltenbreite()
For x = 1 to 702 'ZZ = 702
    With Columns(x)
        .EntireColumn.AutoFit
        If .ColumnWidth > 10 Then
            .ColumnWidth = 10
        End If
    End With
Next x
End Sub
lg Matthias

Bild

Betrifft: funktioniert beides super vielen dank
von: Thomas
Geschrieben am: 19.08.2015 15:50:00
Hallo Michael und von Matthias
vielen dank für die schnelle Hilfe. Es funktionieren beide Versionen Klasse.
liebe grüsse thomas

Bild

Betrifft: Gerne - ist ja auch das Gleiche,
von: Michael
Geschrieben am: 19.08.2015 15:56:09
bis auf 1 Sekunde Unterschied....
lg, Michael

 Bild

Beiträge aus den Excel-Beispielen zum Thema "auf Tabelle anwenden"