Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Rechnungsnummer in Registry eintragen, auslesen, löschen

Gruppe

Anwendung

Problem

Wie kann ich eine Rechnungsnummer in die Registry eintragen, später auslesen, zurücksetzen und den Registryeintrag wieder löschen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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