Thema Datum  Von Nutzer Rating
Antwort
21.10.2020 13:07:12 Schmidt
*****
Solved
21.10.2020 18:56:51 Gast16432
NotSolved
Rot Ausblenden von Zeilen auf anderem Blatt mit mehreren Möglichkeiten
 21.10.2020 20:51:23 AlterDresdner
NotSolved
22.10.2020 10:13:35 Schmidt
NotSolved
22.10.2020 12:31:04 AlterDresdner
NotSolved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
21.10.2020 20:51:23		 Views:
943		 Rating:
     
Antwort:
  Ja
Thema:
Ausblenden von Zeilen auf anderem Blatt mit mehreren Möglichkeiten

Hallo,
eine andere Variante, die alles im Chnage-Routine abwickelt und etwas Kommentar enthält:

?
1
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit 'erzwingt Deklaration verwendeter Variablen
Option Base 1 'erster Index eines Feldes ist 1
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range, Zeilen() As String, ZeilBer
  Set Bereich = Range("A13:A16") 'der zu überwachende Zellbereich
  'liegt die Zelle Target im Bereich?
  If Not Intersect(Target, Bereich) Is Nothing Then
    Sheets("Tabelle2").Rows.Hidden = False 'alle Zeilen einblenden
    Sheets("Tabelle3").Rows.Hidden = False
    Application.EnableEvents = False
    'um Mehrfachaufruf des Change-Events zu unterdrücken
    If Target.Text = "x" Then
      Bereich = " " 'alle x im Bereich löschen
      Target = "x" 'in Targetzelle wieder eintragen
      Select Case Target.Row 'auszublendende Zeilen festlegen
        Case 13 'A13
          ReDim Zeilen(1)
          Zeilen(1) = "15:20"
        Case 14 'A14
          ReDim Zeilen(2)
          Zeilen(1) = "15:20"
          Zeilen(1) = "24:28"
        Case 15 'A15
          ReDim Zeilen(2)
          Zeilen(1) = "15:22"
          Zeilen(2) = "23:37"
        Case 16 'A16
          ReDim Zeilen(3)
          Zeilen(1) = "12:20"
          Zeilen(2) = "23:78"
          Zeilen(3) = "100:104"
      End Select
      For Each ZeilBer In Zeilen() 'nun wirklich ausblenden
        Sheets("Tabelle2").Rows(ZeilBer).Hidden = True
        Sheets("Tabelle3").Rows(ZeilBer).Hidden = True
      Next
    End If
  End If
  Application.EnableEvents = True 'muss man wieder zurücksetzen
End Sub

Die Änderung, wenn in Tabelle2 und 3 unterschiedliche Bereiche auszublenden sind, lasse ich Dir zum Üben...

Gruß der AlteDresdner

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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.10.2020 13:07:12 Schmidt
*****
Solved
21.10.2020 18:56:51 Gast16432
NotSolved
Rot Ausblenden von Zeilen auf anderem Blatt mit mehreren Möglichkeiten
 21.10.2020 20:51:23 AlterDresdner
NotSolved
22.10.2020 10:13:35 Schmidt
NotSolved
22.10.2020 12:31:04 AlterDresdner
NotSolved