Sub Ausblenden()
Dim loZeile As Long
With ThisWorkbook.Sheets("DeinSheet")
For loZeile = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
If .Range("D" & loZeile).Value = "" Then
.Range("D" & loZeile).EntireRow.Hidden = True
Else
.Range("D" & loZeile).EntireRow.Hidden = False
End If
Next
End With
End Sub
Für "DeinSheet" musst du den Blattnamen eintragen, für den der Code gelten soll.
Hilft das?
Ciao
Thorsten
Sub NichtbestellteZeilenausblenden()
Dim intRow As Integer, intLastRow As Integer
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 25 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 25 Step -1
If IsEmpty(Cells(intRow, 4)) Then
Rows(intRow).Hidden = True
Else
Rows(intRow).Hidden = False
End If
Next intRow
End Sub
Danke und Gruß
Nico
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen