Excel 2007

Question

Hallo,
Ich hätte da eine Frage zum Code von Excel 2007.

Unter Excel 2000 funtioniert der Code:
Private Sub ListBox4_Click()
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
For Each Zelle In Range("D4:D" & Range("D65536").End(xlUp).Row)
If Zelle.Text <> ListBox4.Text Then
Zelle.Rows.EntireRow.Hidden = True
End If
Next
End Sub

Mit Excel 2007 wird hier ein Fehler angezeigt:
Cells.Rows.EntireRow.Hidden = False
Wie sollte der Code unter Excel 2007 verändert werden?

Gruß
fedjo

Answer 1

Hallo Karin,
die ListBox (Steuerelemente) befindet sich in einer UserForm.
Die ListBox wird unter Eigenschaften RowSource D4:D168 gefüllt,


Gruß
fedjo

Answer 2

Hi Fedjo,

das ist der Nachteil, wenn man die Aufgabenstellung nicht vollständig beschreibt - ich bin von einer ListBox im Tabellenblatt und nicht in einem UserForm ausgegangen.

Lösche den fest eingetragenen Bereich aus RowSource. Schreibe den 2. Codeteil in das Activate Ereignis des UserForms und nicht in das GotFocus Ereignis der ListBox (Wertebereich außerdem natürlich anpassen).

Bis später,
Karin

Answer 3

Hallo Karin,
es war mir bei der Aufgabenstellung nicht ganz klar welche Angaben dazu benötigt werden.

Aber es funktioniert jetzt mit deiner Hilfe unter Excel 2007 genauso wie ich mir es vorgestellt habe.

Danke für deine Unterstützung.

Gruß
fedjo