Ein- und Ausblenden von Zeilen
04.11.2013 13:41:40
Zeilen
ich möchte in einem Makro über eine dann verknüpfte Form Zeilen ein- und ausblenden. Ich möchte nun aber mit dem Einlenden der ersten zwei Zeilen nicht nur das zwei Zeilen eingeblendet werden, sondern insgesamt vier. Alle weiteren Zeilen sollen dann in 2 steps weiter erfolgen.
Könnte mir jemand helfen, dass Makro entsprechend anzupassen, danke.
'Makros in einem allgemeinen Modul der Datei
'Aufruf der Makros erfolgt über Formen (z.b: Pluszeichen und Minuszeichen), _
denen ein Makro zugewiesen ist und die in der Hauptzeile mit _
dem Datum palziert sein müssen - z.B. in Spalte A
Sub Zwischenfahrteinblenden()
Dim objShape As Shape, lngZeileDatum As Long, lngZeile As Long
Set objShape = ActiveSheet.Shapes(Application.Caller)
lngZeileDatum = objShape.TopLeftCell.Row
For lngZeile = lngZeileDatum + 2 To lngZeileDatum + 10 Step 2
If ActiveSheet.Rows(lngZeile).Hidden = True Then
With ActiveSheet
.Range(.Rows(lngZeile - 1), .Rows(lngZeile)).Hidden = False
End With
Exit For
End If
Next
End Sub
Sub Zwischenfahrtausblenden()
Dim objShape As Shape, lngZeileDatum As Long, lngZeile As Long
Set objShape = ActiveSheet.Shapes(Application.Caller)
lngZeileDatum = objShape.TopLeftCell.Row
For lngZeile = lngZeileDatum + 10 To lngZeileDatum + 2 Step -2
If ActiveSheet.Rows(lngZeile).Hidden = False Then
With ActiveSheet
.Range(.Rows(lngZeile - 1), .Rows(lngZeile)).Hidden = True
End With
Exit For
End If
Next
End Sub