VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Dialoganzeige Blattauswahl wechseln

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

    


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