Thema Datum  Von Nutzer Rating
Antwort
Rot Nächsten X Zeilen ausblenden
 12.02.2019 09:50:01 Marcel
NotSolved
12.02.2019 10:04:08 Werner
NotSolved
12.02.2019 10:26:02 Gast48300
NotSolved
12.02.2019 11:02:42 Werner
*****
Solved
12.02.2019 11:11:24 Marcel
NotSolved

Ansicht des Beitrags:
Von:
Marcel		 Datum:
12.02.2019 09:50:01		 Views:
932		 Rating:
     
Antwort:
  Ja
Thema:
Nächsten X Zeilen ausblenden

Hallo zusammen,

ich habe ein Makro, dass die nächsten 30 Zeilen ein- und ausblenden soll. Allerdings macht der das nur bei der Aktiven Zelle und nicht bei den nächsten Zeilen.
Wie kann ich es einstellen, dass die nächsten Zeilen unter der Schaltfläche ausgeblendet werden?

Bsp: Die Schaltfläche ist in Zeile 11 und 12 --> Also soll sie Zeile 13-42 ausblenden.

Private Sub ToggleButton3_Click()
Dim i As Double
ActiveCell.Activate
i = ActiveCell.Row
    With ToggleButton3
    .Caption = "Wert 1  " & IIf(.Value = True, "eingeblendet", "ausgeblendet")
    .BackColor = IIf(.Value = True, &HFF&, &HFF00&)
    For i = i To i + 30
        If .Value = True Then
            Rows(i).EntireRow.Hidden = False
              Else
            Rows(i).EntireRow.Hidden = True
        End If
       Next
    End With

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 Nächsten X Zeilen ausblenden
 12.02.2019 09:50:01 Marcel
NotSolved
12.02.2019 10:04:08 Werner
NotSolved
12.02.2019 10:26:02 Gast48300
NotSolved
12.02.2019 11:02:42 Werner
*****
Solved
12.02.2019 11:11:24 Marcel
NotSolved