gibt es in Excel eine Möglichkeit, in einer Zelle anzuzeigen wie oft die Datei geöffnet und/oder gespeichert wurde? (Ähnlich eines Counters auf einer Homepage)
Danke&Grüße
Thomas
Private Sub Workbook_Open()
[A1] = [A1] + 1
End Sub
Private Sub Workbook_Open() 'geöffnet
[A1] = [A1] + 1
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'gespeichert
[B1] = [B1] + 1
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).[a2] = Sheets(1).[a2] + 1
End Sub
Private Sub Workbook_Open()
Sheets(1).[a1] = Sheets(1).[a1] + 1
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
End Sub
Gruß MatthiasUm in Excel zu hochzählen, wie oft eine Datei geöffnet und gespeichert wurde, kannst du VBA (Visual Basic for Applications) verwenden. Folge diesen Schritten:
VBA Editor öffnen:
Alt + F11
.Project Explorer öffnen:
Strg + R
."DieseArbeitsmappe" auswählen:
Makro einfügen:
Private Sub Workbook_Open() ' Für das Öffnen
[A1] = [A1] + 1
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' Für das Speichern
[B1] = [B1] + 1
End Sub
Jetzt wird in Zelle A1 hochgezählt, wie oft die Datei geöffnet wurde, und in Zelle B1, wie oft sie gespeichert wurde.
Fehler: Die Zähler erhöhen sich nicht.
Lösung: Stelle sicher, dass du die Datei als .xlsm gespeichert hast und dass Makros aktiviert sind.
Fehler: Der Öffnen-Zähler erhöht sich nur, wenn die Datei gespeichert wird.
Lösung: Verwende den folgenden Code, um sicherzustellen, dass der Zähler auch bei jedem Öffnen erhöht wird:
Private Sub Workbook_Open()
Sheets(1).[A1] = Sheets(1).[A1] + 1
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
End Sub
Wenn du keine Makros verwenden möchtest, gibt es keine direkte Excel-Funktion, um das Hochzählen beim Öffnen oder Speichern zu realisieren. Eine mögliche Alternative wäre eine manuelle Zählung oder die Verwendung eines externen Tools, das mit Excel integriert werden kann.
Beispiel 1: Du möchtest den Zähler in einer anderen Zelle als A1 oder B1 anzeigen. Ändere den Code entsprechend:
Private Sub Workbook_Open()
Sheets(1).[C1] = Sheets(1).[C1] + 1
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(1).[D1] = Sheets(1).[D1] + 1
End Sub
Beispiel 2: Um die Zähler nur für bestimmte Benutzer zu erhöhen, kannst du Bedingungen in den Code einfügen, die auf Benutzereingaben basieren.
1. Kann ich die Zähler anpassen, um sie in anderen Zellen anzuzeigen?
Ja, du kannst die Zellreferenzen im Code ändern, um die Zähler in beliebigen Zellen deiner Wahl anzuzeigen.
2. Was passiert, wenn ich die Datei als .xlsx speichere?
Wenn du die Datei als .xlsx speicherst, gehen die Makros verloren, da dieses Format keine Makros unterstützt. Stelle sicher, dass du das .xlsm-Format verwendest.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen