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