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

Guido C. OP #4099320
Lesenswert?
• ▲
▼ 
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
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
tomal Gast #4099398
Lesenswert?
• ▲
▼ 
Ich hab kein Solidworks hier aber ich denke, dass ein VBA-Dialogfenster 
unabhängig von der jeweiligen Applikation ist.

1
Sub eingabe()

2
  Dim rueckgabe As String

3


4
  rueckgabe = InputBox("Eingabeaufforderung", "Fenstertitel")

5
End Sub


enthält den eingegebenen Wert in der Variable "rueckgabe"
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Guido C. OP #4099420
Lesenswert?
• ▲
▼ 
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.


1
Option Explicit

2


3
Public RotationAngle    As Double 'Angle for rotation in degrees (°)

4
Public XOffset, YOffset As Double 'x-Offset/y-Offset in mm

5


6
RotationAngle = 0   'Angle for rotation in degrees (°)

7
XOffset = 0         'x-Offset in mm

8
YOffset = 0         'y-Offset in mm

9


10
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
Antwort Zitieren Bearbeiten Löschen Beitrag melden
tomal Gast #4099447
Lesenswert?
• ▲
▼ 
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
1
'set initial value

2
Sub test()

3


4
  UserForm1.Controls("TextBox1").Value = "abcd"

5
  UserForm1.Show

6
 

7
End Sub

8


9
'called by userform_terminate event

10
Sub uf_term()

11


12
  Dim tb1 As String

13
  tb1 = UserForm1.Controls("TextBox1").Value

14


15
End Sub


Form code
1
Private Sub UserForm_Terminate()

2
  uf_term

3
End Sub
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 11 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.