Komme mit SaveSetting nicht weiter

• Komme mit SaveSetting nicht weiter von Rene vom 08.04.2005 14:35:31
• AW: Komme mit SaveSetting nicht weiter - von Tobias Marx am 08.04.2005 14:57:38
  • AW: Komme mit SaveSetting nicht weiter - von Rene am 08.04.2005 15:06:42
    • AW: Komme mit SaveSetting nicht weiter - von Tobias Marx am 08.04.2005 15:12:35
      • AW: Komme mit SaveSetting nicht weiter - von Rene am 08.04.2005 15:16:17
        • AW: Komme mit SaveSetting nicht weiter - von Tobias Marx am 08.04.2005 15:17:39
          • AW: Komme mit SaveSetting nicht weiter - von Rene am 08.04.2005 15:22:43
          • AW: Komme mit SaveSetting nicht weiter - von Rene am 08.04.2005 15:30:21

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

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

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

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

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

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

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

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

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