Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Makro mit mehreren Bedingungen

VBA Makro mit mehreren Bedingungen
14.10.2019 11:36:06
Philip
Hallo liebes Hilfe-Team,
ich bin ein absoluter Excel Laie und brauche Eure Hilfe bei folgendem Makro (Versuch :-)):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address = "$Y$2" Then
Rows("28:302").Hidden = Target.Value = "Wert1"
Else
Rows("8:27").Hidden = Target.Value = "Wert2"
Rows("68:302").Hidden = Target.Value = "Wert2"
Else
Rows("8:68").Hidden = Target.Value = "Wert3"
Rows("98:302").Hidden = Target.Value = "Wert3"
Else
Rows("8:97").Hidden = Target.Value = "Wert4"
Rows("177:302").Hidden = Target.Value = "Wert4"
Else
Rows("8:177").Hidden = Target.Value = "Wert5"
End If
End Sub

Die Werte werden im Feld per Drop Down Liste ausgewählt.
Leider bekomme ich immer einen Fehler - kann jemand helfen?
Liebe Grüße
P

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Makro mit mehreren Bedingungen
14.10.2019 11:52:26
Werner
Hallo Philip,
so?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address = "$Y$2" Then
Select Case Target.Value
Case "Wert1"
Rows.Hidden = False
Rows("28:302").Hidden = True
Case "Wert2"
Rows.Hidden = False
Rows("8:27").Hidden = True
Rows("68:302").Hidden = True
Case "Wert3"
Rows.Hidden = False
Rows("8:68").Hidden = True
Rows("98:302").Hidden = True
Case "Wert4"
Rows.Hidden = False
Rows("8:97").Hidden = True
Rows("177:302").Hidden = True
Case "Wert5"
Rows.Hidden = False
Rows("8:177").Hidden = True
Case Else
Rows.Hidden = False
End Select
End If
End Sub
Gruß Werner
Anzeige
AW: VBA Makro mit mehreren Bedingungen
14.10.2019 13:15:44
MCO
Leicht modifiziert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address = "$Y$2" Then 'cells dann entfallen
Rows.Hidden = False ' kann vorher stehen, soll eh immer laufen
Select Case Target.value
Case "Wert1"
Rows("28:302").Hidden = True
Case "Wert2"
Rows("8:27").Hidden = True
Rows("68:302").Hidden = True
Case "Wert3"
Rows("8:68").Hidden = True
Rows("98:302").Hidden = True
Case "Wert4"
Rows("8:97").Hidden = True
Rows("177:302").Hidden = True
Case "Wert5"
Rows("8:177").Hidden = True
End Select
End If
End Sub

Gruß, MCO
Anzeige

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige