|
Hallo,
ich bin ziemlich neu in VBA und freu mich natürlich über jeden Support!
Mein aktuelles Problem:
Ich will ein Makro schreiben, was mir ziemlich einfach erlauben soll, bestimmte Worksheetgruppen zu verstecken, während andere erhalten bleiben.
Ich habe meine Sheets gruppert in Tabelle1_1 - Tabelle1_7,Tabelle2_1 bis Tabelle2_7 usw. .... . Mit meinem Makro möchte ich eine bestimmte Gruppe(z.B. Tabelle 1_1 bis 1_7) nur anzeigen lassen, der Rest möge bitte verschwinden:
Aktuell sieht meine Lösung so aus, aber in dem Namen werden die Variablen nicht erkannt (auch nicht, wenn ich diese in Klammern setze)
Sub xxx_Click()
On Error GoTo Fehler
Dim i As Integer
Dim j As Integer
For i = 1 To 2
For j = 1 To 7
Worksheets("Tabellei_j)").Visible = xlVeryHidden
Next j
Next i
Exit Sub
For i = 1
For j = 1 To 7
Worksheets("Tabellei_j)").Visible = True
Next j
Next i
Fehler:
MsgBox "Fehler" & vbLf & Err.Number & vbLf & Err.Description, vbCritical
End Sub
Alternativ hat jedes Sheet einen Namen im ExcelSheet mit einem gewissen Kennwort z.B. Tabelle1_1 bis 1_7 haben die Bezeichnung im Excel (..._Kennwort1) usw. Auch hier wäre eine Lösung interessant. Ich hoffe, Ihr könnt mir weiterhelfen. Vielen Dank!
TN
|