ich möchte einen Button mit einem Makro verbinden, das beim Klick die Zeilen ausblendet, deren Zellen B; FC; FR;GO leer sind.
Könnt ihr mir da helfen?
Grüße, Michael.
Rückmeldung wäre nett !!!
>>> mfg Bugs <<<
Option Explicit
Sub Hide_Spec_Empty_Cells_Rows()
Dim lr As Long
Application.ScreenUpdating = False
lr = ActiveSheet.UsedRange.Rows.Count + 1
For lr = LastRowTab To 2 Step -1
If Cells(lr, "B") & Cells(lr, "FC") & Cells(lr, "FR") & Cells(lr, "GO") = "" Then _
Rows(lr).Hidden = True
' oder
' If IsEmpty(Cells(lr, "B")) And IsEmpty(Cells(lr, "FC")) And _
IsEmpty(Cells(lr, "FR")) And IsEmpty(Cells(lr, "GO")) Then _
Rows(lr).Hidden = True
Next lr
Application.ScreenUpdating = True
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort