Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hochzählen beim Öffnen/Speichern einer Datei

Forumthread: Hochzählen beim Öffnen/Speichern einer Datei

Hochzählen beim Öffnen/Speichern einer Datei
19.01.2005 08:19:55
Thomas
Hallo Zusammen,
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hochzählen beim Öffnen/Speichern einer Datei
UweD
Hallo

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "DieseArbeitsmappe" doppelklicken

  • Im neuen Fenster das Makro einfügen



Private Sub Workbook_Open()
[A1] = [A1] + 1
End Sub

Anzeige
AW: Hochzählen beim Öffnen/Speichern einer Datei
UweD
speichern geht auch:

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

Anzeige
AW: Hochzählen beim Öffnen/Speichern einer Datei
19.01.2005 08:37:50
Matthias
Hallo Uwe,
allerdings wird der Öffnen-Zähler nur dauerhaft hochgezählt, wenn die Mappe auch gespeichert wird ;-)
Könnte man aber auch ändern:
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ß Matthias
Anzeige
AW: Hochzählen beim Öffnen/Speichern einer Datei
Thomas
Perfekt, danke an alle!
;
Anzeige

Infobox / Tutorial

Hochzählen beim Öffnen und Speichern von Excel-Dateien


Schritt-für-Schritt-Anleitung

Um 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:

  1. VBA Editor öffnen:

    • Drücke Alt + F11.
  2. Project Explorer öffnen:

    • Drücke Strg + R.
  3. "DieseArbeitsmappe" auswählen:

    • Doppelklicke auf "DieseArbeitsmappe" im Project Explorer.
  4. Makro einfügen:

    • Füge den folgenden Code in das Fenster ein:
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
  1. Speichern und Schließen:
    • Speichere die Arbeitsmappe als "Excel-Makro-fähige Arbeitsmappe" (.xlsm) und schließe den VBA-Editor.

Jetzt wird in Zelle A1 hochgezählt, wie oft die Datei geöffnet wurde, und in Zelle B1, wie oft sie gespeichert wurde.


Häufige Fehler und Lösungen

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

Alternative Methoden

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.


Praktische Beispiele

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.


Tipps für Profis

  • Aktiviere die Makrosicherheit in Excel, um sicherzustellen, dass deine Makros ordnungsgemäß funktionieren.
  • Nutze den VBA-Editor, um deine Makros zu optimieren und anzupassen.
  • Überlege, wie du den Zähler in Diagrammen oder Berichten verwenden kannst, um einen besseren Überblick über die Nutzung deiner Excel-Datei zu erhalten.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige