Excel VBA Datei per Makro speichern

Herzlichen Dank Claus,
<br />ich habe die Systematik jetzt mit dem Workbook_Open-Event verstanden.
<br />Das andere Makro hat auch funktioniert.
<br />Viele Grüße und einen schönen Abend
<br />Andreas
<br />

Hallo Andreas,
<br />es gibt nur ein Workbook_Open-Event. Du musst alle Befehle in dieses eine Makro schreiben.
<br />

Private Sub Workbook_Open()

Call BenutzerModus

With Sheets("Navigation")

.Activate

.ScrollArea = "A1:Q38"

End with

End Sub

Wenn du beim Öffnen "Navigation" aktivieren möchtest, bringe meinen Code in das Codemodul des Blattes "Anwesenheitsliste":
<br />

Private Sub Worksheet_Activate()

Dim c As Range

Set c = Range("12:12").Find(What:=Date)

ActiveWindow.ScrollColumn = c.Column

End Sub

Claus
<br />

Hallo Andreas,
<br />sieht so aus, dass der Ordner "Anwesenheit" direkt auf C ist und nicht auf dem Desktop.
<br />Probiere dann mal:
<br />

Sub Speichern()

ThisWorkbook.SaveAs "C:\Anwesenheit\" & "Anwesenheitsliste_" _

& Format(Date, "DD.MM.YYYY") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled _

, CreateBackup:=False

End Sub

Claus
<br />

Hallo Claus,
<br />Dankeschön, ich probiere es nachher gleich aus.
<br />In diesem Zusammenhang, wenn ich immer das gleiche Tabellenblatt angezeigt haben möchte, sobald die Datei geöffnet wird, so lege ich doch den Code in die übergeordnete "DieseArbeitsmappe"? Kommt es dort auf die Rangfolge der Makros an? Ich habe den u.a Code benutzt - der funktioniert einmalig. beim Ausführen. Schließe ich die Datei aber unter Ansicht eines anderen Blattes, wird mir auch das entsprechende letzte aktuelleTabellenblatt bei der Öffnung wieder gezeigt und nicht das festgelegte. Was ist denn mein Fehler?
<br />Viele Grüße
<br />Andreas


<br />

Hallo Claus;
<br />Danke für die Erklärung und Danke für die Hilfe beim "Pivotfehler". Funktioniert wieder.
<br />Claus, ich würde gerne in der Tabelle "Anwesenheitsliste", dass der Cursor beim Öffnen der Tabelle in die Reihe 12 und in die entsprechende Zelle des aktuellen Tages springt, so das man nicht lange scrollen muss, wenn eine Eintragung gemacht werden soll. Die Zellen sind in der Reihe ab J12: bis ....... als Datumsfelder angelegt.
<br />Ist das möglich?
<br />Dankre und viele Grüße
<br />Andreas
<br />