Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.10.2020 13:07:12 |
Schmidt |
|
|
|
21.10.2020 18:56:51 |
Gast16432 |
|
|
Ausblenden von Zeilen auf anderem Blatt mit mehreren Möglichkeiten |
21.10.2020 20:51:23 |
AlterDresdner |
|
|
|
22.10.2020 10:13:35 |
Schmidt |
|
|
|
22.10.2020 12:31:04 |
AlterDresdner |
|
|
Von:
AlterDresdner |
Datum:
21.10.2020 20:51:23 |
Views:
678 |
Rating:
|
Antwort:
|
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:
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
|
- 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
|
|
21.10.2020 13:07:12 |
Schmidt |
|
|
|
21.10.2020 18:56:51 |
Gast16432 |
|
|
Ausblenden von Zeilen auf anderem Blatt mit mehreren Möglichkeiten |
21.10.2020 20:51:23 |
AlterDresdner |
|
|
|
22.10.2020 10:13:35 |
Schmidt |
|
|
|
22.10.2020 12:31:04 |
AlterDresdner |
|
|