automatisch Spaltenbreite bestimmen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Cells(1, ActiveCell.Column) = "" Then ActiveCell.Columns.ColumnWidth = 1 Else ActiveCell.Columns.ColumnWidth = Cells(1, ActiveCell.Column).Value End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Cells(1, ActiveCell.Column) = "" Then ActiveCell.Columns.ColumnWidth = 1 Else Target.EntireColumn.AutoFit ActiveCell.Columns.ColumnWidth = ActiveCell.Columns.ColumnWidth + 3 End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Z, MMin As Integer MMin = 5 'Mindestbreite If Not Intersect(Target, Rows(1)) Is Nothing Then For Each Z In Target Z.Columns.ColumnWidth = WorksheetFunction.Max(MMin, Z.Value) Next End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Z, MMin As Integer, RNG As Range MMin = 5 'Mindestbreite Set RNG = Intersect(Target, Rows(1)) If Not RNG Is Nothing Then For Each Z In RNG Z.Columns.ColumnWidth = WorksheetFunction.Max(MMin, Z.Value) Next End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i = 1 To Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column Select Case Cells(1, i).Value Case 3 To 8 Columns(i).ColumnWidth = 5 Case 9 To 14 Columns(i).ColumnWidth = 10 Case 15 To 22 Columns(i).ColumnWidth = 20 Case Else Columns(i).ColumnWidth = 10.71 End Select Next i End Sub

Hallo Andreas,
sorry, bin erst heute wieder hier im Forum unterwegs.
Falls du das noch liest:
Das ist so ein Ding von mir, dass ich diese Zeile oft in den Code reinpacke, damit der Code wirklich nur bis zur letzten genutzten Spalte (oder auch Zeile) arbeitet und nicht ungewollt in einen Fehler rennt.
Leider weiß ich auch nicht (weil es bisher immer so geklappt hat und ich mich nicht mit Alternativen beschäftigt habe), wie man dies anders ermitteln kann.
Ich vermute mal, dass du mindestens 2 Spalten in Zeile 1 befüllt haben musst, damit es geht.
Wenn du ab z. B. Zeile 2 eine fertige Tabelle hast, die Zeile 1 prinzipiell leer ist, dann tausch mal die "1" in der Zeile


Cells(1, Columns.Count)

durch eine 2 aus.
Diese Zeile dient, wie gesagt, lediglich der Ermittlung der letzten genutzten Spalte.
Deinen Wertebereich kannst du in den nachfolgenden Codezeilen ändern, als Beispiel:


Case 3 To 8
Columns(i).ColumnWidth = 5

Wenn in A1 eine 3 oder 4 oder 5 oder ... 8 eingetragen wird, stellt sich die Breite immer auf 5.
Ab Eintragung 9 bis 14 stellt sie sich auf 10, usw.
Das sind von mir willkürlich erdachte Werte, die du nach deinem Gusto anpassen kannst und mit weiteren "Case ... To ..." Blöcken kannst du natürlich auch über die von mir als 22 festgelegte Obergrenze hinaus immer weiter arbeiten.
Schaffst du das mit dieser Erklärung? Ansonsten könnte ich dir das natürlich auch abändern, wenn du mir genauen Daten von welcher Zahl bis zu welcher Zahl dann welche Breite verwendet werden soll, mitteilst.
Anderenfalls hast du ja genügend Alternativen, mit denen du ebenfalls arbeiten kannst ;-)
Gruß Pierre

Beliebteste Forumthreads (12 Monate)

automatisch Spaltenbreite bestimmen?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread