Wie können Sie beim Doppelklick auf eine Zelle bestimmte Zeilen oder Spalten aus- oder einblenden?
Normalerweise blenden Sie Zeilen und Spalten ein oder aus, indem Sie mit der rechten Maustaste klicken und im Kontextmenü die entsprechende Option wählen. In diesem Artikel erfahren Sie, wie Sie bestimmte Zeilen oder Spalten in Excel blitzschnell per Doppelklick auf eine Zelle ein- oder ausblenden.
Bestimmte Zeilen oder Spalten beim Doppelklick auf eine Zelle mithilfe von VBA-Code aus- oder einblenden
Mit den folgenden VBA-Codes können Sie bestimmte Zeilen oder Spalten in einem Arbeitsblatt per Doppelklick auf eine ausgewählte Zelle blitzschnell ein- oder ausblenden. Gehen Sie dazu wie folgt vor:
1. Öffnen Sie das Arbeitsblatt, in dem Sie Zeilen oder Spalten ausblenden möchten. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und anschließend im Kontextmenü auf Code anzeigen.
2. Fügen Sie im geöffneten Fenster Microsoft Visual Basic for Applications einen der folgenden benötigten VBA-Codes in das Code-Fenster ein.
VBA: Bestimmte Zeilen durch Doppelklick auf Zellen im Arbeitsblatt aus- oder einblenden:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("10:13")
xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
End If
End SubVBA: Bestimmte Spalten durch Doppelklick auf Zellen im Arbeitsblatt aus- oder einblenden:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("D:E")
xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
End If
End SubHinweis: Im Code beziehen sich A1:A4, 10:13 und D:E darauf, dass beim Doppelklick auf eine beliebige Zelle des Bereichs A1:A4 automatisch die Zeilen 10:13 bzw. die Spalten D:E ausgeblendet werden.
3. Drücken Sie die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Ab sofort werden beim Doppelklick auf eine beliebige Zelle im Bereich A1:A4 automatisch die Zeilen 10 bis 13 bzw. die Spalten D bis E ausgeblendet – und bei einem erneuten Doppelklick auf dieselbe Zelle sofort wieder eingeblendet.
Verwandte Artikel:
- Wie klicken oder doppelklicken Sie eine Zelle, um ein bestimmtes Benutzerformular in Excel zu öffnen?
- Wie fügen Sie in einer Zelle per Doppelklick ein Häkchen ein?
- Wie fügen Sie automatisch das aktuelle Datum bzw. die aktuelle Uhrzeit in eine Zelle ein, indem Sie diese doppelt anklicken?
- Wie fügen Sie durch Doppelklick auf eine Zelle den Wert 1 zu deren Inhalt hinzu?
- Wie lassen Sie einen Kalender erscheinen, sobald Sie auf eine bestimmte Zelle klicken?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins