Private Sub Image1_Click()
Splashscreen.Hide
Userform1.Show vbModeless
Cells(1000, 1).value = Cells(1000, 1).value + 1
ActiveWorkbook.Save
Dim strPfad As String
bookName = ActiveWorkbook.name
Application.DisplayAlerts = False
strPfad = Environ("UserProfile") & "\Desktop\"
ActiveWorkbook.SaveAs fileName:=strPfad & bookName, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
Nun SOLLTE die Zelle A1000 (Counter_Userform1) eine Zahl x enthalten, die um 1 größer ist, als zuvor.
Nun rufe ich über einen Butten in der Userform die Anzahl auf und bekomme die Zahl x + 2!
Private Sub Counter_Click()
Dim Counter As Integer
Counter = Cells(1000, 1)
MsgBox "Die Datei hatte bis jetzt " & Counter & " Aufrufe."
End Sub
Wird durch das speichern ggf. kurzzeitig die UF neu geöffnet und die Zahl wird wiederholt dazuaddiert?
Könnt ihr mir sagen, wie ich (unbedingt unsichtbar für den user!) die Zahlen auch einfach bei Aufruf der Userform an eine Datei "Statistiken.XLSX" in die Zellen A1, A2, A3 bekomme? Ich habe dazu lange gesucht, aber nie das richtige gefunden :/ Damit könnte ich nämlich das Doppelte Speichern der Datei vermeiden und so ggf. die Doppelzählungen des Counters.
Vielen Dank für euren Support!
Dörk