Zeilen in Abängigkeit ausblenden

Otto · 1970-01-01T00:00:00+00:00

Hallo Zusammen, Hoffe Ihr könnt mir Helfen wie bekomme ich es nun hin das auch die 3,4 und 5 gelöscht werden sobald in dieser Grupe bei Spalte J kein Wert steht ? https://www.herber.de/bbs/user/71406.xls Vielen Dank euch schon mal.

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

Zeilen in Abängigkeit ausblenden

Forumthread: Zeilen in Abängigkeit ausblenden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zeilen in Abängigkeit ausblenden

Forumthread: Zeilen in Abängigkeit ausblenden

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread