Hi zusammen,
ich steh gerade irgendwie auf dem Schlauch.
Ich habe eine Datei mit recht vielen Tabellenblättern, die ich per Makro ein- und ausblenden will. Dazu hab ich eine Tabelle (AQ41:AR59). In AQ stehen jeweils die Namen der Tabellenblätter. In AR steht "ja" oder "nein".
Ich will hier zuerst auswählen welche Blätter ich brauche und dann mit einem Makro alle gewählten auf einmal einblenden lassen.
Der Code sieht folgendermaßen aus:
Sub Ein_ausblenden()
If Range("AR41").Value = "ja" Then
Sheets("K2").Visible = True
Else
Sheets("K2").Visible = False
End If
If Range("AR42").Value = "ja" Then
Sheets("K3").Visible = True
Else
Sheets("K3").Visible = False
End If
usw. bis zu K20.
Das Problem: Wenn ich mehrere "ja" habe, blendet er trotzdem immer nur ein Blatt ein, jedes mal eines, sobald ich das Makro ausführe, d.h. wenn ich 5 Blätter einblenden will, muss ich das Makro 5-mal ausführen.
Wenn ich nun aber in die entsprechenden Felder "nein" tippe und dann das Makro ausführe, blendet er alle Blätter auf einmal aus.
Kann mir jemand sagen, wieso das ausblenden korrekt funktioniert, aber nicht das einblenden?
Hab ich einen Fehler im Code?
Oder gibt es vll. eine viel einfachere Möglichkeit?
Danke euch vorab!