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

Spaltenbreite

Forumthread: Spaltenbreite

Spaltenbreite
Peter
Hallo,
ich habe mir gerade ein Makro aufgezeichnet, mit dessen Hilfe ich errreichen will, dass die _
markierten Spalten jeweils eine definierte Breite erhalten. 

Sub Makro1()
Columns("A:A").Select
Range("A2").Activate
Selection.ColumnWidth = 20
Columns("B:B").Select
Range("B2").Activate
Selection.ColumnWidth = 10
Range("C:C,E:E").Select
Range("E1").Activate
Selection.ColumnWidth = 40
Range("A1:D1").Select
End Sub

Wenn ich das Makro ausführe werden aber alle Spalten auf den letzten Wert (40) gesetzt.
Woran liegts, dass Excel seine eigenen Makros nicht versteht und wie kann ich das Problem lösen?
Gruß
Peter

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spaltenbreite
06.09.2012 14:11:26
Peter
Hallo Peter,
wird die Selects der Aufzeichnung raus und versuche es so: 
Sub Makro1()
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
.Columns("A:A").ColumnWidth = 20
.Columns("B:B").ColumnWidth = 10
.Range("C:C,E:E").ColumnWidth = 40
.Range("A1:D1").Select
End With
End Sub

Gruß Peter

Anzeige
AW: Spaltenbreite
07.09.2012 08:07:35
Peter
Danke, funktioniert!
;

Beliebteste Forumthreads (12 Monate)

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