Combobox mit Selcet Case
Dietmar
was ist hier denn bloß falsch?
Der Code akzeptiert nur die 1. Case-Antweisung. Wenn ich in der Combobox die anderen aufrufe rausch der Code durch OHNE etwas zu ändern.
Danke für Eure Hilfe!
Gruß Dietmar aus Aachen
Private Sub Combobox2_Change()
Application.ScreenUpdating = False
Rows("4:338").EntireRow.Hidden = False
Select Case Combobox2.Value
Dim i As integer
Case "Normal"
'Rows("4:338").EntireRow.Hidden = False
For i = 4 To 338
If Cells(i, 3).Value "normal" Then
Rows(i).Hidden = True
End If
Next i
Exit Sub
Case "selten"
'Rows("4:338").EntireRow.Hidden = False
For i = 4 To 338
If Cells(i, 3).Value "selten" Then
Rows(i).Hidden = True
End If
Next i
Exit Sub
Case "nie"
'Rows("4:338").EntireRow.Hidden = False
For i = 4 To 338
If Cells(i, 3).Value "nie" Then
Rows(i).Hidden = True
End If
Next i
End Select
Application.ScreenUpdating = True
End Sub