Spaltenbreite mit Code einstellen.

Hallo Excel-Fachleute.
Ich möchte mit einen Code die Spaltenbreite z.B. der Spalten S:NH gleich einstellen.
Gefunden habe ich folgenden Code:

Sub SpaltenZeilenEinstellen()
Sheets("Tabelle1").Activate
Range("S:NH").EntireColumn.ColumnWidth = 15
End Sub

Aber ich würde gerne mit einen SpinButton ( oder ähnlich ) diesen Code ausführen.
Und zwar so, wenn z.B. ein Wert in einer Zelle gleich 1, dann sollen die Spalten die Breite
15 einnehmen. Wenn ein Wert in der gleichen Zelle gleich 2, dann sollen die Spalten die
Breite 0,25 einnehmen.
Dadurch kann ich dann die Spaltenbreite mehrerer Spalten, für z.B. Formeleingabe,
auf eine Eingabebreite von z.B. 15 einstellen und danach auf die Arbeitsbreite von 0,25.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Golem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ToggleButton1_Click() With ToggleButton1 .Caption = IIf(.Value, "Schmal", "Breit")'Textanzeige im Button Worksheets("Tabelle2").Range("S:NH").ColumnWidth = IIf(.Value, 15, 0.25) End With End Sub

Private Sub ToggleButton1_Click() a = ActiveSheet.Cells(5, 1).Value b = ActiveSheet.Cells(6, 1).Value With ToggleButton1 .Caption = IIf(.Value, "Schmal", "Breit") 'Textanzeige im Button Worksheets("Tabelle2").Range(a & ":" & b).ColumnWidth = IIf(.Value, 15, 0.25) End With End Sub

Private Sub ToggleButton1_Click() Dim a as String, b as String a = ActiveSheet.Cells(5, 1).Value b = ActiveSheet.Cells(6, 1).Value With ToggleButton1 .Caption = IIf(.Value, "Schmal", "Breit") 'Textanzeige im Button Worksheets("Tabelle2").Range(a & ":" & b).ColumnWidth = IIf(.Value, 15, 0.25) End With End Sub

Hallo Golem,
ganz habe ich nicht verstanden was du möchtest. Deshalb 2 Varianten.
Ich starte das ganze über Worksheet Change Ereignis. Natürlich kannst du dies auch anders lösen.


Option Explicit
'im Worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
'wenn sich in Zelle "A1" der Wert ändert wird entsprechender Code aufgerufen
If Target.Row = 1 And Target.Column = 1 Then Call EINSgleichKLEIN
'f Target.Row = 1 And Target.Column = 1 Then Call FindeEINSinSpalten
End Sub
'als MODUL
'Variante 1. wenn A1=1 dann Spalten 15 breit sonst 0.25 breit
Sub EINSgleichKLEIN()
Dim SuchTabelle As String, zae1 As Integer, AnzahlEINS As Long
Dim Startspalte As Integer, Endspalte As Integer
SuchTabelle = "Tabelle1"    'anpassen bei Bedarf
Startspalte = 10            '="J" anpassen bei Bedarf
Endspalte = 13              '="M" anpassen bei Bedarf
With ThisWorkbook.Worksheets(SuchTabelle)
If .Range("A1") = 1 Then
.Range(.Columns(Startspalte), .Columns(Endspalte)).ColumnWidth = 0.25
Else
.Range(.Columns(Startspalte), .Columns(Endspalte)).ColumnWidth = 15
End If
End With
End Sub
'Variante 2. wenn in Spalte der Wert 1 gefunden wird, dann die Spalte 15 breit.
Sub FindeEINSinSpalten()
Dim SuchTabelle As String, zae1 As Integer, AnzahlEINS As Long
Dim Startspalte As Integer, Endspalte As Integer
SuchTabelle = "Tabelle1"    'anpassen bei Bedarf
Startspalte = 10            '="J" anpassen bei Bedarf
Endspalte = 13              '="M" anpassen bei Bedarf
With ThisWorkbook.Worksheets(SuchTabelle)
For zae1 = Startspalte To Endspalte
AnzahlEINS = Application.WorksheetFunction.CountIf(.Columns(zae1), 1)
If AnzahlEINS > 0 Then
.Columns(zae1).ColumnWidth = 0.25
Else
.Columns(zae1).ColumnWidth = 15
End If
Next zae1
End With
End Sub

Gruß Henrik

Beliebteste Forumthreads (12 Monate)

Spaltenbreite mit Code einstellen.

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

39 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spaltenbreite mit Code einstellen.

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

39 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread