Thema Datum  Von Nutzer Rating
Antwort
26.05.2017 09:31:23 Bravolus
NotSolved
26.05.2017 14:07:46 Werner
NotSolved
Rot Zeilen einblenden/ ausblenden wenn Bedingung erfüllt
 26.05.2017 17:40:04 Gast22602
NotSolved

Ansicht des Beitrags:
Von:
Gast22602		 Datum:
26.05.2017 17:40:04		 Views:
544		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen einblenden/ ausblenden wenn Bedingung erfüllt		 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Tabelle1

    If .Range("A6").Text = "Global" Then 'DropDownZelle natürlich anpassen

    .Rows("40:238").EntireRow.Hidden = True

    Else

1) Wie bitte, soll bei der Code-Schachtel "A9" ausgewertet werden?

2) Worksheet_SelectionChange feuert bei jeder "Zellberührung"

3) Besser so:

Private Sub Worksheet_Change(ByVal Target As Range)
'reagiert auf Änderung des Zellinhaltes (Target)

'ist A6 oder A9
   Select Case Target.Address
      Case "A6"
         .Rows("40:238").EntireRow.Hidden = False
         Select Case Target.Value
            Case "Global"
               .Rows("40:238").EntireRow.Hidden = True
            Case "Deutschland/ Österreich/ Schweiz"
               .Rows("15:38").EntireRow.Hidden = True
               .Rows("65:238").EntireRow.Hidden = True
            'Case und so weiter
         End Select
      Case "A9"
         .Rows("267:465").EntireRow.Hidden = True
         Select Case Target.Value
            Case "Global"
               .Rows("267:465").EntireRow.Hidden = True
            Case "Deutschland/ Österreich/ Schweiz"
               .Rows("242:265").EntireRow.Hidden = True
               .Rows("292:465").EntireRow.Hidden = True
            'Case und so weiter
   End Select

End Sub

 

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
26.05.2017 09:31:23 Bravolus
NotSolved
26.05.2017 14:07:46 Werner
NotSolved
Rot Zeilen einblenden/ ausblenden wenn Bedingung erfüllt
 26.05.2017 17:40:04 Gast22602
NotSolved