|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Alle Zeilen mit bestimmten Triggerwort ausblenden wenn zwei Bedingungen erfüllt sind |
27.01.2020 14:10:25 |
Sors |
|
|
|
27.01.2020 14:20:03 |
Werner |
|
|
|
27.01.2020 14:40:09 |
Gast62130 |
|
|
|
27.01.2020 14:45:09 |
Sors |
|
|
|
27.01.2020 15:13:10 |
Werner |
|
|
|
27.01.2020 15:38:28 |
Sors |
|
|
|
27.01.2020 16:09:18 |
Sors |
|
|
Von:
Sors |
Datum:
27.01.2020 14:10:25 |
Views:
1150 |
Rating:
|
Antwort:
|
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.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Alle Zeilen mit bestimmten Triggerwort ausblenden wenn zwei Bedingungen erfüllt sind |
27.01.2020 14:10:25 |
Sors |
|
|
|
27.01.2020 14:20:03 |
Werner |
|
|
|
27.01.2020 14:40:09 |
Gast62130 |
|
|
|
27.01.2020 14:45:09 |
Sors |
|
|
|
27.01.2020 15:13:10 |
Werner |
|
|
|
27.01.2020 15:38:28 |
Sors |
|
|
|
27.01.2020 16:09:18 |
Sors |
|
|