Private
Sub
ToggleButton1_Click()
If
ToggleButton1.Caption =
"Deaktiviert"
Then
ToggleButton1.Caption =
"Aktiviert"
Else
ToggleButton1.Caption =
"Deaktiviert"
End
If
End
Sub
Sub
MinCopy()
If
ToggleButton1.Caption =
"Aktiviert"
Then
Range(
"I19:I1273:"
).CurrentRegion _
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets(
"Tabelle4"
).Range(
"A1:A1273"
)
End
If
End
Sub