Frage knüpft an mein Problem von gestern an ... also ich habe in einem Formularfeld eine Combobox und je nachdem welcher Wert dort gewählt wurde, werden in Sheet 1 Zeilen ausgeblendet ... das Problem was ich habe, ist, dass die ausgeblendeten Zeilen nicht wieder eingeblendet werden, wenn man eine andere Zahl wählt.
Hier der Quellcode:
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ComboBox1_Change()
With ActiveWorkbook.Worksheets("Sheet1").Rows("33:38").EntireRow.Hidden = False
[Sheet2!A1] = ComboBox1.Value
Select Case [Sheet2!A1]
Case ""
ActiveWorkbook.Worksheets("Sheet1").Rows("33:38").EntireRow.Hidden = True
Case "1"
ActiveWorkbook.Worksheets("Sheet1").Rows("35:38").EntireRow.Hidden = True
Case "2"
ActiveWorkbook.Worksheets("Sheet1").Rows("34:38").EntireRow.Hidden = True
End Select
End With
End Sub
Private Sub UserForm_Click()
End Sub
Was könnte da nicht passen=!
Vielen Dank
Christian
https://www.herber.de/bbs/user/47490.xls