VBA Zeilen und Tabellenblätter ein- und ausblenden
19.11.2018 08:03:33
Frank
ich habe folgende VBA-Codes, die beide einzeln funktionieren. Nun möchte ich, dass beide zusammen funktionieren. Könnt ihr mir da bitte helfen?
Wenn auf dem Tabellenblatt "Start" in Zelle "J15" eine 3 ausgegeben wird, dann soll das Tabellenblatt "Erfolgskontrolle" eingeblendet sein, sonst nicht.
Wenn auf dem Tabellenblatt "Start" in der gleichen Zelle ("J15") eine 2 ausgegeben wird, dann sollen die Zeillen 23, 24, und 25 im Tabellenblatt "Start" eingeblendet sein, sonst sollen sie ausgblendet bleiben.
Die Zelle "J15" auf dem Tabellenblatt "Start" wird über Steuerelemente gefüllt.
Vielen Dank
Frank
Hier die Codes dazu:
Private Sub Worksheet_Calculate()
With Range("J15")
' Wenn auf dem Tabellenblatt "Start" "Erfolgskontrolle" ausgewählt wird (wird
' in Zelle "J15" eine 3 ausgegeben), dann wird das Tabellenblatt
' "Erfolgskontrolle" eingeblendet.
If .Value = 3 Then
Worksheets("Erfolgskontrolle").Visible = True
Else
Worksheets("Erfolgskontrolle").Visible = xlVeryHidden
End If
End With
End Sub
Private Sub Worksheet_Calculate()
With Range("J15")
' Wenn auf dem Tabellenblatt "Start" "Realisierungsphase" ausgewählt wird
' (wird in Zelle "J15" eine 2 ausgegeben), dann werden die Zeilen 23, 24 und
' 25 eingeblendet.
If .Value = 2 Then
Range("A23:A25").EntireRow.Hidden = False
Else
Range("A23:A25").EntireRow.Hidden = True
End If
End With
End Sub