Hallo liebe Mitglieder, ich habe ein Problem mit dem Kopieren von Zellen in ein anderes Blatt.
Auf Blatt "H", da wo auch der ToggleButton1 liegt, sollen nur die nicht ausgeblendeten Werte (sichtbare Werte) im Bereich I19:1273 auf Blatte "SE" kopiert werden. Mit dem ToggleButton soll man den Transfer Ein/-und Ausschalten können.
Wo ist denn bitte der Fehler in meinem Code?
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:1273").CurrentRegion _
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("SE").Range("A1")
End If
End Sub |