VBA Zeilen ausblenden infolge Dropdown-Auswahl

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hoi zäme
https://www.herber.de/bbs/user/144601.xl
Ich habe den Code weiter bearbeitet und stehe nun von folgenden Problemen:
-Falls der eine Text ein Teil vom Anderen beinhaltet("verrohrt" in "unVERROHRT", scheint dies nicht mehr ausgeführt werden zu können?
- Funktionieren Texte mit Umlauten? "Flüssigkeitgestütze Pfähle"
Grundsätzlich sollen alle Zeilen im Bereich 40:286 ausgeblendet sein. Jede Art hat einen dazugehörigen Bereich im Ausmass200, wird zB. "Verrohrt" ausgewählt, soll dieser Bereich (Zeilen 40:147) eingeblendet werden. Wird zusätzlich zB. "Endschlossschnecke" angewählt, sollen die Zeilen 233:286 ebenfalls eingeblendet werden. Wie kann dies gelöst werden?
(Case Else kommt ja nur nur Anwendung, wenn nichts ausgewählt wird)
Als neuer Code soll wenn im Bereich L9:H22 "ja" steht, im ausmass200 Zeilen 344:374 eingeblendet werden. Falls "nein" oder nichts steht, sollen diese Zeilen ausgeblendet bleiben.
(kann wahrscheinlich ohne Select Case gelöst werden?)
Danke vielmals für eure Unterstützung!

Hallo Petra,
-Falls der eine Text ein Teil vom Anderen beinhaltet("verrohrt" in "unVERROHRT", scheint dies nicht mehr ausgeführt werden zu können?
Nein, es wird die genaue Übereinstimmung gesucht.
- Funktionieren Texte mit Umlauten? "Flüssigkeitgestütze Pfähle"
Ja.
1. Im Makro war "Flüssigkeitgestützte Pfähle" falsch geschrieben (Flüssigkeitgestütze Pfähle) da fehlt ein t. Das habe ich korrigiert.
2. Im Makro ist "unverrohrt" richtig geschrieben, aber in deiner Auswahlliste steht "unverrvohrt" da ist ein v zu viel drin. Das musst du korrigieren.
3. Im Makro steht "Endlosschnecke", in deiner Auswahlliste steht aber "Endschlosschnecke". Da weiß ich nicht was richtig ist. Das musst du entweder im Makro oder in deiner Liste korrigieren.
Um einen weiteren Bereich zu überwachen darfst du dir nicht einfach ein Event ausdenken, sondern musst dies in das vorhandene Event integrieren:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("H9:H22")) Is Nothing Then

        Select Case Target.Value
            Case "verrohrt"
                ausmass200.Rows("40:147").Hidden = False
            Case "unverrohrt"
                ausmass200.Rows("148:188").Hidden = False
            Case "Endlosschnecke"
                ausmass200.Rows("233:286").Hidden = False
            Case "Flüssigkeitgestützte Pfähle"
                ausmass200.Rows("189:286").Hidden = False
            Case Else
                ausmass200.Rows("40:286").Hidden = True
        End Select

    ElseIf Not Intersect(Target, Range("L9:L22")) Is Nothing Then

        Select Case Target.Value
            Case "ja"
                ausmass200.Rows("344:374").Hidden = False
            Case Else
                ausmass200.Rows("344:374").Hidden = True
        End Select
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

VBA Zeilen ausblenden infolge Dropdown-Auswahl

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zeilen ausblenden infolge Dropdown-Auswahl

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread