' **********************************************************************
' Modul: frmSchaltflächenM Typ: Userform
' **********************************************************************
Private Sub cmdSchließen_Click()
Unload frmSchaltflächenM
End Sub
Private Sub CommandButton1_Click()
Dim i As Long, n As Long
n = 1
With Sheets("Montage")
For i = 5 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Cells(i, "A") <> "" Then
.Cells(i, "A") = n
n = n + 1
End If
Next
End With
End Sub
Private Sub ToggleButton5_Click()
With ToggleButton5
.Caption = IIf(.Value, "Projektleiter aus", "Projektleiter ein")
Call SpaltenAusEin(8, .Value)
End With
End Sub
Private Sub ToggleButton6_Click()
With ToggleButton6
.Caption = IIf(.Value, "Meister aus", "Meister ein")
Call SpaltenAusEin(9, .Value)
End With
End Sub
Private Sub ToggleButton7_Click()
With ToggleButton7
.Caption = IIf(.Value, "Planstart aus", "Planstart ein")
Call SpaltenAusEin(10, .Value)
End With
End Sub
Private Sub ToggleButton8_Click()
With ToggleButton8
.Caption = IIf(.Value, "Planende aus", "Planende ein")
Call SpaltenAusEin(11, .Value)
End With
End Sub
Private Sub ToggleButton9_Click()
With ToggleButton9
.Caption = IIf(.Value, "Anmerkung aus", "Anmerkung ein")
Call SpaltenAusEin(12, .Value)
End With
End Sub
Private Sub ToggleButton10_Click()
With ToggleButton10
.Caption = IIf(.Value, "Fortschritt aus", "Fortschritt ein")
Call SpaltenAusEin(15, .Value)
End With
End Sub
Private Sub ToggleButton11_Click()
With ToggleButton11
.Caption = IIf(.Value, "Reviewtermin aus", "Reviewtermin ein")
Call SpaltenAusEin(16, .Value)
End With
End Sub
Private Sub ToggleButton12_Click()
With ToggleButton12
.Caption = IIf(.Value, "Stand aus", "Stand ein")
Call SpaltenAusEin(17, .Value)
End With
End Sub
Private Sub ToggleButton13_Click()
With ToggleButton13
.Caption = IIf(.Value, "Durchführbarkeit aus", "Durchführbarkeit ein")
Call SpaltenAusEin(18, .Value)
End With
End Sub
Private Sub ToggleButton14_Click()
With ToggleButton14
.Caption = IIf(.Value, "Status aus", "Status ein")
Call SpaltenAusEin(19, .Value)
End With
End Sub
Private Sub ToggleButton15_Click()
With ToggleButton15
.Caption = IIf(.Value, "Fortschritt Versch. aus", "Fortschritt Versch. ein")
Call SpaltenAusEin(20, .Value)
End With
End Sub
Private Sub ToggleButton16_Click()
With ToggleButton16
.Caption = IIf(.Value, "Ist-Start aus", "Ist-Start ein")
Call SpaltenAusEin(21, .Value)
End With
End Sub
Private Sub ToggleButton17_Click()
With ToggleButton17
.Caption = IIf(.Value, "Ist-Ende aus", "Ist-Ende ein")
Call SpaltenAusEin(22, .Value)
End With
End Sub
Sub SpaltenAusEin(ByVal Spalte As Long, ByVal Hide As Boolean)
Sheets("Montage").Columns(Spalte).EntireColumn.Hidden = Hide
End Sub
Private Sub UserForm_Activate()
With ToggleButton5
.Value = Sheets("Montage").Columns(8).EntireColumn.Hidden
.Caption = IIf(.Value, "Projektleiter aus", "Projektleiter ein")
End With
With ToggleButton6
.Value = Sheets("Montage").Columns(9).EntireColumn.Hidden
.Caption = IIf(.Value, "Meister aus", "Meister ein")
End With
With ToggleButton7
.Value = Sheets("Montage").Columns(10).EntireColumn.Hidden
.Caption = IIf(.Value, "Planstart aus", "Planstart ein")
End With
With ToggleButton8
.Value = Sheets("Montage").Columns(11).EntireColumn.Hidden
.Caption = IIf(.Value, "Planende aus", "Planende ein")
End With
With ToggleButton9
.Value = Sheets("Montage").Columns(12).EntireColumn.Hidden
.Caption = IIf(.Value, "Anmerkung aus", "Anmerkung ein")
End With
With ToggleButton10
.Value = Sheets("Montage").Columns(15).EntireColumn.Hidden
.Caption = IIf(.Value, "Fortschritt aus", "Fortschritt ein")
End With
With ToggleButton11
.Value = Sheets("Montage").Columns(16).EntireColumn.Hidden
.Caption = IIf(.Value, "Reviewtermin aus", "Reviewtermin ein")
End With
With ToggleButton12
.Value = Sheets("Montage").Columns(17).EntireColumn.Hidden
.Caption = IIf(.Value, "Stand aus", "Stand ein")
End With
With ToggleButton13
.Value = Sheets("Montage").Columns(18).EntireColumn.Hidden
.Caption = IIf(.Value, "Durchführbarkeit aus", "Durchführbarkeit ein")
End With
With ToggleButton14
.Value = Sheets("Montage").Columns(19).EntireColumn.Hidden
.Caption = IIf(.Value, "Status aus", "Status ein")
End With
With ToggleButton15
.Value = Sheets("Montage").Columns(20).EntireColumn.Hidden
.Caption = IIf(.Value, "Fortschritt Versch. aus", "Fortschritt Versch. ein")
End With
With ToggleButton16
.Value = Sheets("Montage").Columns(21).EntireColumn.Hidden
.Caption = IIf(.Value, "Ist-Start aus", "Ist-Start ein")
End With
With ToggleButton17
.Value = Sheets("Montage").Columns(22).EntireColumn.Hidden
.Caption = IIf(.Value, "Ist-Ende aus", "Ist-Ende ein")
End With
End Sub