|
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
|