Thema Datum  Von Nutzer Rating
Antwort
21.05.2018 21:09:48 Hady
NotSolved
21.05.2018 22:23:00 Werner
NotSolved
Rot Finden
21.05.2018 22:59:19 Werner
NotSolved
22.05.2018 07:09:38 Hady
NotSolved
22.05.2018 16:34:50 Werner
NotSolved
24.05.2018 15:13:03 Hady
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
21.05.2018 22:59:19		 Views:
565		 Rating:
     
Antwort:
  Ja
Thema:
Finden

Hallo,

wenn mit Makro, dann z.B. so:

1. einen CommandButton aus den ActiveX Steuerelementen auf dein Tabellenblatt

2. in den Eigenschaften des CommandButton bei Caption "Ausblenden" (ohne Gänsefüßchen) eintragen

3. den folgenden Code ins Codemodul der Arbeitsmappe, auf dem der CommandButton ist

 

Private Sub CommandButton1_Click()
Dim i As Long

Application.ScreenUpdating = False

With Worksheets("Tabelle1") 'Blattname anpassen
    If .CommandButton1.Caption = "Ausblenden" Then
        For i = 3 To 26
            If .Cells(i, 4) <> "Finden" Then
                .Rows(i).Hidden = True
            End If
        Next i
        .CommandButton1.Caption = "Einblenden"
    ElseIf .CommandButton1.Caption = "Einblenden" Then
        .Rows("3:26").Hidden = False
        .CommandButton1.Caption = "Ausblenden"
    End If
End With

Application.ScreenUpdating = True
End Sub

Der Code ist so geschrieben, dass die entsprechenden Zeilen ausgeblendet werden, wenn der Button mit Ausblenden beschriftet ist. Die Beschriftung wechselt dann auf Einblenden. Wird in diesem Zustand der Button erneut geklickt, dann werden alle Zeilen wieder eingeblendet und die Beschriftung wechselt auf Ausblenden. Ich bin davon ausgegangen, dass du die ausgeblendeten Zeilen ja auch mal wieder einblenden willst.

 

Gruß Werner

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
21.05.2018 21:09:48 Hady
NotSolved
21.05.2018 22:23:00 Werner
NotSolved
Rot Finden
21.05.2018 22:59:19 Werner
NotSolved
22.05.2018 07:09:38 Hady
NotSolved
22.05.2018 16:34:50 Werner
NotSolved
24.05.2018 15:13:03 Hady
NotSolved