Guten Abend

Ich möchte das folgende Zeilen sich automatisch erweitern sobald in der oberen Zeile etwas steht und dies Zeile für Zeile

Es würde folgende Zeilen betreffen:

19-27 / 34-42 / 49-57 / 70-78

Dies konnte ich mit VBA programmieren, das Problem ist das es nun jedesmal über 30 Sekunden benötigt um alle "if's" durchzurechenen (108 Stück).

Gäbe es eventuell eine kürzere Variante das dies nicht so lange geht?

Hier das Beispiel wie ich es bei 19-27 gelöst habe:

 If IsEmpty(Range("A18").Value) = False Then
  Rows("19").Hidden = False
 End If
 If IsEmpty(Range("A18").Value) = True Then
  Rows("19").Hidden = True
 End If
 If IsEmpty(Range("A19").Value) = False Then
  Rows("19").Hidden = False
  End If
 If IsEmpty(Range("A19").Value) = False Then
  Rows("20").Hidden = False
 End If
 If IsEmpty(Range("A19").Value) = True Then
  Rows("20").Hidden = True
 End If
 If IsEmpty(Range("A20").Value) = False Then
  Rows("20").Hidden = False
 End If
 If IsEmpty(Range("A20").Value) = False Then
  Rows("21").Hidden = False
 End If
 If IsEmpty(Range("A20").Value) = True Then
  Rows("21").Hidden = True
 End If
 If IsEmpty(Range("A21").Value) = False Then
  Rows("21").Hidden = False
 End If
 If IsEmpty(Range("A21").Value) = False Then
  Rows("22").Hidden = False
 End If
 If IsEmpty(Range("A21").Value) = True Then
  Rows("22").Hidden = True
 End If
 If IsEmpty(Range("A22").Value) = False Then
  Rows("22").Hidden = False
 End If
 If IsEmpty(Range("A22").Value) = False Then
  Rows("23").Hidden = False
 End If
 If IsEmpty(Range("A22").Value) = True Then
  Rows("23").Hidden = True
 End If
 If IsEmpty(Range("A23").Value) = False Then
  Rows("23").Hidden = False
 End If
 If IsEmpty(Range("A23").Value) = False Then
  Rows("24").Hidden = False
 End If
 If IsEmpty(Range("A23").Value) = True Then
  Rows("24").Hidden = True
 End If
 If IsEmpty(Range("A24").Value) = False Then
  Rows("24").Hidden = False
 End If
 If IsEmpty(Range("A24").Value) = False Then
  Rows("25").Hidden = False
 End If
 If IsEmpty(Range("A24").Value) = True Then
  Rows("25").Hidden = True
 End If
 If IsEmpty(Range("A25").Value) = False Then
  Rows("25").Hidden = False
 End If
 If IsEmpty(Range("A25").Value) = False Then
  Rows("26").Hidden = False
 End If
 If IsEmpty(Range("A25").Value) = True Then
  Rows("26").Hidden = True
 End If
 If IsEmpty(Range("A26").Value) = False Then
  Rows("26").Hidden = False
 End If
 If IsEmpty(Range("A26").Value) = False Then
  Rows("27").Hidden = False
 End If
 If IsEmpty(Range("A26").Value) = True Then
  Rows("27").Hidden = True
 End If
 If IsEmpty(Range("A27").Value) = False Then
  Rows("27").Hidden = False
 End If
Danke schon im voraus für die Hilfe.

freundliche Grüsse

Daniel Bischoff