Bereiche ausblenden
08.09.2003 13:49:22
Kirsten
Ende letzter Woche war ich mit diesem Thema schon einmal hier.
Galenzo hat mir mit folgendem Makro auch schon sehr geholfen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim c As Range
If Not Intersect(Target, Range("meinBereich")) Is Nothing Then
Sheets("Transporte").Outline.ShowLevels RowLevels:=1
For Each c In Range("meinBereich")
If Not IsEmpty(Cells(c.Row, c.Column).Value) Then
i = ((c.Row / 2) - 11) * 17 + 4
Sheets("Transporte").Rows(i).ShowDetail = True
End If
Next
End If
End Sub
Sinn und Zweck ist es, bei Eingabe von Werten (meinBereich) in der Tabelle "Stammdaten" entsprechende Zeilen in der Tabelle "Transporte" aus- bzw. wieder einzublenden.
Ich war mit der Lösung von Galenzo ganz zufrieden, mein Chef mal wieder nicht! Grrrrr!!!!! Ihn stören die leeren Zeilen, die bedingt durch die Gruppierung eingeblendet bleiben.
Gibt es vielleicht eine Möglichkeit, diese "störenden" Leerzeilen noch auszublenden?
Habe die Musterdatei noch mal hochgeladen: https://www.herber.de/bbs/user/924.xls
Kann mir vielleicht noch einmal jemand helfen?
Ciao
Kirsten