wir würde ein Makro aussehen, welches alle Zeilen ausblendet (nicht löscht) bei denen in Spalte D nichts eingetragen ist ?
Danke und Gruß
Nico
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