Gruppe
Dialog
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?
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