Gruppe
Dialog
Problem
Wie kann ich auf Schaltflächendruck im Dialog zwischen zwei Arbeitsblättern wechseln? Der Dialog soll sichtbar bleiben.
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