Gruppe
Allgemein
Problem
Wie kann ich eine Rechnungsnummer in die Registry eintragen, später auslesen, zurücksetzen und den Registryeintrag wieder löschen?
StandardModule: basMain
Sub AnlegenUndHochzaehlen()
Dim var As Variant
var = GetSetting( _
appname:="Rechnungswesen", _
section:="Rechnungen", _
key:="Nummer")
If var = "" Then
SaveSetting _
appname:="Rechnungswesen", _
section:="Rechnungen", _
key:="Nummer", _
Setting:=1
Range("B1") = 1
Else
SaveSetting _
appname:="Rechnungswesen", _
section:="Rechnungen", _
key:="Nummer", _
Setting:=var + 1
Range("B1") = var + 1
End If
End Sub
Sub RegistryLoeschen()
On Error Resume Next
DeleteSetting "Rechnungswesen"
Range("B1").ClearContents
End Sub
Sub RegistryReset()
Dim var As Variant
var = InputBox( _
prompt:="Bitte numerische Rechnungsnummer eingeben:")
If var = "" Then Exit Sub
SaveSetting _
appname:="Rechnungswesen", _
section:="Rechnungen", _
key:="Nummer", _
Setting:=var
Range("B1") = var
End Sub