Thema Datum  Von Nutzer Rating
Antwort
28.02.2013 09:16:16 Steffi
NotSolved
28.02.2013 11:40:31 Max
NotSolved
28.02.2013 12:29:44 Gast66299
NotSolved
28.02.2013 13:13:32 Max
NotSolved
Rot Counter
 04.03.2013 16:28:55 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
04.03.2013 16:28:55		 Views:
1003		 Rating:
     
Antwort:
  Ja
Thema:
Counter

Hallo Steffi,

wenn du etwas verdeckter zählen  möchtest, empfehle ich dir, der Arbeitsmappe eine benutzerdefinierte Eigenschaft zu geben. Dazu muss nur einmal z.B. folgendes Makro in einem Standardmodul laufen. Es kann danach wieder gelöscht werden. Ein weiteres Starten führt zu einem Fehler.

Sub WorkbookPropertyAnlegen()
ActiveWorkbook.CustomDocumentProperties.Add Name:="Aufrufe", _
LinkToContent:=False, Type:=msoPropertyTypeNumber, Value:=0
End Sub

In VBA-Abschnitt 'Diese Arbeitsmappe'  z.B. dieses Makro stehen, das beim Öffnen der Arneitsmappe ausgeführt wird. Statt der MsgBox ist jede andere Weiterverarbeitung möglich.

Private Sub Workbook_Open()
With ThisWorkbook.CustomDocumentProperties("Aufrufe")
    .Value = .Value + 1
    MsgBox .Value
End With
End Sub

Willst du für ein Tabellenblatt das Öffnen zählen, verwende z.B. im VBA-Abschnitt für das Tabellenblatt

Private Sub Workheet_activate()
With ThisWorkbook.CustomDocumentProperties("Aufrufe")
    .Value = .Value + 1
    MsgBox .Value
End With
End Sub

Gruß
Holger

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.02.2013 09:16:16 Steffi
NotSolved
28.02.2013 11:40:31 Max
NotSolved
28.02.2013 12:29:44 Gast66299
NotSolved
28.02.2013 13:13:32 Max
NotSolved
Rot Counter
 04.03.2013 16:28:55 Holger
NotSolved