VBA code- Anpassen der Spaltenbreite

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 1 Then Target.Columns.ColumnWidth = 20 Else Columns(1).EntireColumn.AutoFit End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer 'Schleifenzähler For i = 1 To Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column 'Spalte A bis zur letzten genutzten If Cells(1, i).Value "" Then 'wenn etwas in Zeile 1 eingetragen wird, dann Columns(i).ColumnWidth = Cells(1, i).Value 'Wert aus Zeile 1 als Spaltenbreite verwenden ElseIf Cells(1, i).Value = "" Or Cells(1, i).Value > "200" Then 'wenn nichts oder eine zu hohe Zahl eingetragen wird, Columns(i).ColumnWidth = 10.71 'dann Standardbreite End If Next i 'nächste Zeile End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer 'Schleifenzähler For i = 1 To Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column 'Spalte A bis zur letzten genutzten If Cells(1, i).Value "" Then 'wenn etwas in Zeile 1 eingetragen wird, dann Columns(i).EntireColumn.AutoFit 'Wert aus Zeile 1 als Spaltenbreite verwenden ElseIf Cells(1, i).Value = "" Or Cells(1, i).Value > "200" Then 'wenn nichts oder eine zu hohe Zahl eingetragen wird, Columns(i).ColumnWidth = 10.71 'dann Standardbreite End If Next i 'nächste Zeile End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Select Case Target.Column Case 1 To 80 Target.ColumnWidth = 20 Case Else Range(Columns(1), Columns(80)).EntireColumn.AutoFit End Select End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer 'Schleifenzähler For i = 1 To Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column 'Spalte A bis zur letzten genutzten If Cells(1, i).Value "" Then 'wenn etwas in Zeile 1 eingetragen wird, dann Columns(i).EntireColumn.AutoFit 'Wert aus Zeile 1 als Spaltenbreite verwenden ElseIf Cells(1, i).Value = "" Or Cells(1, i).Value > "200" Then 'wenn nichts oder eine zu hohe Zahl eingetragen wird, Columns(i).EntireColumn.AutoFit End If Next i 'nächste Zeile End Sub

Hallo Hannes,
ich hatte versucht, beide Codes zu verknüpfen, was mir aber nicht gelungen ist.
Allgemein kann man teilweise die Geschwindigkeit erhöhen, indem man "Application.Screenupdating = False" ganz an den Anfang setzt (Direkt unter dem "Private Sub").
Da aber unbedingt vor "End Sub" wieder "Application.Screenupdating = True" schreiben.
Genauso mit Application.Calculation = xlCalculationManual (glaube ich)...
Bei allen diesen Dingen aber unbedingt darauf achten, dass diese Änderung zum Schluss wieder rückgängig gemacht wird.
Kannst ja mal danach googlen, da findest du jede Menge ;-)
Ansonsten KÖNNTE es schneller gehen, da müsste aber wohl jemand anderes ran.
Ich komme jedenfalls heute nicht mehr dazu.
Gruß Pierre

Hallo Hannes,
habe in der Zwischenzeit den Code angepasst.
Du musst mal alles löschen, was du aktuell als Code verwendest und stattdessen den folgenden einfügen:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.ColumnWidth = 20
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
For i = 1 To Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, i).Value  "" Then
Columns(i).EntireColumn.AutoFit
ElseIf Cells(1, i).Value = "" Then
Columns(i).ColumnWidth = 10.71
End If
Next i
End Sub

Die Breite auf 20 zu stellen muss mit SelectionChange gemacht werden, die anderen Anpassungen mit Change.
-------------
zu deinem anderen Problem...es könnte sein, dass Spalte 25 (also Y) deine letzte beschriebene Spalte ist und deswegen der Code ab Spalte Z nicht mehr richtig funktioniert.
Aber ohne Mappe könnte ich da nur raten.
Ne Idee (nicht unbedingt schön, aber würde gehen): Deine Datenliste, die für das Dropdown herhalten soll, in die nächste Spalte rechts von der, die du zuletzt tatsächlich nutzen möchstest, bzw. in der das Makro tatsächlich laufen soll. (Also Makro soll z. B. bis Spalte Z funktionieren, dann Datenliste in Spalte AA packen).
Die Spalte mit der Datenliste könntest du ja ausblenden.
Gruß Pierre

Beliebteste Forumthreads (12 Monate)

VBA code- Anpassen der Spaltenbreite

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

147 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA code- Anpassen der Spaltenbreite

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

147 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread