Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Daten speichern
Autor: Jens
Datum: 07.01.02 14:25
Folgender Befehl funktioniert nicht, ich möchte Daten speichern und wenn eine Variabele nicht Vorhanden ist eine jeweilige Sprungmarke setzten: Sub Fcheck() Dim xLen& xVariable$ = Application.ActiveDocument.Variables.Add(Name:="Geld").Value xLen = 0 On Local Error Resume Next xLen = Len(Dir$(xVariable$, 63)) On Local Error GoTo 0 If xLen > 0 Then GoTo Abfragen Else GoTo Neu End If Neu: xVar = Application.ActiveDocument.Variables.Add(Name:="Geld").Value Abfragen: Geld = Application.ActiveDocument.Variables("Geld").Value Box = _ MsgBox("Das letzte mal hatten Sie " + Geld + " € in der Tasche", vbOKOnly _ , "Finanz-Check") Ändern: Geld = InputBox("Wieviel € haben Sie jetzt in der Tasche", "Finanz-Check") 'If Geld = "" Then GoTo Ändern Application.ActiveDocument.Variables("Geld").Value = Geld End Sub Ich hoffe Ihr könnt mir helfen....

Daten speichern	81	Jens	07.01.02 14:25
Re: Daten speichern	290	Dieter	07.01.02 15:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen