Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile mit bestimmten Kriterium ausblenden



Excel-Version: 10.0 (Office XP)

Betrifft: Zeile mit bestimmten Kriterium ausblenden
von: BeZu
Geschrieben am: 07.06.2002 - 14:22:40

Hi Excel-Fans,
ich wäre für eine kurzfristige Antwort sehr dankbar, da ich gerade im Office an einem Excel-Problem sitze:

Ich habe eine Tabelle namens "05.06.02", in der in der Spalte N je Zeile eines der Kriterien E, W, C, S, U, M, X, V steht.

Alle Zeilen, die S, U, M, X, V enthalten, sollen ausgeblendet werden. Nachfolgender Versuch meinerseits funktioniert nicht. Bin VBA-Anfänger.

Private Sub Nicht_relevante_Projekte_ausblenden()
Worksheets("05.06.02").Activate
Rows(13).Select
If Cells("S,U,M,X,V") Then
Selection.EntireRow.Hidden = True
End If
End Sub

Fehlermeldung: Laufzeitfehler 13; Fehler liegt gemäß Debuggen in If-Zeile: "Typen unverträglich".

Danke f.d. Hilfe.

Bernd :-(




  

Re: Zeile mit bestimmten Kriterium ausblenden
von: MikeS
Geschrieben am: 07.06.2002 - 14:48:31

Hallo Bernd,

probier mal das...


Private Sub Nicht_relevante_Projekte_ausblenden()
    Application.ScreenUpdating = False
    Dim Zelle As Range
    Dim Bereich As Range
    Set Bereich = Range("N1:N20") 'zu prüfender Bereich
    Worksheets("05.06.02").Activate

    For Each Zelle In Bereich
        If Zelle.Value = "S" Or Zelle.Value = "U" Or _
        Zelle.Value = "M" Or Zelle.Value = "X" Or _
        Zelle.Value = "V" Then
        Rows(Zelle.Row).Hidden = True
        End If
    Next Zelle

    Application.ScreenUpdating = True
End Sub

Klappt`s so?

Ciao Mike

  

alle Zeilen einblenden
von: MikeS
Geschrieben am: 07.06.2002 - 15:12:43

Hallo Bernd,

zum einblenden aller Zeilen nimm:


Private Sub Nicht_relevante_Projekte_einblenden()
    Application.ScreenUpdating = False
        ActiveSheet.Rows.Hidden = False
    Application.ScreenUpdating = True
End Sub

Ciao MikeS

  

Re: Zeile mit bestimmten Kriterium ausblenden
von: Bernd
Geschrieben am: 07.06.2002 - 15:40:33

Hallo Mike,
dein Makro funktioniert einwandfrei. Super. Danke!!!

Bernd


  

Re: alle Zeilen einblenden
von: Bernd
Geschrieben am: 07.06.2002 - 15:48:07

Mike,
kannst du Gedanken lesen?
Genau an diesem Problem knabbere ich gerade. Ich geh jetzt in ein Meeting bis 5 Uhr, danach baue ich es ein und gebe dir feedback.
Du bist echt super!

Ciao
Bernd


  

Re: alle Zeilen einblenden
von: Bernd
Geschrieben am: 07.06.2002 - 17:42:10

Mike,
einblenden klappte natürlich auch problemlos.

Schönes Wochenende! Ich werde weiter am VBA-Buch lesen und üben.

Grüße

Bernd


 

Beiträge aus den Excel-Beispielen zum Thema "Zeile mit bestimmten Kriterium ausblenden"