Worksheets per Makro und Bedingung wechseln
01.08.2007 10:33:00
TCO99
Hallo zusammen,
ich habe folgenden Code gebastelt, einem Button diesen Code zugewiesen und den Button in einer UserForm untergebracht. Der Code funktioniert erwartungsgemäß nicht:
Private Sub Button1_Click()
'Dieser Code schaltet aktiven Sheet um
If ActiveSheet = ("intern") Then
Unload Me
Sheets("extern").Activate
Info.Show
Else
Unload Me
Sheets("intern").Activate
Info.Show
End If
End Sub
Ich weiß, das es wahrscheinlich sehr falsch ist, aber ich dachte, ich versuche es wenigstens.
Ich kenne mich mit diesen Bedingungen nicht aus. Ich habe den Code folgendermaßen gewollt bzw. interpretiert:
wenn man auf den Button klickt, wird geschaut, ob das Blatt "intern" das aktive Blatt ist. Wenn ja, dann wird das Blatt "extern" aktiv geschaltet.
Ist das aktive Blatt nicht das Blatt "intern", muss es das Blatt "extern" sein, also schalte das Blatt "intern" zum aktiven Blatt.
Wenn mir jemand den Aufbau dieser If / Then / End If ... kurz erklären könnte, wäre ich sehr dankbar. Zum Beispiel weiß ich nicht, was das End If noch für einen Sinn in diesem Code hat.
Gruß
Erdogan