Hallo , wer kann helfen.
Ich habe eine große Tabelle. Möchte nur den makierten Bereich anzeigen lassen per VBA , ( per Maus rechtsklick )und den Rest ringsherum ausblenden lassen, ( links rechts oben unten ) . Wenn man es nicht mehr braucht – muß man es wieder komplett sehen können ( die ganze Seite ) .
Ich benutze Excel 2010 + 2019 + 365
Ich danke Ihnen im Vorraus.
MfG Kay.
Hall Kay,
- Verwenden Sie eine Dropdown-Liste:
- Erstellen Sie eine Dropdown-Liste (z. B. in Zelle B1), in der der Benutzer den gewünschten Bereich auswählen kann (A, B, C, usw.).
- Verwenden Sie dann den folgenden VBA-Code, um die entsprechenden Blätter basierend auf der Auswahl auszublenden:
Private Sub Worksheet_Change(ByVal Target As Range) Dim selectedSheet As String selectedSheet = Range("B1").Value For Each ws In ThisWorkbook.Worksheets If ws.Name <> selectedSheet Then ws.Visible = xlSheetHidden Else ws.Visible = xlSheetVisible End If Next ws End Sub- Verwenden Sie eine Liste von Blattnamen:
- Erstellen Sie eine Liste von Blattnamen (z. B. in Zellen B3:B8).
- Verwenden Sie den folgenden VBA-Code, um die ausgewählten Blätter anzuzeigen und die anderen auszublenden:
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim sheetNames As Variant sheetNames = Array("A", "B", "C", "D") ' Hier die Blattnamen eintragen For i = 3 To 8 If InStr(1, Cells(i, 2), sheetNames(i - 3)) Then Sheets(sheetNames(i - 3)).Visible = xlSheetVisible Else Sheets(sheetNames(i - 3)).Visible = xlSheetHidden End If Next i End SubBitte passen Sie die Blattnamen in den obigen Codes entsprechend Ihrer Tabelle an.
MfG
Li
Nachtrag:
In der gerade geschriebenen Antwort stehen die Codes abgesetzt auf hellgrauem Hintergrund, s. Anhang. (Auch nicht besoders gut, aber immer noch besser als weiß!)
In der gesendeten Antwort nicht mehr! Das ist schlecht für die Lesbarkeit, ich kann es aber nicht ändern.
MfG
Li
Nachtrag 2:
Ich schicke beide nochmal nachträglich bearbeitet als Anhänge.
MfG
Li