VBA Case Anfänger

Sub Schaltfläche7_Klicken() ValueA2 = Worksheets("Start").Cells(2, 1).Value ' Wert der Zelle A2 auslesen ValueB2 = Worksheets("Start").Cells(2, 2).Value ' Wert der Zelle B2 auslesen Select Case() Case ValueA2 = 2 And ValueB2 = 1 'Wenn Werte A2/B2 sind 2/1 Worksheets("A").Select 'Gehe zu Blatt_A Case ValueA2 = 1 And ValueB2 = 1 'Wenn Wert A2/B2 sind 1/1 Worksheets("C").Select 'Gehe zu Blatt_C Case ValueA2 = 2 And ValueB2 = 2 'Wenn Wert A2/B2 sind 2/2 Worksheets("E").Select 'Gehe zu Blatt_E Case ValueA2 = 1 And ValueB2 = 2 'Wenn Wert A2/B2 sind 1/2 Worksheets("G").Select 'Gehe zu Blatt G End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Carsten,
mach es einfach so:


Sub Schaltfläche7_Klicken()
Dim ValueA2 As Variant, ValueB2 As Variant
ValueA2 = Worksheets("Start").Cells(2, 1).Value ' Wert der Zelle A2 auslesen
ValueB2 = Worksheets("Start").Cells(2, 2).Value ' Wert der Zelle B2 auslesen
If ValueA2 = 2 And ValueB2 = 1 Then             'Wenn Werte A2/B2  sind 2/1
Worksheets("A").Select                      'Gehe zu Blatt_A
ElseIf ValueA2 = 1 And ValueB2 = 1 Then         'Wenn Wert A2/B2 sind 1/1
Worksheets("C").Select                      'Gehe zu Blatt_C
ElseIf ValueA2 = 2 And ValueB2 = 2 Then         'Wenn Wert A2/B2 sind 2/2
Worksheets("E").Select                      'Gehe zu Blatt_E
ElseIf ValueA2 = 1 And ValueB2 = 2 Then         'Wenn Wert A2/B2 sind 1/2
Worksheets("G").Select                      'Gehe zu Blatt G
End If
End Sub

Geht natürlich auch mit Select Case:


Sub Schaltfläche7_Klicken()
Dim ValueA2 As Variant, ValueB2 As Variant
ValueA2 = Worksheets("Start").Cells(2, 1).Value     ' Wert der Zelle A2 auslesen
ValueB2 = Worksheets("Start").Cells(2, 2).Value     ' Wert der Zelle B2 auslesen
Select Case True
Case ValueA2 = 2 And ValueB2 = 1                'Wenn Werte A2/B2  sind 2/1
Worksheets("A").Select                      'Gehe zu Blatt_A
Case ValueA2 = 1 And ValueB2 = 1                'Wenn Wert A2/B2 sind 1/1
Worksheets("C").Select                      'Gehe zu Blatt_C
Case ValueA2 = 2 And ValueB2 = 2                'Wenn Wert A2/B2 sind 2/2
Worksheets("E").Select                      'Gehe zu Blatt_E
Case ValueA2 = 1 And ValueB2 = 2                'Wenn Wert A2/B2 sind 1/2
Worksheets("G").Select                      'Gehe zu Blatt G
End Select
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread