Thema Datum  Von Nutzer Rating
Antwort
Rot Code zum kopieren klappt leider nicht. Warum?
 16.11.2017 22:52:32 Andreas
NotSolved
17.11.2017 09:00:54 Gast96021
NotSolved
17.11.2017 09:12:07 Andreas
NotSolved
17.11.2017 09:14:21 Gast58573
NotSolved
17.11.2017 09:20:32 Andreas
NotSolved

Ansicht des Beitrags:
Von:
Andreas		 Datum:
16.11.2017 22:52:32		 Views:
697		 Rating:
     
Antwort:
  Ja
Thema:
Code zum kopieren klappt leider nicht. Warum?

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Code zum kopieren klappt leider nicht. Warum?
 16.11.2017 22:52:32 Andreas
NotSolved
17.11.2017 09:00:54 Gast96021
NotSolved
17.11.2017 09:12:07 Andreas
NotSolved
17.11.2017 09:14:21 Gast58573
NotSolved
17.11.2017 09:20:32 Andreas
NotSolved