Zähler in Excelvorlage
26.08.2023 22:27:46
JoWE
Hallo,
das könntest Du mittels AutoNew-Makro in einer Word-Dokumentvorlage machen:
So habe ich es irgendwann mal aus Herbers Excel-Forum kopiert:
Das Makro
Private Sub Document_New()
Modul1.AnlegenUndHochzaehlen
End Sub
wird angelegt unter This Document
es verzweigt in das Modul1, wo sich folgende Makros befinden:
Option Explicit
Sub AnlegenUndHochzaehlen() 'hiermit wird die RGNR für neue Dokumente um 1 erhöht
Dim var As Variant
var = GetSetting( _
appname:="Rechnungswesen", _
Section:="Rechnungen", _
Key:="Nummer")
If var = "" Then
SaveSetting _
appname:="Rechnungswesen", _
Section:="Rechnungen", _
Key:="Nummer", _
Setting:=1
ActiveDocument.Tables(1).Cell(1, 2).Range.Text = 1
Else
SaveSetting _
appname:="Rechnungswesen", _
Section:="Rechnungen", _
Key:="Nummer", _
Setting:=var + 1
ActiveDocument.Tables(1).Cell(1, 2).Range.Text = var + 1
End If
End Sub
Sub RegistryReset() 'hiermi die RNR auf 0 setezn
Dim var As Variant
var = InputBox( _
prompt:="Bitte numerische Rechnungsnummer eingeben:")
If var = "" Then Exit Sub
SaveSetting _
appname:="Rechnungswesen", _
Section:="Rechnungen", _
Key:="Nummer", _
Setting:=0
ActiveDocument.Tables(1).Cell(1, 2).Range.Text = 0
End Sub
Sub RegistryLoeschen() 'hiermit den Registry-Eintrag entfernen
On Error Resume Next
DeleteSetting "Rechnungswesen"
Range("B1").ClearContents
End Sub
Eine Beispielvorlage hänge ich hier als ZIP-File an
weil ein "dotm-File" nicht hochgeladen werden kann:
Gruß
Jochen