Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich ausblenden

Forumthread: 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
Anzeige

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
Anzeige
AW: Bereich ausblenden
01.08.2011 15:36:24
Jens
vielen herzlichen Dank, genau so hatte ich mir das gedacht.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige