Excel und VBA - Die Excel-FAQ

Rechnungsnummer in Registry eintragen, auslesen, löschen

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Rechnungsnummer in Registry eintragen, auslesen, löschen

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