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

Excel-Beispiele zum Thema "Komme mit SaveSetting nicht weiter"
Benannten Bereich erweitern	Suchen und weitersuchen
Nummer aus zweiter Datei abrufen	ListBox bei Eintrag erweitern
Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren	Gültigkeitsprüfung nach Liste aus zweiter Tabelle
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen	Alle mehrfach vorkommenden Datensätze in zweiter Tabelle listen
Werte zweiter UserForm-TextBoxes multiplizieren	Begriffe in zweiter Tabelle suchen und Werte anfügen