Thema Datum  Von Nutzer Rating
Antwort
14.10.2019 11:35:06 Gangerl
Solved
14.10.2019 12:02:03 Werner
NotSolved
14.10.2019 12:12:49 Mase
NotSolved
14.10.2019 12:25:22 Gast16511
NotSolved
14.10.2019 12:26:51 Gangerl
NotSolved
Blau Schleifenprogrammierung
 14.10.2019 12:39:45 Mase
NotSolved
14.10.2019 15:32:34 Gangerl
NotSolved
14.10.2019 15:57:52 Mase
Solved
14.10.2019 19:41:44 Gangerl
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
14.10.2019 12:39:45		 Views:
526		 Rating:
     
Antwort:
  Ja
Thema:
Schleifenprogrammierung

ActiveCell ist immer die aktive Zelle.

Der ELSE-Zweig kommt nur dann zum tragen, wenn die IF-Bedingung [u]nicht[/u] WAHR ist.

'Mach so lange bis Zeile = ActiveSHeet.UsedRange.Rows.count
Do Until Zeile = ActiveSheet.UsedRange.Rows.Count
'prüfe, ob aktive Zelle = ""
If ActiveCell.Value = "" Then
'wenn das Wahr ist, dann markiere die komplette Zeile in der sich die aktive Zelle befindet; nichts weiter (!)
Selection.EntireRow.Select
'wenn das nicht wahr ist, dann selektiere die Zelle eine Zeile unterhalb der aktiven Zelle in derselben Spalte
Else
 ActiveCell.Offset(1, 0).Select
End If
Zeile = Zeile + 1
Loop

 

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
14.10.2019 11:35:06 Gangerl
Solved
14.10.2019 12:02:03 Werner
NotSolved
14.10.2019 12:12:49 Mase
NotSolved
14.10.2019 12:25:22 Gast16511
NotSolved
14.10.2019 12:26:51 Gangerl
NotSolved
Blau Schleifenprogrammierung
 14.10.2019 12:39:45 Mase
NotSolved
14.10.2019 15:32:34 Gangerl
NotSolved
14.10.2019 15:57:52 Mase
Solved
14.10.2019 19:41:44 Gangerl
NotSolved