Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen Ausblenden
21.01.2023 19:23:37 Daniel Bischoff
NotSolved
21.01.2023 20:24:20 ralf_b
NotSolved
21.01.2023 22:10:06 Gast84446
NotSolved
22.01.2023 08:44:02 Daniel Bischoff
NotSolved
22.01.2023 10:48:07 ralf_b
NotSolved
22.01.2023 12:33:09 Daniel Bischoff
NotSolved
22.01.2023 14:09:19 ralf_b
NotSolved
22.01.2023 15:08:19 ralf_b
*****
NotSolved
22.01.2023 15:17:41 Daniel Bischoff
Solved

Ansicht des Beitrags:
Von:
Daniel Bischoff
Datum:
21.01.2023 19:23:37
Views:
39
Rating: Antwort:
  Ja
Thema:
Zeilen Ausblenden

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen Ausblenden
21.01.2023 19:23:37 Daniel Bischoff
NotSolved
21.01.2023 20:24:20 ralf_b
NotSolved
21.01.2023 22:10:06 Gast84446
NotSolved
22.01.2023 08:44:02 Daniel Bischoff
NotSolved
22.01.2023 10:48:07 ralf_b
NotSolved
22.01.2023 12:33:09 Daniel Bischoff
NotSolved
22.01.2023 14:09:19 ralf_b
NotSolved
22.01.2023 15:08:19 ralf_b
*****
NotSolved
22.01.2023 15:17:41 Daniel Bischoff
Solved