Gruppe
Dialog
Bereich
CommandButton
Thema
Bei Dialoganzeige Blattauswahl wechseln
Problem
Wie kann ich auf Schaltflächendruck im Dialog zwischen zwei Arbeitsblättern wechseln? Der Dialog soll sichtbar bleiben.
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
StandardModule: basMain
Sub CallForm()
frmChangeWks.Show
End Sub
ClassModule: frmChangeWks
Private Sub cmdChange_Click()
If ActiveSheet.Name = "Tabelle1" Then
Worksheets("Tabelle2").Select
Else
Worksheets("Tabelle1").Select
End If
End Sub
Private Sub cmdContinue_Click()
Unload Me
End Sub