Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich ausblenden

Bereich ausblenden
Jens
Schönen guten Tag,
ich hatte heute eine idee aber wiedermal fehlt mir der impuls. Ich habe eine Tabelle in dieser möchte ich gern auf eine Zelle z.b. d25 klicken danach soll der Bereich zwischen Zeile 9 bis 24 und 26 bis 178 ausgeblendet werden, bei einem zweiten klick auf z.B. einen Button soll alles wieder eingeblendet werden. Das ganze soll jedoch in dem gesamten bereich zwischen Zeile 9 und 178 funktionieren, also egal auf welche Zelle (D9-D178)ich dort klicke soll der Rest ausgeblendet werden. Eingeblendet sollen die Zeilen 1-8 und ab 179 bleiben. Geht sowas auch?
Wäre wieder mal sehr dankbar.
LG Jens

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bereich ausblenden
01.08.2011 13:10:19
Josef

Hallo Jens,
in das Modul der Tabelle.
' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Dim bHidden As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Row >= 9 And Target.Row <= 178 Then
    Cancel = True
    If bHidden Then
      bHidden = False
      Rows("9:178").Hidden = False
    Else
      bHidden = True
      Rows("9:178").Hidden = True
      Target.EntireRow.Hidden = False
    End If
  End If
End Sub


Mit Doppelklick wird ein- und aus-geblendet!

« Gruß Sepp »

Anzeige
AW: Bereich ausblenden
01.08.2011 13:11:47
Rudi
Hallo, 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("D9:D178"), Target) Is Nothing Then
Range("D9:D178").EntireRow.Hidden = True
Target.EntireRow.Hidden = False
ElseIf Not Intersect(Range("A1"), Target) Is Nothing Then
Range("D9:D178").EntireRow.Hidden = False
End If
End Sub

Klick auf A1 blendet alles wieder ein.
Gruß
Rudi
AW: Bereich ausblenden
01.08.2011 15:36:24
Jens
vielen herzlichen Dank, genau so hatte ich mir das gedacht.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige