Hallo, ich möchte mittels ToggleButton (aktiviert/deaktiviert) das kopieren von Tabellenblatt "H" auf "SE" manuell starten können.
Das Problem ist folgendes:
Die Zellen im Bereich (I19:I1273) enthalten u.a. auch Formelbezüge und zudem kann es auch vorkommen das einige Zeilen in diesem Bereich ausgeblendet sind. Es sollen also nur die sichtbaren Zellen nach "SE" kopiert werden, wenn ich den Button drücke.
Mein Ansatz sieht wie folgt aus, aber funzt leider nicht:
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("SE").Range("A19:A1273")
End If
End Sub
|