AW: Noch offen. Kläre erst mal was du machen willst
06.09.2010 22:42:51
Ramses
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
