Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

XLTM: zählen wie oft geöffnet

XLTM: zählen wie oft geöffnet
22.05.2019 12:41:42
Hans
Hallo zusammen,
folgendes habe ich vor:
Es liegt eine Excel-Vorlage (.xltm) auf einem Server die jeden Tag von verschiedenen Kollegen geöffnet wird. Ich würde gerne zählen lassen, wie oft diese Datei geöffnet wurde. Am besten wäre es, wenn in einem gesonderten Datei-Ordner bei jedem Öffnen einfach eine .txt-Datei ohne Inhalt erzeugt wird (bspw. 1.txt, dann 2.txt, usw.).
Hat jemand eine Idee wie man das umsetzen kann?
Vielen Dank und viele Grüße
Simy

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: XLTM: zählen wie oft geöffnet
22.05.2019 13:12:55
Rudi
Hallo,
in DieseArbeitsmappe: 
Private Sub Workbook_Open()
Dim lngLastNumber As Long, strFILE As String
Dim intFREE As Integer
Const strPFAD As String = "c:\test\"
Const strEXT As String = ".txt"
intFREE = FreeFile
strFILE = Dir(strPFAD & "*" & strEXT, vbNormal)
Do While strFILE  ""
lngLastNumber = WorksheetFunction.Max(lngLastNumber, --Replace(strFILE, strEXT, ""))
strFILE = Dir
Loop
lngLastNumber = WorksheetFunction.Max(lngLastNumber + 1, 1)
Open strPFAD & lngLastNumber & strEXT For Output As #intFREE
Close #intFREE
End Sub

Gruß
Rudi
Anzeige
AW: XLTM: zählen wie oft geöffnet
22.05.2019 13:15:06
Marco
Hallo Simy,
am einfachsten Du setzt dieses Makro direkt in "DieseArbeitsmappe".
in dem Makro musst Du allerdings ein Feld angeben in dem der zähler gespeichert wird.
Evtl. das Makro noch erweitern, dass es automatisch gespeichert wird.
Das wäre der einfachste Lösungsansatz.
Viele Grüße
Marco
Private Sub Workbook_Open()
Dim strDateiname As String, strPath As String
Dim zaehler As Integer
zaehler = ThisWorkbook.Sheets(1).Range("A1").Value
zaehler = zaehler + 1
ThisWorkbook.Sheets(1).Range("A1").Value = zaehler
strPath = "H:\txt\" 'Speicherpfad eintragen
strDateiname = zaehler & ".txt" 'Dateinamen mit Dateiendung eintragen
Open strPath & strDateiname For Output As #1
Close #1
ThisWorkbook.Sheets("Tabelle1").Range("A1").Value = zaehler
End Sub

Anzeige
AW: XLTM: zählen wie oft geöffnet
22.05.2019 13:16:36
Nepumuk
Hallo Simy,
in das Modul "DieseArbeitsmappe":
Option Explicit

Private Sub Workbook_Open()
    Const FOLDER_PATH As String = "H:\Folder" ' Anpassen !!!
    Dim objFileSystemObject As Object, objFolder As Object
    Dim objTextFile As Object
    If ThisWorkbook.Path = vbNullString Then
        Set objFileSystemObject = CreateObject(Class:="Scripting.FileSystemObject")
        Set objFolder = objFileSystemObject.GetFolder(FOLDER_PATH)
        Set objTextFile = objFileSystemObject.CreateTextFile( _
            FOLDER_PATH & "\" & CStr(objFolder.Files.Count + 1) & ".txt", True)
        Call objTextFile.Close
        Set objTextFile = Nothing
        Set objFolder = Nothing
        Set objFileSystemObject = Nothing
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: XLTM: zählen wie oft geöffnet
22.05.2019 13:32:05
Hans
Vielen Dank an Euch drei!! Funktioniert perfekt :-)
AW: XLTM: zählen wie oft geöffnet
22.05.2019 13:37:33
Rudi
Hallo,
nimm Nepumuks Code.
If ThisWorkbook.Path = vbNullString Then
berücksichtigt, ob die aus der Vorlage erzeugte Mappe noch nicht gespeichert wurde.
Bei mir und Marco wird auch das Öffnen der resultierenden Mappen gezählt.
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige