Re: Gruppierung als Hyperlink
15.10.2002 18:47:50
Peter Niemeyer
Ein Kollege hatte einen Lösungsansatz (Danke Eric!)
"Quick and Dirty - but works as designed"
In die Spalte neben die Überschrift schreibt man "Über"
Die erste mögliche Überschrift steht in Zeile 9
Danach eine Kurzbezeichnung im Beispiel "Ergd"Die Beiträge "Ergd" öffnen sich per
Sub ERGD_Aufblenden()
Zeile = 9
While Zeile < 100
If Cells(Zeile, 1).Value = "ERGD" Or Cells(Zeile, 1).Value = "Über" Then
Rows(Zeile).Hidden = False
End If
Zeile = Zeile + 1
Wend
End Sub
=============================
Ausblenden der Zeilen per:
Sub Ausblenden()
Zeile = 9
While Zeile < 100
If Cells(Zeile, 1).Value <> "Über" Then
Rows(Zeile).Hidden = True
End If
If Cells(Zeile, 1).Value = "Über" Then
Rows(Zeile).Hidden = False
End If
Zeile = Zeile + 1
Wend
End Sub
Voila
Das wars schon
Die Überschriften mach ich jetzt noch "unsichtbar" und ich lege einen Button an der die Makros aufruft.
Hat wer noch nen schöneren Ansatz?