ich habe ein Tabellenblatt("HotelI") mit 8 Kombinationsfeldern(Aktive-X) bei denen man entwerder "Keine" oder eine von 8 anderen Möglichkeiten wählen kann. Die Kombinationsfelder sind untereinander in verschiedenen Zeilen. Die linkedcells sind auf einem anderen Tabellenblatt("Gewichtung").
Ich wollte nun, dass sobald bei einem "Keine" ausgewählt ist, die darunterliegenden Zeilen mit den Kombinationsfeldern ausgeblendet werden.Hatte mir das so ungefähr vorgestellt:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Worksheets("Hotel I").Rows.Hidden = False
If ThisWorkbook.Sheets("Gewichtung").Range("AF19").Value = "Keine" Then Worksheets(" _
Hotel I").Rows("36:65").Hidden = True
If ThisWorkbook.Sheets("Gewichtung").Range("AF20").Value = "Keine" Then Worksheets(" _
Hotel I").Rows("40:65").Hidden = True
If ThisWorkbook.Sheets("Gewichtung").Range("AF21").Value = "Keine" Then Worksheets(" _
Hotel I").Rows("44:65").Hidden = True
If ThisWorkbook.Sheets("Gewichtung").Range("AF22").Value = "Keine" Then Worksheets(" _
Hotel I").Rows("48:65").Hidden = True
If ThisWorkbook.Sheets("Gewichtung").Range("AF23").Value = "Keine" Then Worksheets(" _
Hotel I").Rows("52:65").Hidden = True
If ThisWorkbook.Sheets("Gewichtung").Range("AF24").Value = "Keine" Then Worksheets(" _
Hotel I").Rows("56:65").Hidden = True
If ThisWorkbook.Sheets("Gewichtung").Range("AF25").Value = "Keine" Then Worksheets(" _
Hotel I").Rows("60:65").Hidden = True
If ThisWorkbook.Sheets("Gewichtung").Range("AF26").Value = "Keine" Then Worksheets(" _
Hotel I").Rows("64:65").Hidden = True
Application.ScreenUpdating = True
End Sub
So funktioniert das allerdings nicht und ich als "VBA-Nicht-Könner" brauch daher dringend Hilfe damit!
Außerdem soll dann auf einem weiteren Tabellenblatt("Hotel II") zu der Auswahl angaben gemacht werden außer natürlich man wählt "Keine". auf diesem Tabellenblatt stehen also die selben Angaben wie in den LinkedCells und diese Zeilen sollen auch nur angezeit werden, wenn dort NICHT "Keine" steht.
Einigermaßen verständlich? Habe noch eine Beispieldatei https://www.herber.de/bbs/user/86292.xlsm
Auf allen Blättern ist übrigends Blattschutz außer auf "Gewichtung"das soll am Ende dann ausgeblendet werden falls das wichtig ist ?!
Wäre klasse wenn jemand Helfen kann!
Gruß Jo