Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenbreite mit Code einstellen.

Forumthread: Spaltenbreite mit Code einstellen.

Spaltenbreite mit Code einstellen.
12.12.2012 20:05:58
Golem
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbreite mit Code einstellen.
12.12.2012 20:58:10
Matze,Matthias
Hallo Golem, (Realname?)
Wenn deine Spalten überschriften haben, könntest du mit
Range("S:NH").EntireColumn.Columns.Width = AutoFit
die Spalten anpassen,.... solltest du das nicht wollen, gibt es die Möglichkeit mal
den Makrorecoder zu benutzen.
Matze

AW: Spaltenbreite mit Code einstellen.
13.12.2012 17:48:53
Golem
Hallo Matze,
einen schönen Dank für Deine Antwort.
Ich bin dabei, mich in VBA einzuarbeiten. Oft fehlt mir aber, wegen zu geringer Kenntnisse,
das Grundgerüst, um darauf aufzubauen.
Deshalb benötige ich immer noch Tipps und Anregungen.
Der Name "Golem" ist eine Abkürzung von meinem Hausnamen Golembiewski.
Schon seit fast 60 Jahren nennen mich Freunde und Bekannte so ( Vorname ist Werner ).
Schöne Grüße
Golem

Anzeige
AW: Spaltenbreite mit Code einstellen.
13.12.2012 07:33:59
hary
Moin Golem
Nimm eine Umschaltflaeche aus ActivXSteuerelement.
Da den Code rein. 
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

gruss hary

Anzeige
AW: Spaltenbreite mit Code einstellen.
13.12.2012 17:55:48
Golem
Hallo Hary,
einen schönen Dank für Deine Antwort.
Dein Vorschlag entspricht genau meinen Vorstellungen.
Die Ausführung mit ToggleButton ist mir neu. Aber eine tolle Lösung.
Ich werde Deinen Code sofort verwenden.
Schöne Grüße
Golem

AW: Spaltenbreite mit Code einstellen.
14.12.2012 18:03:40
Golem
Hallo Excel-Fachleute,
wie kann ich beim folgenden Code Range("S:NH") durch Eingabezellen
ersetzen? Ich habe zwei Zellen in denen ich zB. in Zelle A5 S eingebe und z.B. in Zelle A6 NH
eingebe.
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
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Golem

Anzeige
AW: Spaltenbreite mit Code einstellen.
15.12.2012 07:55:59
Matze,Matthias
Hallo Golem,
in dem Blatt wo der Button ist, sind dann auch die Zellen A5 / A6 als Eingabezelle
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
Nachteil hier, wenn kein Wert eingegen, dann Fehler

Anzeige
AW: Spaltenbreite mit Code einstellen.
15.12.2012 18:20:21
Golem
Hallo Matthias,
einen schönen Dank für Deinen Vorschlag.
Ich habe den Rangebereich nach Deinen Vorschlag variabel gemacht.
Nach dem Ausführen kommt die Fehlermeldung, Fehler beim Kompilieren: Variable nicht definiert.
Ist das der Fehler den Du angibst?
Schöne Grüße
Golem

Anzeige
AW: Spaltenbreite mit Code einstellen.
15.12.2012 19:39:56
Matze,Matthias
wenn du mit Option Explicit arbeitest verlangt man auch die Deklaration der Variablen,
somit muß noch folgende Zeile mit rein.
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

Anzeige
AW: Spaltenbreite mit Code einstellen.
15.12.2012 20:26:04
Matze,Matthias
Hi Golem,
hier noch eine kleine Musterdatei für dich,
acht mal auf die Spalten mit längeren Texteingaben.
Bei 15er Breite wird dieser nicht komplett angezeigt, in der Autobreite dann schon.
Viel Spaß damit
https://www.herber.de/bbs/user/83023.xlsm
Matze

Anzeige
AW: Spaltenbreite mit Code einstellen.
16.12.2012 14:44:14
Golem
Hallo Matze,
mit einer Deklaration der Variablen kannte ich mich nicht mit aus.
Aber jetzt funktioniert der Code einwandfrei.
Auch Deine Datei ist super. Du hast mir wieder geholfen und was wichtig ist,
ich lerne im Bereich VBA immer mehr dazu.
Einen schönen Dank für Deine Hilfe!
Golem

Anzeige
AW: Spaltenbreite mit Code einstellen.
13.12.2012 10:39:28
Henrik
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

Anzeige
AW: Spaltenbreite mit Code einstellen.
13.12.2012 18:03:03
Golem
Hallo Henrik,
einen schönen Dank für Deine Antwort.
Ich find Deine Lösung sehr gut und habe auch schon eine neue Excel-Anwendung im Kopf,
wofür ich Deinen Vorschlag verwenden kann.
Für meine jetzige Anwendung ist die Lösung von Hary aber ideal.
Schöne Grüße
Golem
;

Forumthreads zu verwandten Themen

Spaltenbreiten anpassen
Joachim

Hi,
ich wollte auf einen Sheet die Breite der Spalten alle zuerst mal auf 0 setzten und dann auf optimale breite, dass ich nur noch sie Spalten sehe, die Inhalte haben:
Cells.Select
Selection.ColumnWidth = 0#
Selection.Columns.AutoFit
Range("A1").Select
Wenn ich den Code...
27.03.2009 19:59:52
Thread-ID: 1064741
5 Beiträge
Spaltenbreite nach Filtern anpassen
urs

Guten Abend
Über Filter werden die gesuchten Werte einer grossen Tabelle eingegrenzt.
Wie kann ich nun die Spaltenbreite automatisch der benötigten Breite der SICHTBAREN Zeilen anpassen.
Lässt sich diese benötigte Breite ermitteln? Makro gesucht!
Vielen Dank für Eure Hilfe
G...
26.01.2010 15:51:16
Thread-ID: 1133117
6 Beiträge
unterschiedliche Spaltenbreite in Liniendiagramm
anke

Hallo,
ich habe ein Diagramm mit einer X- und 2 Y-Achsen erstellt. In der X-Achse werden Daten angezeigt.
Lieder ist der Abstand zwischen den Daten nicht immer gleich. Kann ich in einem Diagramm die Spaltenbreite bestimmen?
Vielen Dank schonmal
Anke
13.04.2010 13:05:58
Thread-ID: 1151417
2 Beiträge
Zellgröße automatisch an Textlänge anpassen?
Martin

Hallo liebe Herber-Gemeinde,
gibt es eine Möglichkeit die Zellgröße in Excel automatisch an den darin vorhandenen Text anzupassen, ohne dass der Text dabei verkleinert wird?
Die fragliche Zelle wird mittels einer Formel mit Text aus einem anderen Tabellenblatt befüllt, der von Monat zu...
02.06.2010 12:11:47
Thread-ID: 1159990
6 Beiträge
Spaltenbreite in Excel 2003 automatisch anpassen
Maximilian

Guten Tag!
Kann man in Excel 2003 die Spaltenbreite irgendwie automatisch anpassen? Alternativ per VBA Script? Hat da jemand einen Tipp?
13.12.2012 13:09:16
Thread-ID: 1290735
3 Beiträge
Spaltenbreite in mm
Rolf

Hallo
Ich möchte die Spaltenbreite in mm angeben. Das soll möglich sein.
Vielen Dank im vorraus.
Rolf K.
14.04.2014 15:06:13
Thread-ID: 1357268
3 Beiträge
Excel Spaltenbreite anpassen
Addi

Hallo Zusammen,
ich habe folgendes Problem - ich muss tägliche mehrere Excel-Files bearbeiten, die jeweils in der Zeile 1 enorm lange Überschriften hat.
Die relevanten Daten unterhalb der Überschriften variieren auch in der Länge aber nur gering - es handelt sich hauptsächlich um Geldbe...
08.07.2014 12:55:09
Thread-ID: 1369285
4 Beiträge
Wandernde Dropbox anpassen; Text in Zahl wandeln
Marcus

Hallo,
folgenden Code hat mir Rudi Mantaire zur Verfügung erstellt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngJahr As Range Set rngJahr = Intersect(Range("A1"), Target) If Not rngJahr Is Nothing Then varJahr = Range("A1").Value ComboBox1.Visible = False If Tar...
13.11.2014 14:52:13
Thread-ID: 1392208
10 Beiträge
Spaltenbreite an Zoomstufe anpassen
Michael

Hallo,
gibt es die Möglichkeit je nach Zoomstufe Excel zu veranlassen die Spaltenbreite automatisch anzupassen, so dass die Werte immer angezeigt werden und nicht ##### wenn zu wenig Platz vorhanden ist?
Gruß,
Michael
13.04.2015 10:22:27
Thread-ID: 1420460
2 Beiträge
Anzeige
Spaltenbreite in jedem Blatt anpassen
matthias

Hallo,
ich kann mittels Code die Spaltenbreite in einem Blatt anpassen. Sub Spalte() Columns("A:G").EntireColumn.AutoFit End Sub Wie kann ich diesen Code auf die Gesamtarbeitsmappe beziehen?
Sprich für des BLatt?
20.05.2015 14:06:42
Thread-ID: 1426941
2 Beiträge
Spaltenbreite an vorgegebenen Wert anpassen
Carsten

Hallo,
ich habe ja die Möglichkeit, die Breite einer Spalte auszulesen und in einer Zelle anzeigen zu lassen.
Ich suche nun nach einer Möglichkeit, dass Ganze umgekehrt zu machen. Ich möchte also die Breite einer Spalte in einer Zelle in Pixel angeben und die Spaltenbreite soll sich ent...
24.10.2015 09:26:31
Thread-ID: 1454082
5 Beiträge
Anzeige
Spaltenbreite behalten aber Höhe anpassen !?
Leo

Hallo zusammen,
ich hab` ne ganz blöde einfache Frage.
Welche Funktion muss ich nutzen, damit sich die Spalten (bei einem Text) automatisch in der Höhe vergrößern, damit ich den Text dann eben (in der Spalte) lesen kann ?
Ich hoffe ich hab` mich deutlich ausgrdrückt ?!
https://w...
21.11.2015 12:00:26
Thread-ID: 1459822
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Spaltenbreite in Excel mit VBA anpassen

Schritt-für-Schritt-Anleitung

Um die Spaltenbreite in Excel mit VBA anzupassen, kannst du folgenden Code verwenden. Dieser Code setzt die Breite der Spalten S bis NH auf 15:

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

Wenn du möchtest, dass die Spaltenbreite durch einen SpinButton (oder ähnliches) gesteuert wird, kannst du den folgenden Code verwenden. Hier wird die Breite abhängig von dem Wert in einer Zelle gesetzt:

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

Um die Spaltenbreite dynamisch anhand von Eingabezellen anzupassen, kannst du den folgenden Code verwenden:

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

Häufige Fehler und Lösungen

  1. Fehler beim Kompilieren: Variable nicht definiert

    • Achte darauf, dass du alle Variablen korrekt deklarierst. Füge Dim a As String, b As String hinzu, um diesen Fehler zu vermeiden.

  2. Spaltenbreite wird nicht angepasst

    • Stelle sicher, dass der Code korrekt auf die gewünschten Zellen zugreift. Überprüfe auch, ob die Eingabezellen richtig befüllt sind.

  3. Automatische Spaltenbreite funktioniert nicht

    • Verwende den AutoFit-Befehl, um die Spaltenbreite automatisch an den Inhalt anzupassen: 
      Range("S:NH").EntireColumn.AutoFit

Alternative Methoden

  • Autobreite aktivieren: Du kannst die Spaltenbreite automatisch an den Text anpassen, indem du den folgenden Befehl verwendest:

    Range("S:NH").EntireColumn.AutoFit

  • Worksheet Change Ereignis: Du kannst auch das Worksheet Change Ereignis nutzen, um die Spaltenbreite sofort anzupassen, wenn sich ein Wert in einer bestimmten Zelle ändert.

Praktische Beispiele

  1. Alle Spalten gleich breit setzen:

    Sub AlleSpaltenBreitEinstellen()
Columns("A:Z").ColumnWidth = 10
End Sub

  2. Spaltenbreite an Text anpassen:

    Sub SpaltenbreiteAnTextAnpassen()
Columns("A:Z").AutoFit
End Sub

  3. Spaltenbreite für mehrere Spalten anpassen:

    Sub MehrereSpaltenBreiteAnpassen()
Range("A:C").ColumnWidth = 20
End Sub

Tipps für Profis

  • Tastenkombinationen: Nutze Alt + H + O + I, um die Spaltenbreite automatisch an den Inhalt anzupassen.
  • Makros aufzeichnen: Verwende den Makrorecorder, um dir eigene VBA-Codes zu erstellen, die du anpassen kannst.
  • Option Explicit verwenden: Deklariere alle Variablen, um Fehler beim Kompilieren zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich die Spaltenbreite immer automatisch anpassen? Du kannst den AutoFit-Befehl verwenden, um die Spaltenbreite automatisch an den Inhalt anzupassen.

2. Funktioniert der Code in allen Excel-Versionen? Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen.

3. Wie kann ich die Spaltenbreite für mehrere Spalten anpassen? Verwende die Range-Eigenschaft, um mehrere Spalten gleichzeitig anzupassen, z.B. Range("A:C").ColumnWidth = 15.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige