Combobox Zeilen ausblenden
Dietmar
folgender Code erzeugt stets die Fehlermeldung. Warum? Was müsste ich ändern?
Ich möchte im Rahmen einer Combobox mehere Entscheidungen über einzublendende bzw. auszublendende Zeilen auswählen können.
Meine Idee ist, zuerst alle Zeilen auszublenden und dann diejenigen eines bestimmten Bereichs einzublenden. Anschließend sollen innerhalb einzublendenden Bereichs nochmals diejenigen Zeilen ausgeblendet werden, wo in der Spalte "C" keinen Eintrag steht (dort steht ein Buchstabe z.B. "x", wenn ich Spalte "A" dieser Zeile ein Wert steht.
Jemand eine Idee?
Vielen Dank vorab!
Dietmar aus Aachen
Private Sub ComboBox2_Change()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="123"
ActiveSheet.ScrollArea = ""
Select Case ComboBox2.Value
Case "Ansicht 1"
On Error GoTo Fehler
Rows("4:338").EntireRow.Hidden = True 'alle Zeilen ausblenden
Rows("4:140").EntireRow.Hidden = False 'Zeilen 4 bis 140 anzeigen
'jetzt im Bereich der Zeilen 4 - 140 die Zeilen ausblenden, die in Spalte C keinen Eintrag _
haben
Dim nZeile As Long
For nZeile = 4 To 140
If Cells(nZeile, "C").Value = "" Then
Rows(nZeile).Hidden = True
End If
Next nZeile
ActiveSheet.ScrollArea = "A1:EG338"
ActiveSheet.Protect Password:="123"
Application.ScreenUpdating = True
Fehler:
MsgBox "Fehler, bitte nochmals probieren", vbInformation, "... auf gehts"
ActiveSheet.Protect Password:="123"
Application.ScreenUpdating = True
Exit Sub
Anzeige