HERBERS Excel-Forum - die Beispiele

Thema: Rechnungsnummer in Registry eintragen, auslesen, löschen

Home

Gruppe

Allgemein

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Anwendung

Laufzeitfehler 1004: Anwendungs- oder objektorient Exel immer in neuer Anwendung öffnen
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
anwendungen öffnen VBA Anwendung schließen
Beliebige Anwendung in VBA schließen allgemein
AW: Fertige Anwendungen/Formulare Fertige Anwendungen/Formulare.
Anwendungs- oder objektori. Fehler allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage Formelassistent allgemein
Laufende Anwendung ermitteln und beenden Laufzeitfehler 1004, Anwendungs und obj.
eine datei in anwendung Diagramme in Vektorformat für andere Anwendungen?
allgemeingültig Blattschutz aufheben Nur eine Mappe pro Anwendung
Anwendung im Vordergrund Anwendungs- oder objektdefinierter Fehler
andere anwendung steuern, mauszeiger auslesen? allgemeine Frage...
if then Anwendung in einem Makro Solver - allgemein
Solver - allgemein MsgBox anzeigen / Zellen auswählen / Anwendung ?
Formatierung für fremde Anwendung Meldung bei nicht geöffneter Anwendung
Name der aktiven Anwendung Anwendungs- oder Objektbezogener Fehler
Frage zum Forum allgemein Anwendungen in verschiedenen Fenstern öffnen
Anwendungs- oder objektdefinierter Fehler Allgemeine Frage - Finanz-Planungsmodell
Problem mit dem Schließen der Excel-Anwendung Anwendungen schliessen und Windows herunterfahren
Pivoteingrenzung Formel verallgemeinern Anwendungsfehler With ThisWorkbook.Worksheets ...
Hardcopy aus anderer Anwendung einfügen makro verallgemeinern
Office allgemein, bitte hilfe allgemein
Allgemeine Frage zu Makro Komprimieren möglich? Allgemeine Frage
Tabelle aus anderer Anwendung formatieren Wechsel zwischen Anwendungen mit VBA
andere Excelanwendung öffnen bedingte Formatierung allgemein