Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Wenn A1 aktiviert, dann Zeilen einblenden

VBA-Wenn A1 aktiviert, dann Zeilen einblenden
08.08.2007 16:32:01
Bernd
Hallo Excel- und VBA-Profis!
Ich habe ein Problem, bei dem ich nicht weiterkomme [geht m.E. nur mit VBA :-(]
In der Beispielmappe https://www.herber.de/bbs/user/44876.xls habe ich in den Zeilen 4, 9, 13, 36, 47 und 54 Überschriften. Wenn eine Überschrift angeklickt wird, dann sollen die dazugehörigen Zeilen darunter eingeblendet werden (z. B. A1 anklicken und die Zeilen 5 bis 8 werden eingeblendet). Wenn danach z.B. die Zelle A36 angeklickt wird, dann sollen die Zeilen 5 bis 8 wieder ausgeblendet werden und dafür die Zeilen 37 bis 46 eingeblendet werden.
Hat da vielleicht jemand eine Idee? Ich habe von VBA leider nicht soviel Ahnung.
Für jede Hilfe dankbar!
Gruß Bernd

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Wenn A1 aktiviert, dann Zeilen einblenden
08.08.2007 16:55:03
Ramses
Hallo
Wenn du von VBA nicht soviel Ahnung hast, warum machst du das dann nicht über "Daten - Gruppieren" ?
Zeile 5-6 über den Zeilenkopf markieren
Daten - Gruppieren - Gruppieren
Nun hast du links von der Tabelle ein "-" Symbol, wenn du da draufklickst geht das zu oder auf.
Nachteil:
Es funktioniert nicht automatisch
Der Vorteil:
Du kannst es selber machen und jederzeit anpassen
Gruss Rainer

AW: VBA-Wenn A1 aktiviert, dann Zeilen einblenden
08.08.2007 16:59:00
Bernd
Hallo Rainer,
vielen Dank für Deine Antwort. Erstens kann es ja nichts schaden, wenn man seinen Horizont ein wenig erweitert und zweitens soll die Datei als Präsentation dienen, wie das ganze dann im Internet auszusehen hat.
Also, wenn Du noch eine Idee hast, wäre ich Dir dankbar.
Gruß Bernd

Anzeige
AW: VBA-Wenn A1 aktiviert, dann Zeilen einblenden
08.08.2007 17:03:00
Ramses
Hallo
Im Internet funktioniert kein VBA, die Gruppierung schon
Gruss Rainer

AW: VBA-Wenn A1 aktiviert, dann Zeilen einblenden
08.08.2007 17:09:00
Bernd
Hallo Rainer,
das ist mir schon klar ... wie gesagt, die Exceldatei soll zu Präsentationszwecken dienen, wie die Funktionalität später im Internetauftritt aussehen soll. Wie das die Leute machen, die das dann letztendlich auf unserer Interentseite umsetzen sollen, ist mir egal.
Gruß Bernd

AW: VBA-Wenn A1 aktiviert, dann Zeilen einblenden
08.08.2007 17:23:00
Ramses
Hallo
"...Wie das die Leute machen, die das dann letztendlich auf unserer Interentseite umsetzen sollen.."
Wenn die nicht soviel Kreativität haben schmeiss sie raus :-)
Rechte Maustaste auf die Tabelle wo das funktionieren soll
Code anzeigen
Diese Code dort reinkopieren
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    Select Case Target.Row
        Case 4, 9, 13, 36, 47, 54
            Rows("5:8").Hidden = True
            Rows("10:12").Hidden = True
            Rows("14:35").Hidden = True
            Rows("37:46").Hidden = True
            Rows("48:53").Hidden = True
            Rows("55:70").Hidden = True
            Select Case Target.Row
                Case 4
                    Rows("5:8").Hidden = False
                Case 9
                    Rows("10:12").Hidden = False
                Case 13
                    Rows("14:35").Hidden = False
                Case 36
                    Rows("37:46").Hidden = False
                Case 47
                    Rows("48:53").Hidden = False
                Case 54
                    Rows("55:70").Hidden = False
            End Select
    End Select
End Sub

Es funktioniert nur wenn in Spalte A auf die Überschrift geklickt wird.
Zur Demo reicht das, den Rest sollen sie sich denken
Gruss Rainer

Anzeige
Uups, nicht aktualisiert
08.08.2007 17:44:39
Worti
Hallo Rainer,
und obendrein noch die Abfrage auf Spalte 1 vergessen. Sorry
Gruß Worti

AW: 1000 Dank
09.08.2007 08:16:00
Bernd
Hallo Rainer,
vielen, vielen Dank ... genau so hatte ich mir das vorgestellt. Echt Spitze, was ihr hier so drauf habt.
Worti, an Dich natürlich auch ein herzliches Dankeschön für Deinen Einsatz.
Ich wünsche Euch noch einen schönen Tag [auch wenn es wohl heute auf der ganzen Welt zu regnen scheint :-(].
Gruß Bernd

AW: VBA-Wenn A1 aktiviert, dann Zeilen einblenden
08.08.2007 17:41:38
Worti
Hallo Bernd,
mit folgendem Worksheet-Change-Ereignis:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Select Case Target.Row
Case Is = 4
Rows("9:58").Hidden = True
Rows("5:8").Hidden = False
Case Is = 9
Rows("4:58").Hidden = True
Rows("10:12").Hidden = False
Case Is = 13
Rows("4:58").Hidden = True
Rows("14:35").Hidden = False
Case Is = 36
Rows("4:58").Hidden = True
Rows("37:46").Hidden = False
Case Is = 47
Rows("4:58").Hidden = True
Rows("48:53").Hidden = False
Case Is = 54
Rows("4:58").Hidden = True
Rows("55:58").Hidden = False
End Select
Rows(4).Hidden = False
Rows(9).Hidden = False
Rows(13).Hidden = False
Rows(36).Hidden = False
Rows(47).Hidden = False
Rows(54).Hidden = False
End Sub


Gruß Worti

Anzeige
Guten Morgen :-) o.w.T.
08.08.2007 17:44:00
Ramses
...

https://www.herber.de/forum/messages/894836.html
08.08.2007 17:45:56
Worti
;-) oT

345 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5