Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Combobox Zeilen ausblenden

Combobox Zeilen ausblenden
Dietmar
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Combobox Zeilen ausblenden
30.05.2010 14:40:58
Uduuh
Hallo,
natürlich wird die Fehlermeldung angezeigt. Sie wird ja nicht übersprungen.
Gruß aus’m Pott
Udo

Auwaia jetzt, klar doch!
30.05.2010 15:14:51
Dietmar
Danke Udo!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige