Zeilen in Abängigkeit ausblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
"...Ich will doch nur die zahlen 3 und 4 automatisch weg haben.."
Und was ist mit der 5 ?
"...weil in Spalte J dadrunter nicht steht. ..:"
In deiner Beispieldatei steht nirgends was.
"....3 und 4 = Überschriften ..:"
Steht das auch in deiner Datei so ?
"...1,2,3,4,5,6,7, usw 50 = Überschriften ..:"
Und was soll mit dem Rest passieren ? Also 4 und höher ?
Deine Frage bzw. deine Beschreibung, lässt doch keine Lösung zu, aber um das ganze jetzt mal für mich abzuschliessen, basierend auf
"...Ich will doch nur die zahlen 3 und 4 automatisch weg haben weil in Spalte J dadrunter nicht steht. ..:"
dann funktioniert folgendes

Sub ZeilenAusblenden()

    Dim lngZeile As Long
    Dim DatSp As Long
    Dim MaxDatenZeile As Long
    Dim myHide As Boolean
    myHide = False
    ' Start Zeile *** ANPASSEN ***
    StZeile = 15
    ' Spalte wo die "Überschriften" stehen.
    '*** ANPASSEN ***
    DatSp = 2 '2 = B
    ' Maximale Daten Zeile in DatSp Ermitteln, Leerzeilen können auch dazwischen sein.
    MaxDatenZeile = ActiveSheet.Cells(Rows.Count, DatSp).End(xlUp).Row
    For lngZeile = MaxDatenZeile To StZeile Step -1
        If Cells(lngZeile, DatSp) = 1 Then
            'nichts machen
            myHide = True
        End If
        If Cells(lngZeile, DatSp) = 2 Then
            'wenn 2 prüfen ob in J was steht
            If Cells(lngZeile, 10) = "" Then
                'wenn nicht, Zeile ausblenden
                Rows(lngZeile).Hidden = True
                myHide = True
            End If
        End If
        If myHide = False Then
            'Der Rest wird abgehandelt
            Select Case Cells(lngZeile, DatSp)
                Case Is <= 50
                    Rows(lngZeile).Hidden = True
            End Select
        End If
        'Zurücksetzen
        myHide = False
    Next lngZeile
End Sub

Damit werden alle Zeilen in denen 1 steht nicht ausgeblendet, 2 nur dann nicht, wenn in Spalte J was steht, alle anderen Überschriften werden ohne Prüfung ausgeblendet
Das war deine Anforderung,.... aber ich glaube nicht dass du das so haben willst.
Gruss Rainer

Hallo

Option Explicit

Sub ZeilenAusblenden()
    Dim lngZeile As Long, stZeile As Long, i As Long
    Dim endRow As Long
    Dim DatSp As Long
    Dim MaxDatenZeile As Long
    ' Start Zeile *** ANPASSEN ***
    stZeile = 16
    ' Spalte wo die "Überschriften" stehen.
    '*** ANPASSEN ***
    DatSp = 2 '2 = B
    ' Maximale Daten Zeile in DatSp Ermitteln, Leerzeilen können auch dazwischen sein.
    MaxDatenZeile = ActiveSheet.Cells(Rows.Count, DatSp).End(xlUp).Row
    For lngZeile = stZeile To MaxDatenZeile
        If IsNumeric(Cells(lngZeile, DatSp)) And Cells(lngZeile, 10) = "" Then
            For i = 1 To MaxDatenZeile
                If IsNumeric(Cells(lngZeile + i, DatSp)) Then
                    endRow = i - 1
                    Exit For
                End If
            Next i
            Rows(lngZeile & ":" & lngZeile + endRow).Hidden = True
        End If
    Next
End Sub

Wenn in Spalte J der Überschrift nichts steht, wird die Überschrift und alle nachfolgenden Zeilen bis zur nächsten Überschrift ausgeblendet.
Da mir das ganze nun schon etwas zu lange dauert und immer noch nicht klar ist, klinke ich mich jetzt aus
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Zeilen in Abängigkeit ausblenden

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread