Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.04.2017 17:59:05 |
stu |
|
|
Bedingtes Ausblenden von Zeilen mit unterschiedlichen Bedingungen |
25.04.2017 18:46:39 |
BigBen |
|
|
|
26.04.2017 09:06:27 |
Stu |
|
|
Von:
BigBen |
Datum:
25.04.2017 18:46:39 |
Views:
564 |
Rating:
|
Antwort:
|
Thema:
Bedingtes Ausblenden von Zeilen mit unterschiedlichen Bedingungen |
Hallo,
wenn ich mich recht errinnere, hatten wir dieses Thema schon mal zur Diskussion gehabt. Im letzten Posting hat keiner eine Lösung gefunden. Doppelte Postings werden in der Regel nicht gern gesehen.
Nun denn...
Vielleicht hilft dieser Code...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
Application.EnableEvents = False
Rows("26:89").Hidden = False
Select Case Target.Value
Case "a"
Rows("44:89").Hidden = True
Case "b"
Rows("26:43").Hidden = True
Case "c"
Rows("26:45").Hidden = True
Case "d"
Rows("26:51").Hidden = True
Case "e"
Rows("26:53").Hidden = True
Rows("67:89").Hidden = True
Case "f"
Rows("26:66").Hidden = True
Rows("76:89").Hidden = True
Case "G"
Rows("26:75").Hidden = True
Rows("79:89").Hidden = True
Case "h"
Rows("26:78").Hidden = True
Rows("82:89").Hidden = True
Case "i"
Rows("26:81").Hidden = True
Rows("87:89").Hidden = True
Case "j"
Rows("26:86").Hidden = True
Case Else
End Select
Application.EnableEvents = True
End If
End Sub
LG, BigBen
|
- 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
|
|
25.04.2017 17:59:05 |
stu |
|
|
Bedingtes Ausblenden von Zeilen mit unterschiedlichen Bedingungen |
25.04.2017 18:46:39 |
BigBen |
|
|
|
26.04.2017 09:06:27 |
Stu |
|
|