Office: InputBox

Hallo,

ich habe eine Userform angelegt, welche sich beim Öffnen der Exceldatei automatisch öffnet. Dort kann der Benutzer zwischen 2 Buttons zum Klicken wählen. Die Buttons haben folgenden Code:

Private Sub CommandButton1_Click()
Unload Me
InputBox "Bitte geben Sie den neuen Dateipfad ein."
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub


Der CommandButton1 ist jetzt von Interesse. Es öffnet sich folglich eine InputBox. In diese InputBox soll der Benutzer einen Dateipfad eingeben. Diesen möchte ich dann in anderen Makros benutzen. Kann ich den Pfad als String in einer Variablen speichern und in anderen Makros bearbeiten? Wenn ja, wie muss ich das machen?

Danke für die Hilfe
LG

 

Hallo!

Deklariere dazu eine globale Variable außerhalb der Prozeduren:

Public Pfad As String

Nun kannst du die Inputbox dieser Variable zuweisen:

Private Sub CommandButton1_Click()
Unload Me
Pfad = InputBox "Bitte geben Sie den neuen Dateipfad ein."
End Sub

 

Danke, aber jetzt noch eine Frage: "außerhalb der Prozeduren"
Heißt das, dass das in keinem meiner Module steht? Wo steht es dann?
Ist das dann der ganze Quellcode, kein "Sub" und "End Sub"?
LG

 

Hallo!

Außerhalb der Prozeduren heißt, nicht innerhalb von Sub und End Sub, also z.B.

Public x As String

Sub A1()
x = InputBox("Geben Sie was ein:")
End Sub

Sub A2()
MsgBox x
End Sub

 

Super, vielen Dank.

 

Hallo!

Bei mir geht dies:

Code:

Public x As String

Sub gfh()
x = "E:\Test\Test-1\"
Range("A1").FormulaLocal = "=WENN('" & x & "[Mappe2.xls]Tabelle1'!A1="""";"""";'" & x & "[Mappe2.xls]Tabelle1'!A1)"
End Sub