Komme mit SaveSetting nicht weiter

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Komme mit SaveSetting nicht weiter von: Rene
Geschrieben am: 08.04.2005 14:35:31

Moin zusammen,

Komme hier doch nicht weiter, wiso kann ich hiermit:


Sub AnlegenUndHochzaehlen()
   Dim var As Variant
   Dim AppName As String, Section As String
   Dim Key As String, Passwort As String
   Dim Nummer As String
   
   var = GetSetting(AppName:="Test", Section:="Settings", Key:="Nummer")
   If var = "" Then
      SaveSetting AppName:="Test", Section:="Settings", Key:="Nummer", setting:=1, Key:="Passwort", setting:=""
      
         Sheets("Timer").Range("B1") = 1
   Else
      SaveSetting AppName:="Test", Section:="Settings", Key:="Nummer", setting:=var + 1, Key:="Passwort", setting:=""
      Sheets("Timer").Range("B1") = var + 1
  End If
End Sub


keinen zweiten Key (oder wenn ich noch mehr brauch) erstellen? Ich bekomme den Fehler "Benanntes Argument bereits vergeben"
Kann mir mal dabei bitte jemand helfen?

Danke schon mal im voraus

Gruß Rene
Bild


Betrifft: AW: Komme mit SaveSetting nicht weiter von: Tobias Marx
Geschrieben am: 08.04.2005 14:57:38

Servus!

Warum kommt in deinen Zeilen zweimal setting:="" vor?

Gruss

Tobias


Bild


Betrifft: AW: Komme mit SaveSetting nicht weiter von: Rene
Geschrieben am: 08.04.2005 15:06:42

Hi Tobias,

Ich dachte weil Setting der Wert ist der dann eingetragen wird. Ist das falsch?

Rene


Bild


Betrifft: AW: Komme mit SaveSetting nicht weiter von: Tobias Marx
Geschrieben am: 08.04.2005 15:12:35

Servus!

Ne, das nich, aber schau dir die Zeile mal ganz genau an:

SaveSetting AppName:="Test", Section:="Settings", Key:="Nummer", setting:=1, Key:="Passwort", setting:=""

Na, faellt dir was auf?

Gruss

Tobias


Bild


Betrifft: AW: Komme mit SaveSetting nicht weiter von: Rene
Geschrieben am: 08.04.2005 15:16:17

Hi,

Nicht wirklich :( nur das ich eben noch kein Paaswort drin stehen habe,diese soll ja aber erst rein wenn eine InputBox erscheint.

Rene


Bild


Betrifft: AW: Komme mit SaveSetting nicht weiter von: Tobias Marx
Geschrieben am: 08.04.2005 15:17:39

Servus!

Also soweit ich weiss, kann man nur einmal pro Anweisung nen Key und n setting uebergeben - sprich du braeuchtest zwei davon.

Gruss

Tobias


Bild


Betrifft: AW: Komme mit SaveSetting nicht weiter von: Rene
Geschrieben am: 08.04.2005 15:22:43

Hi

Muß ich diese denn dann noch komplett doppelt schreiben? Erst die eine If Anweißung zu ende dann noch mal die selbe nur mit Key "Passwort"?

Rene


Bild


Betrifft: AW: Komme mit SaveSetting nicht weiter von: Rene
Geschrieben am: 08.04.2005 15:30:21

Hi Tobias,

Ok hab es raus so wie ich eben sagte, so geht es:

Sub AnlegenUndHochzaehlen()
   Dim var As Variant
   Dim AppName As String, Section As String
   Dim Key As String, Passwort As String
   Dim Nummer As String
   
   var = GetSetting(AppName:="Test", Section:="Settings", Key:="Nummer")
   If var = "" Then
      SaveSetting AppName:="Test", Section:="Settings", Key:="Nummer", setting:=1
      Sheets("Timer").Range("B1") = 1
   Else
      SaveSetting AppName:="Test", Section:="Settings", Key:="Nummer", setting:=var + 1
      Sheets("Timer").Range("B1") = var + 1
  End If
   SaveSetting AppName:="Test", Section:="Settings", Key:="Passwort", setting:=""
      
End Sub


Danke dir noch mal.Hatte dann auch das mit dem Verschlüsseln getestet und bin aber auch nicht so richtig weiter gekommen. Werde nun die Testversion mit einem Mindestaufruf versuchen. Dann hab ich nicht denn ganzen Streß mit der Uhrzeit. Mal sehen ob ich es hinbekomme.

Gruß Rene


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Komme mit SaveSetting nicht weiter"