VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: jh	Datum: 05.01.2008 11:47:28	Views: 967	Rating:	Antwort:
Thema: Aw:popup
Hallo, von Haus aus bietet Excel so etwas nicht, aber man kann es sich natürlich mit VBA selbst basteln. Diese Sub in den Codebereich der betreffenden Tabelle: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, _ Cancel As Boolean) Dim lngZ As Long If Target.Column = 1 Then Select Case Target.Value Case "+" For lngZ = Cells(Target.Row, 255).Value To _ Cells(Target.Row, 256).Value Rows(lngZ).Hidden = False Next lngZ Target.Value = "-" Case "-" For lngZ = Cells(Target.Row, 255).Value To _ Cells(Target.Row, 256).Value Rows(lngZ).Hidden = True Next lngZ Target.Value = "+" End Select End If Cancel = True End Sub Damit das funktioniert, musst du deine Tabelle folgendermaßen aufbereiten: In der ersten Spalte (ggf. neue Spalte einfügen) in den Zeilen, die die "Oberbegriffe" enthalten, ein Minuszeichen eingeben. In der gleichen Zeile in Spalte IU die erste und in Spalte IV die letzte auszublendene Zeilennummer eintragen. Nach einem Doppelklick auf ein Minuszeichen in der ersten Spalte werden die betreffenden Zeilen ausgeblendet, und das Minus ändert sich in ein Plus. Ein Doppelklick auf das Plus blendet die versteckten Zeilen wieder ein. Falls dein Tabellenblatt geschützt ist, musst du vorher den Schutz aufheben und danach wieder aktivieren: Worksheets("Tabelle1").Unprotect bzw. Worksheets("Tabelle1").Protect Ich hoffe, so ungefähr hattest du dir das vorgestellt. Gruß

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen