Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Zeilen mit bestimmten Triggerwort ausblenden wenn zwei Bedingungen erfüllt sind
 27.01.2020 14:10:25 Sors
NotSolved
27.01.2020 14:20:03 Werner
NotSolved
27.01.2020 14:40:09 Gast62130
NotSolved
27.01.2020 14:45:09 Sors
NotSolved
27.01.2020 15:13:10 Werner
*****
NotSolved
27.01.2020 15:38:28 Sors
NotSolved
27.01.2020 16:09:18 Sors
Solved

Ansicht des Beitrags:
Von:
Sors		 Datum:
27.01.2020 14:10:25		 Views:
1403		 Rating:
     
Antwort:
  Ja
Thema:
Alle Zeilen mit bestimmten Triggerwort ausblenden wenn zwei Bedingungen erfüllt sind

Hallo Liebe Leute,

Ich habe eine Excel mit etlichen Worksheets. Mein Ziel ist es, dass ich auf dem Inhaltsverzeichnis die einzelnen Zeilen Ausblenden lassen kann wenn 1) ein "x" gesetzt (F2) wurde und 2) der Wert auf der selben Zeile andere Spalte (B2) wo das x gesetzt wurde übereinstimmt.

 

Mein Code sieht folgendermaßen aus:

 

 

Sub ZeilenAusblenden()


Application.ScreenUpdating = False

Dim i As Integer
Dim z As Integer
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
sh.Activate

For z= 1 To 100
For i = 1 To 100

If Cells(i, 1).Value = Worksheets("Funktionsverzeichnis").Cells(z, 3).Value And Worksheets("Funktionsverzeichnis").Cells(z, 6).Value = "x" Then
    Rows(i).Hidden = True
End If

Next i
Next z
Next sh
Application.ScreenUpdating = True
Range("A1").Select
'
End Sub
Kann mir da jemand weiterhelfen? Was habe ich nicht bedacht bzw übersehen.
 
 

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 Alle Zeilen mit bestimmten Triggerwort ausblenden wenn zwei Bedingungen erfüllt sind
 27.01.2020 14:10:25 Sors
NotSolved
27.01.2020 14:20:03 Werner
NotSolved
27.01.2020 14:40:09 Gast62130
NotSolved
27.01.2020 14:45:09 Sors
NotSolved
27.01.2020 15:13:10 Werner
*****
NotSolved
27.01.2020 15:38:28 Sors
NotSolved
27.01.2020 16:09:18 Sors
Solved