Thema Datum  Von Nutzer Rating
Antwort
29.01.2018 11:02:49 Lopal
NotSolved
29.01.2018 12:20:02 Uwe
NotSolved
29.01.2018 14:13:49 Lopal
NotSolved
29.01.2018 14:16:00 Uwe
NotSolved
Rot Do until Schleife
 29.01.2018 14:54:57 Uwe
NotSolved
29.01.2018 15:29:47 Gast31638
NotSolved
29.01.2018 15:42:35 Uwe
NotSolved
29.01.2018 15:45:44 Uwe
NotSolved
29.01.2018 15:54:21 Lopal
NotSolved
29.01.2018 15:56:56 Uwe
NotSolved
29.01.2018 16:13:37 Lopal
NotSolved
29.01.2018 20:06:45 Uwe
Solved
29.01.2018 22:54:18 Lopal
Solved

Ansicht des Beitrags:
Von:
Uwe		 Datum:
29.01.2018 14:54:57		 Views:
632		 Rating:
     
Antwort:
  Ja
Thema:
Do until Schleife

Haber gerade gesehen, dass du das Set nur einmal am Anfang stehen hast.

Es muss allerdings sowohl am Anfang gesetzt werden, als auch am Ende der Loop entsprechend auch wieder gesetzt werden.

z.Bsp. so:

Sub Baumdurchmesser()
    
Dim rngCell As Excel.Range
Dim blnErr As Boolean
Dim n As Long
  
'um diese Zelle geht's
Set rngCell = Worksheets("Tabelle1").Range("B1")
  
On Error GoTo Final
'...
    'dein Code
'...
'Loop solange rngCell nicht leer ist
Do While rngCell <> ""
    '...
    'dein Code
    '...
    '...
    'am Ende des Loop
    Set rngCell = rngCell.Offset(0, 1)  'rngCell um Offset(Zeile,Spalte) versetzen
Loop

End Sub

 

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
29.01.2018 11:02:49 Lopal
NotSolved
29.01.2018 12:20:02 Uwe
NotSolved
29.01.2018 14:13:49 Lopal
NotSolved
29.01.2018 14:16:00 Uwe
NotSolved
Rot Do until Schleife
 29.01.2018 14:54:57 Uwe
NotSolved
29.01.2018 15:29:47 Gast31638
NotSolved
29.01.2018 15:42:35 Uwe
NotSolved
29.01.2018 15:45:44 Uwe
NotSolved
29.01.2018 15:54:21 Lopal
NotSolved
29.01.2018 15:56:56 Uwe
NotSolved
29.01.2018 16:13:37 Lopal
NotSolved
29.01.2018 20:06:45 Uwe
Solved
29.01.2018 22:54:18 Lopal
Solved