Hallo,
ich möchte in einer Vorlagendatei (Excel 2007) einen Zähler haben, der beim Benutzen dieser Vorlage um einen Wert hochzählt. Ich habe meine Datei gemacht und folgendes Makro eingebaut:
Sub Auto_Open()
Range(„b1“).Value = Range(„b1“).Value + 1
End Sub
Die Datei habe ich als Vorlage.xltm abgespeichert. Wenn ich nun über neu diese Vorlage benutze wird nur beim ersten Mal der Zähler um 1 hochgezählt, danach geht es nicht mehr. Wie kann ich es machen, damit es geht?
Danke für Hilfe
Michael
ich möchte in einer Vorlagendatei (Excel 2007) einen Zähler
haben, der beim Benutzen dieser Vorlage um einen Wert
hochzählt.
Hallo Michael,
im Modul „Diese Arbeitsmappe“:
Option Explicit
’
Private Sub Workbook_Open()
Const PfadDatei As String = „c:\test\Vorlage.txt“
If Dir(PfadDatei) = „“ Then Call Schreiben(PfadDatei, 0)
Call Lesen(PfadDatei)
Call Schreiben(PfadDatei, Zahl + 1)
Worksheets(„Tabelle1“).Range(„B1“).Value = Zahl + 1
End Sub
im Modul „Modul1“:
Option Explicit
’
Public Zahl As Integer, FF As Long
’
Sub Schreiben(PD As String, Z As Integer)
FF = FreeFile
Open PD For Output As #FF
Print #FF, Z
Close #FF
End Sub
’
Sub Lesen(PD As String)
FF = FreeFile
Open PD For Input As #FF
Input #FF, Zahl
Close #FF
End Sub
Gruß
Reinhard
Hallo Reinhard,
vielen Dank schon mal für die schnelle Antwort. Leider klappt etwas noch nicht.
Ich bekomme eine Fehlermeldung, das die Variable Zahle nicht deklariert wurde. und das er FF nicht kennt. Muss ich am Makro noch etwas ändern, bevor ich es kopieren bzw. starten kann?
Guten Tag,
vielen Dank schon mal für die schnelle Antwort. Leider klappt
etwas noch nicht.
Ich bekomme eine Fehlermeldung, das die Variable Zahle nicht
deklariert wurde. und das er FF nicht kennt. Muss ich am Makro
noch etwas ändern, bevor ich es kopieren bzw. starten kann?
Hallo Michael,
Codes sind getestet unter XL2000 und XL2007, da klappte es problemlos.
Gruß
Reinhard
Hallo Reinhard,
sorry, habe wohl irgendetwas beim ersten Mal nicht korrekt gemacht.
Es funktioniert super und so, wie ich es benötige.
Danke
Michael