Office: (Office 365) VBA: Form in zwei Modulen verwenden

Hallo zusammen,

ich habe ein VBA-Modul, von welchem ich ein Form aufrufe. Dieses Form hat einfach ein paar Buttons, und gibt zurück, ob ein Button gedrückt worden ist. Diese Information wird dann im Modul verarbeitet.

Code:

MeinForm.Show

Das funktioniert auch. Ich habe jetzt allerdings ein weiteres Modul, welches auch auf das Form zugreifen soll.

Leider bricht der Code im Form wie folgt ab, wenn der Button gedrückt wird:

Code:

Private Sub ToggleButton1.Click()
   If ToggleButton1.Value = True then Loeschen = True Else Loeschen = False
End Sub

Auf diese Variable möchte ich in beiden Modulen prüfen. Die Variable Loeschen ist in beiden Modulen als Public deklariert.

Was kann ich machen, damit das funktioniert?

 

Ich glaube, es hat sich erledigt. Ich darf ja nur in einem Modul die Variablen deklarieren...

Es hat sich aber gerade ein weiteres Problem ergeben. Ich rufe mit Call Hauptprogramm eine Sub auf, die dann mit den Variablen weiterarbeitet.

Sub Hauptprogramm ist natürlich in beiden Modulen vorhanden, was Probleme bereitet. Wie mache ich das, dass nur in das aufrufende Modul zurückgesprungen will?

Wenn also Modul1 das Form aufruft, soll Call Modul1.Hauptprogramm ausgeführt werden, wenn Modul2 das Form aufruft, soll Call Modul2.Hauptprogramm ausgeführt werden.

 

Moin!
Ja, so ist es!
Public-Variablen in einem Modulkopf gelten projektweit.
Deklarieren von Variablen (VBA) | Microsoft Learn

Gruß Ralf

 

Ist "Hauptprogramm" redundant (heißt doppelt vorhanden)?
Falls ja, dann lösche eines.
Falls nein, solltest Du unterschiedliche Namen verwenden.
Wenn der Thread nicht endlos werden soll, könnte die Datei helfen.

Gruß Ralf

 

Nein, ist nicht redundant. Eigentlich sind die ziemlich verschieden, aber das gleiche Form soll von beiden genutzt werden.

Die Logik ist wie folgt:

Formulare:

Code:

Private Sub CommandButton1_Click()
  Call Hauptprogramm
End Sub

Hier ist mein Problem. Sowohl Modul1.Intro als auch Modul2.Intro rufen MeinForm auf. Wenn CommandButton1 gedrückt wird, soll

• Call Modul1.Hauptprogramm ausgeführt werden, wenn MeinForm aus Modul1 aufgerufen wird
• Call Modul2.Hauptprogramm ausgeführt werden, wenn MeinForm aus Modul2 aufgerufen wird

Könnte ich nicht einfach eine weitere globale Variable erstellen, die dann im Form abgefragt wird? Je nach aufrufendem Modul trägt die Variable den Wert "Modul1" oder "Modul2"

Modul1:

Code:

Sub Intro()
  MeinForm.Show
End Sub

Sub Hauptprogramm
  ...
End Sub

Modul2:

Code:

Sub Intro()
  MeinForm.Show
End Sub

Sub Hauptprogramm
  ...
End Sub

 

Hallo,

eine Beispieldatei, BITTE!

 

OK, jetzt glaube ich verstanden zu haben, was Du meinst.
Wenn die beiden "Sub Hauptprogramm" nicht redundant sind …
… dann verzichte auf die Kapselung als Sub() und schreibe den jeweiligen Code einfach in die jeweiligen Sub Intro()
Modul1:

Code:

Sub Intro()
  MeinForm.Show
  ' Code von Hauptprogramm1
End Sub

Modul2:

Code:

Sub Intro()
  MeinForm.Show
  ' Code von Hauptprogramm2
End Sub

 

Hallo THG,

ohne deinen Programmablauf genau zu kennen, dürfte dieser so nicht ganz i.O. sein und den solltest du nochmal überdenken. Zum einen sollte es dem Hauptprogramm egal sein, von wo es aufgerufen wird und zum anderen sollte zwei unterschiedliche Programmteile auch verschiedene Bezeichner haben.

Aber vielleicht hilft auch dieser Thread weiter:
(Office 2019) - 1UFO für 2HFO

 

Ist vielleicht nicht elegant, hat aber geholfen. Ich glaube, der Ansatz wurde auch im verlinkten Thread vorgeschlagen.


Formulare:

Code:

Private Sub CommandButton1_Click()
  If Aufruf = "Modul1" Then
   Call Modul1.Hauptprogramm
      Else Call Modul2.Hauptprogramm
End Sub

Modul1:

Code:

Sub Intro()
  Aufruf = "Modul1"
  MeinForm.Show
End Sub

Sub Hauptprogramm
  ...
End Sub

Modul2:

Code:

Sub Intro()
  Aufruf = "Modul2"
  MeinForm.Show
End Sub

Sub Hauptprogramm
  ...
End Sub

 

Hallo,

fast bin ich sicher, dass es da bessere Möglichkeiten gibt. Aber da deine Datei offenbar geheim ist ...

 

und gleich als ungeeignet zurückgewiesen. Bei vernünftigem Workflow sollte das gar nicht notwendig sein.