Office: Zeilen m.H.v. Kontrollkästchen ein - u. ausblenden und Zellenhalt löschen

Hallo Zusammen,

ich habe ein Kontrollkästchen (Formularsteuerelement) mit dem bei Aktivierung bestimmte Zeilen der Tabelle2 eingeblendet werden und in die Zelle F385 (Tabelle2) gesprungen werden soll. Wenn Kontrollkästchen nicht aktiviert ist, dann sollen die Zeilen 378:410 auf Tabelle2 ausgeblendet sein und falls auf Tabelle2 in F385, 386 und F403 etwas eingegeben wurde dies gelöscht werden. Ist Kästchen nicht aktiviert soll man auf Tabelle1 bleiben.

Ich hänge gerade daran, dass die Zeilen bei Reaktivierung eingeblendet und bei Aktivierung des Kontrollkästchen ausgeblendet werden.
Könnt ihr mir hierbei helfen und ggf. eine schönere Alternative anbieten. :)

Ich bedanke mich im Voraus und wünsche ein schönes Wochenende.
Liebe Grüße
Meike


Sub Kk_1()
Sheets("Tabelle2").Unprotect Password:="pw"
Call HideUnhide
Call sprung_T2
Sheets("Tabelle2").Protect Password:="pw", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
End Sub


Sub HideUnhide()
With Sheets("Tabelle2").Rows("378:410")
.Hidden = Not .Hidden
End With
End Sub


Sub sprung_T2()
If Range("I15").Value = True Then
Sheets("Tabelle2").Select
Range("F385").Select
Else
Sheets("Tabelle2").Range("F385,F386,F403").ClearContents
End If
End Sub

 

Hi,

wen ich dein Anliegen richtig verstanden hab, dann kann man das mit diesem Makro regeln:

Code:

Sub EinAus()
    With ActiveSheet.Shapes(Application.Caller)
        If .ControlFormat.Value = 1 Then
            With Worksheets("Tabelle2")
                Application.Goto reference:=.Range("F358")
                .Rows("378:410").EntireRow.Hidden = False
            End With
        Else
            With Worksheets("Tabelle2")
                .Range("F285, F386, F403").ClearContents
                .Rows("378:410").EntireRow.Hidden = True
            End With
        End If
    End With
End Sub

Bis später,
Karin

 

Hallo Karin,

Danke, das war genau was ich meinte. Weißt du auch weswegen nun beim ausblenden die ausgeblendeten Seiten (als leere Seite) mitgedruckt wird?

Vielen Dank.

Lieben Gruß

 

Hi,

Excel "weiß", auf wie vielen Seiten etwas steht und wenn man nicht explizit vorgibt, dass nur von Seite x bis Seite y gedruckt werden soll, werden alle Seiten, also auch die leeren mit gedruckt.

Bis später,
Karin