Zeilen Ein - / Ausblenden mittels VBA

Forumthread: Zeilen Ein - / Ausblenden mittels VBA

06.08.2024 13:49:19

Roger

Hallo zusammen

Das unten aufgeführte VBA funktioniert. Nun hat mein dropdown neu noch mehr Auswahlen.

Diese die Zeile 54 ausblenden
N 80/80
N 80/70
N 80/60
N 80/50
N 80/49

und die folgenden die Zeile 55 ausblenden

N 35/30
N 35/35
N 35/40
N 35/49
N 55/30
N 55/35
N 55/40
N 55/45
N 55/49
N 55/55

Wäre dankbar für Euere Unterstützung.

Private Sub Worksheet_Change(ByVal Target As Range)

'Prüfen, ob wir in Zelle E25 sind
If Not Intersect(Target, Range("E25")) Is Nothing Then

'Zeilen einblenden
Cells.EntireRow.Hidden = False

'Prüfen, ob "N 80/80" in Zelle E25 steht
If Range("E25").Value = "N 80/80" Then
Rows("54").EntireRow.Hidden = True
ElseIf Range("E25").Value = "N 35/30" Then
Rows("55").EntireRow.Hidden = True
End If

End If

End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen Ein - / Ausblenden mittels VBA

06.08.2024 14:15:57

Kuwer

Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address = "$E$25" Then

    Cells.EntireRow.Hidden = False

    Select Case Target.Value

      Case "N 80 / 80", "N 80 / 70", "N 80 / 60", "N 80 / 50", "N 80 / 49"

        Rows("54").EntireRow.Hidden = True

      Case "N 35 / 30", "N 35 / 35", "N 35 / 40", "N 35 / 49", "N 55 / 30", "N 55 / 35", "N 55 / 40", "N 55 / 45", "N 55 / 49", "N 55 / 55"

        Rows("55").EntireRow.Hidden = True

    End Select

  End If

End Sub

Gruß, Uwe

AW: Zeilen Ein - / Ausblenden mittels VBA

06.08.2024 14:29:27

Roger

SUPER, vielen herzlichen Dank Uwe, hat einwandfrei funktionierte ;-)

AW: Zeilen Ein - / Ausblenden mittels VBA

06.08.2024 14:27:53

Beverly

Hi Roger,

versuche es mal so:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("E25")) Is Nothing Then

        Dim varAus As Variant

        Dim arrAus()

        arrAus = Array("N 35/30", "N 35 / 35", "N 35 / 40", "N 35 / 49", "N 55 / 30", "N 55 / 35", "N 55 / 40", "N 55 / 45", "N 55 / 49", "N 55 / 55", "N 80 / 80", "N 80 / 70", "N 80 / 60", "N 80 / 50", "N 80 / 49")

        'Zeilen einblenden

        Cells.EntireRow.Hidden = False

        varAus = Application.Match(Target.Cells(1), arrAus(), 0)

        If Not IsError(varAus) Then

            If varAus > 10 Then

                Rows("54").EntireRow.Hidden = True

            Else

                Rows("55").EntireRow.Hidden = True

            End If

        End If

    End If

End Sub

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Zeilen Ein - / Ausblenden mittels VBA

06.08.2024 17:35:11

daniel

HI
1. erstelle ein Hilfstabelle
2. Liste in Spalte A alle DropDown-Werte auf
3. Schreibe in Spalte B daneben, welche Zeile bei diesem DropDown ausgeblendet werden soll
die Hilfstabelle sollte so aussehen:
N 80/80 | 54
N 80/70 | 54
N 80/60 | 54
N 80/50 | 54
N 80/49 | 54
N 35/30 | 55
N 35/35 | 55
N 35/40 | 55
N 35/49 | 55
usw.
4. schreibe in die Zelle C1 der Hilfstabelle die Formel: =WennFehler(SVerweis(Tabelle1!E25;A:B;2;0);"")

5. Verwende die erste Spalte der Hilfstabelle als Quelle für dein DropDown

6. Als Code reicht dann das hier

Private Sub Worksheet_Change(ByVal Target As Range)



'Prüfen, ob wir in Zelle E25 sind

If Not Intersect(Target, Range("E25")) Is Nothing Then



'Zeilen einblenden

Cells.EntireRow.Hidden = False

With Sheets("Hilfstabelle").Range("C1")

    if .Value > "" then Rows(.value).Hidden = True

end with

End Sub

wenn weitere Zeilen und DropDownWerte hinzukommen, dann reicht es, die Hilfstabelle anzupassen, der Makrocode bleibt unverändert.

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Zeilen Ein - / Ausblenden mittels VBA

Forumthread: Zeilen Ein - / Ausblenden mittels VBA

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zeilen Ein - / Ausblenden mittels VBA

Forumthread: Zeilen Ein - / Ausblenden mittels VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread