Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und CommandButton