Kompliziertes Makro vereinfachen
29.08.2016 10:34:06
Moritz
Ich habe eine Frage bzgl. Zellen ausblenden.
Ich habe mir folgendes Makro geschrieben.
So funktioniert es zwar sehr gut, aber geht dass evtl auch einfacher oder mit einem kürzerem Code?
Vielen Dank für eure Hilfe
Liebe Grüße Moritz
Sub leer()
If IsEmpty(Range("D25")) Then
Rows("25:43").Hidden = True
End If
If IsEmpty(Range("D26")) Then
Rows("26:43").Hidden = True
End If
If IsEmpty(Range("D27")) Then
Rows("27:43").Hidden = True
End If
If IsEmpty(Range("D28")) Then
Rows("28:43").Hidden = True
End If
If IsEmpty(Range("D29")) Then
Rows("29:43").Hidden = True
End If
If IsEmpty(Range("D30")) Then
Rows("30:43").Hidden = True
End If
If IsEmpty(Range("D31")) Then
Rows("31:43").Hidden = True
End If
If IsEmpty(Range("D32")) Then
Rows("32:43").Hidden = True
End If
If IsEmpty(Range("D33")) Then
Rows("33:43").Hidden = True
End If
If IsEmpty(Range("D34")) Then
Rows("34:43").Hidden = True
End If
If IsEmpty(Range("D35")) Then
Rows("35:43").Hidden = True
End If
If IsEmpty(Range("D36")) Then
Rows("36:43").Hidden = True
End If
If IsEmpty(Range("D37")) Then
Rows("37:43").Hidden = True
End If
If IsEmpty(Range("D38")) Then
Rows("38:43").Hidden = True
End If
If IsEmpty(Range("D39")) Then
Rows("39:43").Hidden = True
End If
If IsEmpty(Range("D40")) Then
Rows("40:43").Hidden = True
End If
If IsEmpty(Range("D41")) Then
Rows("41:43").Hidden = True
End If
If IsEmpty(Range("D42")) Then
Rows("42:43").Hidden = True
End If
End Sub
Anzeige