VBA Hochzählen ohne speichern
09.08.2016 19:47:52
Jef
ich habe eine Excel Datei, die in einer Zelle um 1 hochzählen soll (beim öffnen oder beim speichern unter), wobei die Datei schreibgeschützt bleibt/ist. Nun wird die Datei nur unter anderem Namen gespeichert, welche ich auch bereits über eine Makro vorgegeben habe.
Das Problem: Die Zelle zählt nicht hoch, ohne dass ich die "Hauptdatei" neu speichere.
Gibt es eine Möglichkeit Die Zelle hochzählen zu lassen, ohne dass die Datei gespeichert werden muss. Bspw. über die Anzahl der gespeichert unter, oder die Anzahl der Dateien in einem Ordner?
Makro bisher:
Sub Save_As()
ActiveWorkbook.SaveAs Filename:="\\XXXX\xxxx\13 Reklamation\Reklamationen mit ID\" & "Rek ID " & Range("F5").Value & " BestNr " & Range("F4") & ".xls"
End Sub
Private Sub Workbook_Open()
With Sheets("Reklamationsmanagement PC")
.Range("F5") = .Range("F5") + 1
End With
End Sub