PDA

Vollständige Version anzeigen : Beim Öffnen Spaltenbreite automatisch anpassen


Mike40
18.08.2017, 17:21
Hallo zusammen,
gibt es eine Möglichkeit bei Excel einzustellen, das bei öffnen einer Datei ( hier auch csv) die Spaltenbreite immer automatisch angepasst wird?

Danke im Vorraus
Gruß
Mike

Klaus-Dieter
18.08.2017, 17:51
Hallo,

automatisch angepasst wird

worauf?

Mike40
18.08.2017, 18:17
auf die Breite des Textes. Das der Text in der Spalte voll lesbar ist

Klaus-Dieter
18.08.2017, 18:26
Hallo Mike,

versuche es mal mit diesem Makro im Modul der Arbeitsmappe.

Private Sub Workbook_Open()
Columns.EntireColumn.AutoFit
End Sub

Silentwolf
18.08.2017, 18:37
Hallo,
z.B. würde es so funktionieren

Private Sub Workbook_Open()
dim wksAlle as Worksheet

For Each wksAlle In Worksheets
wksAlle.Columns.AutoFit
Next wksAlle
End Sub

Würde das vielleicht helfen?

Gruß
Silentwolf

Mike40
18.08.2017, 18:47
Danke für eure Antworten,

aber....

der Hintergrund ist, das wir über ein anderes Programm eine csv ertstellen, und diese dann in Excel weiter bearbeiten wollen.

Deswegen ist die Arbeitsmappe immer eine Neue. Daher dachen wir an eine generelle Einstellung in Excel.

Das Marko muß ja m.E. immer neu geladen/ausgeführt werden (?)

Gruß
Mike

Storax
18.08.2017, 18:58
Eine generelle Einstellung gibt es nicht.

Mach das über ein AddIn. Da gehört eine Klasse rein, die z.B. rudimentär wie folgt aussieht.

Option Explicit

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
' RunCodeOn Wb
End Sub

Private Sub Class_Terminate()
Set App = Nothing
End Sub

Damit kannst Du feststellen, ob ein Workbook geöffnet wird und entsprechend auf das Event reagieren. Die Prozedur RunCodeOn musst Du natürlich selber schreiben und die Klasse evtl. anpassen, so dass sie auch reagiert, wenn eine CSV Datei geöffnet wird.

Mike40
18.08.2017, 19:05
Danke.....aber das übersteigt meine VBA Kenntnisse absolut.

Da wird es wohl erst mal wie bisher gehen müßen.

Danke euch
Gruß
Mike

Storax
18.08.2017, 19:14
Anbei rudimentäres Beispiel
"Knopf" zum Starten in der Datei, danach öffne ein Workbook und es wird eine MsgBox den Namen der gerade geöffneten Datei angezeigt.
Mit Stop beendest Du es.