|
Hallo Daniel,
deine Beschreibung ist etwas schwer nachvollziehbar. Du hast also in deiner Arbeitsmappe momentan 13 Tabellenblätter. Das erste steuert das Ein-/Ausblenden auf allen Tabellenblättern, immer die selben Zeilen, die auch immer die selbe Anordnung haben?
Wo gibst du deine 2 ein? Und zwei weitere Zeilen werden danach eingeblendet? Meinst du, du gibst 2 ein und es werden Zeile 1 und 2 eingeblendet?
Wenn du 3 eingibst werden Zeile 1-3 eingeblendet? ...
Dann musst du die Tabellenblätter in einer Schleife durchlaufen und überall das gleiche machen.
Bei Herber habe ich von Hajo_Zi das hier gefunden:
Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
With WsTabelle
'Dein Makro, Cells und Range mit Punkt
End With
Next WsTabelle
End Sub
Mit "Cells und Range mit Punkt" meint man z.B.: .Range("M1:M20")
Ausfühlich wäre es WsTabelle.Range("M1:M20") aber eben nicht wenn man es innerhalb von With - With End schreibt.
Dein Select Case ist falsch am Platz. Man wählt damit nichts soviel ich weis.
Wenn du eine Variable hast, die z.B. 1 oder 2 oder 3 sein kann oder a oder b oder c ... dann kannst du mit select case diese Variable abfragen und im jeweiligen Fall etwas anderes ausführen lassen.
|