Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige