Möglicherweise möchten Sie nachverfolgen, wie oft ein bestimmtes Arbeitsblatt verwendet wird. Es gibt viele Möglichkeiten, dies zu erreichen. Eine einfache Möglichkeit besteht darin, die Anzahl einfach im Arbeitsblatt selbst zu speichern.

Klicken Sie mit der rechten Maustaste auf eine Arbeitsblattregisterkarte, und wählen Sie im Kontextmenü die Option Code anzeigen. Excel zeigt den Visual Basic-Editor an, in den Sie den folgenden Code einfügen sollten:

Private Sub Worksheet_Activate()

Range("A1").Select 'customize Range     ActiveCell = ActiveCell + 1     Range("B1") = "times opened" 'customize Range End Sub

Dieser Code erhöht den Wert in Zelle A1 jedes Mal, wenn das Arbeitsblatt aktiviert wird. Sie können die Zellenpositionen, an denen das Makro seine Informationen schreibt, entsprechend Ihren Anforderungen ändern.

Ein gründlicherer Ansatz besteht darin, ein Makro zu erstellen, das benannte Referenzen in der Arbeitsmappe erhöht. Betrachten Sie das folgende Makro:

Function IncrementEventCounter(sName As String, sht As Object)

On Error Resume Next     If sht.Names(sName) Is Nothing Then _       ThisWorkbook.Names.Add "'" & sht.Name & "'!" & sName, "1", False     On Error GoTo 0     With ThisWorkbook.Names("'" & sht.Name & "'!" & sName)

.RefersTo = Val(Mid(.Value, 2)) + 1     End With End Function

Diese Funktion kann von einem anderen Makro aus aufgerufen werden – eines, das durch das Ereignis ausgelöst wird, das dazu führen soll, dass der Nutzungszähler erhöht wird.

Wenn Sie beispielsweise jedes Mal verfolgen möchten, wenn das Arbeitsblatt aktiviert wird, verwenden Sie das folgende Makro als Teil des ThisWorkbook-Objekts:

Private Sub Workbook_SheetActivate(ByVal sh As Object)

IncrementEventCounter "Activated", sh End Sub

Das Makro erhöht einen Zähler mit dem Namen „Aktiviert“ für das Arbeitsblatt. Dazu wird das Makro IncrementEventCounter mit dem Namen des Zählers und dem Namen des Arbeitsblatts aufgerufen. Wenn Sie stattdessen zählen möchten, wie oft ein Arbeitsblatt geändert wurde, können Sie das folgende Makro als Teil des ThisWorkbook-Objekts verwenden:

Private Sub Workbook_SheetChange(ByVal sh As Object, _   ByVal Target As Excel.Range)

IncrementEventCounter "Changed", sh End Sub

Der einzige Unterschied zwischen diesem und dem vorherigen Makro besteht darin, dass ein Zähler mit dem Namen „Geändert“ inkrementiert wird. Um die Werte der Zähler anzuzeigen, geben Sie einfach eine Formel in eine Zelle ein, die auf den Zähler verweist. Sie können beispielsweise = Geändert eingeben, um den Wert des geänderten Zählers anzuzeigen, oder = Aktiviert, um den Wert des aktivierten Zählers anzuzeigen. Der Wert jedes Zählers ist von Blatt zu Blatt unterschiedlich, da die Zähler Blatt für Blatt verwaltet werden.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (10544) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Zählen der Zeiten, in denen ein Arbeitsblatt verwendet wird.