Variable änderbar machen

Hallo,
ich habe ein Problem. Und zwar habe ich eine Userform, in der ich in einer Textbox einen bestimmten Pfad stehen habe.
Also z.b. c:\temp
Dieser Pfad soll auch immer beim Start der Userform in dieser Textbox (pfad) stehen. Das habe ich unter dem Trigger so gemacht:

Private Sub UserForm_Initialize()
pfad = "c:\temp\"
End Sub

Nun würde ich es aber gerne so haben, dass wenn ich diesen Pfad ändere, dass das auch irgendwie übernommen wird.
Prinzipiell denke ich, dass man das über eine Variable machen sollte. Ich kann nicht den Wert in irgendeine Zelle schreiben und diese dann auslesen. Es muss also zwingend im Code irgendwo abgespeichert werden. Geht das überhaupt?
Danke und Gruß
Marc

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Marc,
Es muss also zwingend im Code irgendwo abgespeichert werden. Geht das überhaupt?
nur, wenn du die Datei offen lässt und den Computer nicht ausschaltest :-)
Ich kann nicht den Wert in irgendeine Zelle schreiben und diese dann auslesen.
Warum nicht? Mach ein neues Blatt und versteck es mit "xlveryhidden" vor dem User. Warum verschließt du dich dem offensichtlichem, einfachem Weg?
Geht das überhaupt?
du - könntest - den Code zur Laufzeit verändern (VBA-Code kann VBA-Code schreiben ...). Das ist aber sehr komplex umzusetzen und hat noch so einige andere Nachteile (zB musst du den Zugriff aufs VBA-Projekt erlauben, damit öffnest du auch Makroviren die Tür!). Meiner Meinung nach gibt es in diesem Beispiel keinen Grund, warum eine solche Lösung dem einfachen ablegen in einer Zelle vorzuziehen sei.
Grüße,
Klaus M.vdT.

Private Sub tbxPfad_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim nm As Name On Error Resume Next Set nm = ActiveWorkbook.Names("DerPfad") On Error GoTo 0 If nm Is Nothing Then ActiveWorkbook.Names.Add Name:="DerPfad", RefersTo:=tbxPfad Else ActiveWorkbook.Names("DerPfad").RefersTo = tbxPfad End If End Sub Private Sub UserForm_Initialize() Dim nm As Name On Error Resume Next Set nm = ActiveWorkbook.Names("DerPfad") On Error GoTo 0 If nm Is Nothing Then tbxPfad = "c:\test" Else tbxPfad = nm.RefersTo End If End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Variable änderbar machen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread