Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spaltenbreite einfügen

Spaltenbreite einfügen
29.09.2002 21:23:09
wemte
Hi nochmal,

bei u.g. Prozess habe ich das nächste Problem:
die Zusammenstellung der zutreffenden Datensätze soll im Stil natürlich genauso aussehen wie das Original, wirklich wichtig ist dabei nur die Spaltenbreite.

...

Workbooks.Add
ActiveWorkbook.SaveAs "C:\Windows\Desktop\aktueller KB-Auszug.xls"
ThisWorkbook.Activate
Sheets("September").Select

Range("A5:W5").Select ''' {das ist die Kopfzeile mit der Spaltenbeschriftung}
Selection.Copy
Windows("aktueller KB-Auszug.xls").Activate
Range("A1:W1").Select

Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False

...

Ergebnis: Laufzeitfehler, die PasteSpecial bla bla konnte nicht ausgeführt werden.


WARUM NICHT ???,


Vielen Dank

wemte


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Spaltenbreite einfügen
29.09.2002 22:30:35
Burkhard W
Hallo

Columns("D:D").Select ' Spalte D
Selection.ColumnWidth = 40
Columns("D:G").Select ' Spalte D-G
Selection.ColumnWidth = 40

Mit diesen Befehl kannst Spaltenbreite direkt setzen

Range("A1:W1").Select
durch Range("A1").Select ersetzen
in deinem Makro

Guß BWE

Anzeige

65 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige