CommandButton die zweite

Question

Hallo,

jetzt habe ich noch einmal eine frage zu zwei CommandButton.
ist es möglich die zwei folgende Code´s auf einen CommandButton zu legen mit einer Abfrage.

Ich stelle es mir so wenn A1 = 1 dann Code 1
und wenn A1= 2 dann Code 2

Code 1:
Private Sub CommandButton1_Click()
Sheets("test1").Select
End Sub

Code 2:
Private Sub CommandButton2_Click()
Sheets("test2").Select
End Sub

in Voraus schon mal vielen Dank.

grüße
Achim

Answer 1

Hallo Achim

Private Sub CommandButton1_Click()
select Case Range("A1")
case 1
Sheets("test1").Select
case 2
Sheets("test2").Select
End select
End Sub

Gruß Hajo

Answer 2

Hallo Hajo,

danke schön, wie immer eine gute und schnelle Hilfe.

grüße und noch einen schönen Sonntagabend
Achim