Spaltenbreiten übertragen

Sub SpaltenbreiteKopieren() 'Kopiere Spalte A:G vom aktiven Tabellenblatt ActiveSheet.Columns("A:G").Copy 'Füg die Spaltenbreite in alle anderen sichtbaren Tabellen ein For Each ws In ThisWorkbook.Worksheets If ws.Visible Then ws.Cells.PasteSpecial Paste:=xlPasteColumnWidths, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False End If Next ws End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

in meiner Datei kein Fehler.


Option Explicit
Sub SpaltenbreiteKopieren()
'Kopiere Spalte A:G vom aktiven Tabellenblatt
Dim Ws As Worksheet
ActiveSheet.Columns("A:G").Copy
'Füg die Spaltenbreite in alle anderen sichtbaren Tabellen ein
For Each Ws In ThisWorkbook.Worksheets
If Ws.Visible Then
Ws.Cells.PasteSpecial Paste:=xlPasteColumnWidths
End If
Next Ws
End Sub

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Grußformel

In diesem Forum bekomme nur selten eine Mailbenachrichtigung, weitere Antworten sind zufällig.

Sub SpaltenbreiteKopieren() Dim Ws As Worksheet 'Kopiere Spalte A:G vom aktiven Tabellenblatt ActiveSheet.Columns("A:G").Copy 'Füg die Spaltenbreite in alle anderen sichtbaren Tabellen ein For Each Ws In ThisWorkbook.Worksheets If Ws.Visible And Ws.Name ActiveSheet.Name Then Ws.Columns("A:G").PasteSpecial Paste:=xlPasteColumnWidths End If Next Ws Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread