Rückgabe der vom Benutzer in ein Dialogfeld eingegebenen Werte an das VBA-Makro

[Guido C. (guidoanalog)]

Hallo,

ich bin gerade dabei ein VBA-Makro, dass ich für Solidworks 
(http://www.solidworks.de/) geschrieben habe, ordentlich zu 
strukturieren. Hierbei bin ich auf das folgende Problem gestoßen. Ich 
rufe während der Makroausführung ein Dialogfenster auf. Meine Frage an 
Euch: Wie bekomme ich die vom Benutzer gemachten Eingaben nach 
Beendigung des Dialogs zurückgegeben? Geht dies in VBA nur über globale 
Variablen?

Mit freundlichen Grüßen
Guido

[tomal (Gast)]

Ich hab kein Solidworks hier aber ich denke, dass ein VBA-Dialogfenster 
unabhängig von der jeweiligen Applikation ist.

Sub eingabe()
  Dim rueckgabe As String

  rueckgabe = InputBox("Eingabeaufforderung", "Fenstertitel")
End Sub

enthält den eingegebenen Wert in der Variable "rueckgabe"

[Guido C. (guidoanalog)]

Hallo,

tomal schrieb:
> Ich hab kein Solidworks hier aber ich denke, dass ein VBA-Dialogfenster
> unabhängig von der jeweiligen Applikation ist.

stimmt, das gleiche Problem hätte ich wohl auch in Word, Excel, etc.

Ich habe nicht nur einen, sondern mehrere Rückgabewerte. Aus diesem 
Grund habe ich ein Dialogfenster erstellt. Allem Anschein nach gibt es 
nur die Möglichkeit die Variablen als "public" zu deklarieren, ihnen 
gegebenenfalls einen Vorgabewerte mitzugeben und den Dialog aufzurufen. 
Innerhalb des Dialogs kann ich dann auf die Werte zugreifen und sie so 
zurückgeben.

Option Explicit

Public RotationAngle    As Double 'Angle for rotation in degrees (°)
Public XOffset, YOffset As Double 'x-Offset/y-Offset in mm

RotationAngle = 0   'Angle for rotation in degrees (°)
XOffset = 0         'x-Offset in mm
YOffset = 0         'y-Offset in mm

MyForm.Show

Dies funktioniert so weit auch. Allerdings hat das Ganze den "Touch" von 
globalen Variablen. Brrrr.... da schüttelt es mich.

Mit freundlichen Grüßen
Guido

[tomal (Gast)]

Ich hab ein Form "UserForm1" mit einem Textfeld "TextBox1" angelegt.

Damit funktioniert sowohl die Initialisierung als auch das Speichern 
aktueller Werte in beliebige Variablen wenn man das entsprechende 
Ereignis der Form ausnützt. Als Beispiel das einfache Beenden der Form 
über "X". Kann aber auch direkt bei Änderungen oder mit einem OK-Button 
erfolgen.


Modul code

'set initial value
Sub test()

  UserForm1.Controls("TextBox1").Value = "abcd"
  UserForm1.Show
 
End Sub

'called by userform_terminate event
Sub uf_term()

  Dim tb1 As String
  tb1 = UserForm1.Controls("TextBox1").Value

End Sub

Form code

Private Sub UserForm_Terminate()
  uf_term
End Sub