Habe in der Firma einen neuen Rechner bekommen und seither ein Problem:
Viele meiner Excel Dateien passen neuerdings nicht mehr auf eine Seite. Wenn ich unter „Seite einrichten“ den unteren Rand von Standart 2,5 auf 2,0 ändere, habe ich das Problem für alle meine Dateien nicht mehr.
Wo kann ich die Standartvorlage der Arbeitsmappe so ändern, dass sie dauerhaft in der unteren Randeinstellung so bleibt.
Die Möglichkeit eine andere Arbeitsvorlage zu erstellen kenne ich, aber ich möchte, dass nur noch die neue Einstellung standartmäßig automatisch geladen wird.
Oder wie bekomme ich das Seitenlayout wieder in den Griff?
Hat jemand einen Tipp?
robe*
Hi,
Auszug aus der Excel-Hilfe:
Speichern von Formatvorlagen zur Verwendung in neuen Arbeitsmappen
Öffnen Sie eine neue leere Arbeitsmappe.
Öffnen Sie die Arbeitsmappe, die die Formatvorlagen enthält, die Sie speichern möchten.
Kopieren Sie die Formatvorlagen aus dieser Arbeitsmappe in die leere Arbeitsmappe.
Öffnen Sie die Arbeitsmappe, die die Formatvorlagen enthält, die Sie kopieren möchten.
Öffnen Sie die Arbeitsmappe, in die Sie die Formatvorlagen kopieren möchten, und klicken Sie dann im Menü Format auf Formatvorlage.
Klicken Sie auf Zusammenführen.
Doppelklicken Sie im Dialogfeld Formatvorlagen zusammenführen auf die Arbeitsmappe mit den Formatvorlagen, die Sie kopieren möchten.
Anmerkung
Wenn die beiden Arbeitsmappen Formatvorlagen mit gleichen Namen enthalten, müssen Sie bestätigen, dass diese Formatvorlagen zusammengeführt werden sollen. Um die Formatvorlagen der aktiven Arbeitsmappe durch die kopierten Formatvorlagen zu ersetzen, klicken Sie auf Ja. Um die Formatvorlagen der aktiven Arbeitsmappe beizubehalten, klicken Sie auf Nein. Diese Warnung wird unabhängig von der Anzahl identischer Formatvorlagennamen nur einmal angezeigt.
Klicken in der leeren Arbeitsmappe im Menü Datei auf Speichern unter. Geben Sie Mappe im Feld Dateiname ein. Klicken Sie in der Liste Dateityp auf Mustervorlage (*.xlt).
Klicken Sie in der Liste unter Speichern in auf den Ordner Vorlagen.
Klicken Sie auf Speichern.
Anmerkung Die gespeicherten Formatvorlagen stehen anschließend in allen neuen Arbeitsmappen zur Verfügung, die Sie durch Klicken auf Neu erstellen.
Hoffe, das hilft schon weiter.
Grüße,
Kerstin
Schade, das löst das Problem nicht wirklich…
Hallo Kerstin,
Danke für deine Bemühungen. Aber siehe:
Auszug aus der Excel-Hilfe:
Anmerkung Die gespeicherten Formatvorlagen stehen
anschließend in allen neuen Arbeitsmappen zur Verfügung, die
Sie durch Klicken auf Neu erstellen.
Ich wollte nicht neu erstellte Arbeitsmappen in der neuen Form haben, sondern ALLE, die ich öffne (auch die bereits vorhandenen) und dazu wird wohl erforderlich sein, die Standarteinstellung der Arbeitsmappe in Excel zu verändern. Dafür suche ich einen Weg.
Grüße
robe*
uups, da hab ich wohl was falsch verstanden…
Klassenmodul in dder personl.xls
Viele meiner Excel Dateien passen neuerdings nicht mehr auf
eine Seite. Wenn ich unter „Seite einrichten“ den
unteren Rand von Standart 2,5 auf 2,0 ändere, habe ich das
Problem für alle meine Dateien nicht mehr.
Wo kann ich die Standartvorlage der Arbeitsmappe so ändern,
dass sie dauerhaft in der unteren Randeinstellung so bleibt.
Die Möglichkeit eine andere Arbeitsvorlage zu erstellen kenne
ich, aber ich möchte, dass nur noch die neue Einstellung
standartmäßig automatisch geladen wird.
Oder wie bekomme ich das Seitenlayout wieder in den Griff?
Hat jemand einen Tipp?
Hi robe,
du willst also dass etwas bei jeder Datei geschieht die du öffnest, egal ob neue Datei oder alte.
Ich hatte das gleiche Problem, in der Art, dass bei jeder Datei ein Verweis gesetzt werden muss.
Gelöst habe ich es wie nachfolgend, das musst du dir m.E. nur umbasteln. Kannst ja Rückmeldung geben ob es klappte.
Gruß
Reinhard
Füge ein Klassenmudul namens „AppEventClass“ hinzu, darein den Code:
Option Explicit
Public WithEvents xlApp As Excel.Application
Private Sub Class_Initialize()
Set xlApp = Application
End Sub
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
On Error Resume Next
Application.VBE.ActiveVBProject.References.AddFromFile „fm20.dll“
'Application.VBE.ActiveVBProject.References.AddFromFile _
'„c:\programme\microsoft office\office\makro\solver\solver.xla“
End Sub
In „DieseArbeitsmappe“ den Code:
Private Sub Workbook_Open()
Set xlEvents.xlApp = Application
End Sub
Hallo Robe,
falls du mit Reinhard’s Vorschlag nicht klarkommst (ich habe zumindest Versändnisschwierigkeiten) Dann kannst du zumindest „manuell“ die Einstellung mit folgendem Makro für alle Tabellen einer Mappe einfach machen.
Sub UntererRand2cm()
'
' Unterer Rand wird für alle Tabellenblätter der aktiven Mappe auf 2 cm gesetzt
For Each Tabelle In ActiveWorkbook.Worksheets
With Tabelle.PageSetup
.BottomMargin = Application.InchesToPoints(0.78740157480315)
End With
Next
End Sub
Makro in die PERSONL.XLS packen und dann für optimalen Komfort in einer Symbolleiste einem eigenen Button zuordnen
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
falls du mit Reinhard’s Vorschlag nicht klarkommst (ich habe
zumindest Versändnisschwierigkeiten) Dann kannst du zumindest
„manuell“ die Einstellung mit folgendem Makro für alle
Tabellen einer Mappe einfach machen.
Hallo Franz,
Klassenmodule kapiere ich auch nicht so, aber mache das nachfolgende und es funktioniert:
In der „Personl.xls“ folgendes tun:
Ein Klassenmodul namens „AppEventClass“ einfügen.
Dorthinein den Code:
Option Explicit
Public WithEvents xlApp As Excel.Application
Private Sub Class\_Initialize()
Set xlApp = Application
End Sub
Private Sub xlApp\_WorkbookOpen(ByVal Wb As Workbook)
Dim Tabelle As Worksheet
On Error Resume Next
For Each Tabelle In ActiveWorkbook.Worksheets
With Tabelle.PageSetup
.BottomMargin = Application.InchesToPoints(0.78740157480315)
End With
Next
End Sub
und in "DieseArbeitsmappe" den Code:
Private Sub Workbook\_Open()
Set xlEvents.xlApp = Application
End Sub
Gruß
Reinhad
Danke für die Tipps !
Hallo Franz, hallo Reinhard,
Dank euch für eure Tipps.
Habe das Problem zwischenzeitlich anders (über die Druckersteuerung) gelöst.
Gruß
robe*