Wie kann ich bestimmte Zeilen oder Spalten ein- oder ausblenden, wenn ich in Excel auf eine Zelle doppelklicke?
Normalerweise können Zeilen und Spalten ausgeblendet oder angezeigt werden, indem Sie mit der rechten Maustaste klicken und im Kontextmenü die Option Ausblenden oder Einblenden auswählen. In diesem Artikel geht es darum, bestimmte Zeilen oder Spalten durch Doppelklicken auf eine Zelle in Excel schnell auszublenden oder anzuzeigen.
Blenden Sie bestimmte Zeilen oder Spalten ein oder aus, wenn Sie auf eine Zelle mit VBA-Code doppelklicken
Mit den folgenden VBA-Codes können Sie bestimmte Zeilen oder Spalten in einem Arbeitsblatt schnell ein- oder ausblenden, indem Sie auf eine bestimmte Zelle doppelklicken. Bitte gehen Sie 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 Registerkarte Blatt, und klicken Sie dann auf Code anzeigen in dem Kontextmenü.
2. In der Öffnung Microsoft Visual Basic für Applikationen Bitte kopieren Sie den folgenden VBA-Code in das Code-Fenster.
VBA: Ein- / Ausblenden bestimmter Zeilen durch Doppelklicken auf Zellen im Arbeitsblatt:
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 Sub
VBA: Angegebene Spalten durch Doppelklick auf Zellen im Arbeitsblatt ein-/ausblenden:
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 Sub
Note: Im Code, A1: A4, 10:13 und D: E. Geben Sie an, dass beim Doppelklicken auf eine beliebige Zelle im Bereich A1:A4 die Zeile 10:13 oder die Spalte D:E automatisch ausgeblendet wird.
3. Drücken Sie die Taste Andere + F11 Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie von nun an auf eine beliebige Zelle im Bereich A1:A4 doppelklicken, wird Zeile 10:13 oder Spalte D:E automatisch ausgeblendet. Und doppelklicken Sie erneut auf die Zelle, um alle ausgeblendeten Zeilen oder Spalten sofort anzuzeigen.
Weitere Artikel:
- Wie klicke oder doppelklicke ich auf eine Zelle, um ein bestimmtes Benutzerformular in Excel zu öffnen?
- Wie füge ich ein Häkchen in eine Zelle ein, indem ich in Excel doppelklicke?
- Wie füge ich ein aktuelles Datum / eine aktuelle Uhrzeit automatisch in eine Zelle ein, indem ich in Excel doppelklicke?
- Wie doppelklicke ich auf eine Zelle und addiere 1 zu diesem Zellenwert in Excel?
- Wie öffne ich einen Kalender, wenn ich in Excel auf eine bestimmte Zelle klicke?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!