Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zu einer aufrufenden UserForm zurückkehren

Gruppe

UserForm

Problem

Wie kann ich erreichen, daß eine über eine zweite UserForm aufgerufene UserForm erkennt, welches das aufrufende Formular war und zu diesem wieder zurückkehren?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmAufruf1

Private Sub cmdAufruf1_Click()
   frmAufruf1.Hide
   With frmMain
      .cmdZurueck.Tag = 1
      .cmdZurueck.Enabled = True
   End With
   frmMain.Show
End Sub

ClassModule: frmAufruf2

Private Sub cmdAufruf2_Click()
   frmAufruf2.Hide
      With frmMain
      .cmdZurueck.Tag = 2
      .cmdZurueck.Enabled = True
   End With
   frmMain.Show
End Sub

ClassModule: frmMain

Private Sub cmdBeenden_Click()
   Dim frmAct As UserForm
   For Each frmAct In UserForms
      Unload frmAct
   Next frmAct
End Sub

Private Sub cmdZuAufruf2_Click()
   frmMain.Hide
   frmAufruf2.Show
End Sub

Private Sub cmdZuAufruf1_Click()
   frmMain.Hide
   frmAufruf1.Show
End Sub

Private Sub cmdZurueck_Click()
   frmMain.Hide
   UserForms(cmdZurueck.Tag).Show
End Sub

StandardModule: basMain

Sub CallForm()
   frmMain.Show
End Sub