16.12.2020, 15:24
Guten Tag zusammen,
ich habe leider ein Problem und komme nicht weiter.
Im Worksheet Application, habe ich eine Reihe mit Dropdowns (yes oder no) und im Zelle 1D habe ich eine Zelle die mit 1 oder 2 durch ein Kreuzfeld variiert.
Im Worksheet Recipe habe ich dann mehrere Tabellen die ein- oder ausgeblendet werden sollen.
Beispiel:
Im Dropdown wird no ausgewählt und in 1D steht irgendwas:
Zeile 10:31 in Recipe ausgeblendet.
Im Dropdown wird yes ausgewählt und in 1D steht 1:
Zeile 10:31 in Recipe eingeblendet aber 21:31 ausgeblendet
Im Dropdown wird yes ausgewählt und in 1D steht 2:
Zeile 10:31 in Recipe eingeblendet aber 18:20 ausgeblendet
Bisheriger Code der leider nicht funktioniert:
Dies ist eine Erweiterung von dieser Aufgabe:
alt (auch aus dem Forum hier)
Dort war der Finale Code, dieser hier:
Leider reichen meine Excel Kenntnisse nicht, um die neuen Bedingungen in den alten Code mit einfließen zu lassen, vielleicht kann mir ja hier einer helfen.
Schon mal vielen Dank euch
Gruß
ExcelVBAAnfänger
ich habe leider ein Problem und komme nicht weiter.
Im Worksheet Application, habe ich eine Reihe mit Dropdowns (yes oder no) und im Zelle 1D habe ich eine Zelle die mit 1 oder 2 durch ein Kreuzfeld variiert.
Im Worksheet Recipe habe ich dann mehrere Tabellen die ein- oder ausgeblendet werden sollen.
Beispiel:
Im Dropdown wird no ausgewählt und in 1D steht irgendwas:
Zeile 10:31 in Recipe ausgeblendet.
Im Dropdown wird yes ausgewählt und in 1D steht 1:
Zeile 10:31 in Recipe eingeblendet aber 21:31 ausgeblendet
Im Dropdown wird yes ausgewählt und in 1D steht 2:
Zeile 10:31 in Recipe eingeblendet aber 18:20 ausgeblendet
Bisheriger Code der leider nicht funktioniert:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(18, 3).Value = "no" Then
Worksheets("Recipe").Range("10:32").EntireRow.Hidden = True
ElseIf Cells(18, 3).Value = "yes" And Cells(1, 4).Value = "2" Then
Worksheets("Recipe").Range("18:20").EntireRow.Hidden = True
Worksheets("Recipe").Range("21:31").EntireRow.Hidden = False
ElseIf Cells(18, 3).Value = "yes" And Cells(1, 4).Value = "1" Then
Worksheets("Recipe").Range("18:20").EntireRow.Hidden = False
Worksheets("Recipe").Range("21:31").EntireRow.Hidden = True
End If
End Sub
Dies ist eine Erweiterung von dieser Aufgabe:
alt (auch aus dem Forum hier)
Dort war der Finale Code, dieser hier:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("C18"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "yes": Worksheets("Recipe").Rows("10:32").EntireRow.Hidden = False
Case Is = "no": Worksheets("Recipe").Rows("10:32").EntireRow.Hidden = True
End Select
End If
End Sub
Leider reichen meine Excel Kenntnisse nicht, um die neuen Bedingungen in den alten Code mit einfließen zu lassen, vielleicht kann mir ja hier einer helfen.
Schon mal vielen Dank euch
Gruß
ExcelVBAAnfänger