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.
Beantwortete Frage von Lippmann Juli 2, 2024
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
Bearbeitete Antwort von Lippmann Juli 2, 2024