Thema Datum  Von Nutzer Rating
Antwort
07.04.2021 14:36:38 VBARookie
NotSolved
07.04.2021 15:30:33 Gast52188
NotSolved
07.04.2021 15:35:53 VBARookie
NotSolved
Blau Schleife in VBA - Werte in bestimmten Rhythmus erfassen
 07.04.2021 19:33:14 Gast16629
*****
Solved
08.04.2021 10:12:11 VBARookie
NotSolved

Ansicht des Beitrags:
Von:
Gast16629		 Datum:
07.04.2021 19:33:14		 Views:
524		 Rating:
     
Antwort:
 Nein
Thema:
Schleife in VBA - Werte in bestimmten Rhythmus erfassen		 
Sub XXX()
  
  Dim Datum As Variant
  Dim Fundstelle As Range
  
  Datum = Worksheets("Kalender").Range("C2").Value  'Wert auslesen
  
  Do
    Set Fundstelle = Worksheets("Kalender").Range("A1:A365").Find(Datum, LookIn:=xlValues, LookAt:=xlWhole) 'nach Wert suchen
    
    If Fundstelle Is Nothing Then
      Exit Do
    End If
    
    Fundstelle.Offset(0, 1).Value = Worksheets("Kalender").Range("D2").Value
    
    If Int(Worksheets("Kalender").Range("E2").Value) > 0 Then
      Datum = DateAdd("d", Int(Worksheets("Kalender").Range("E2").Value), Datum)
    Else
      Exit Do
    End If
  Loop
  
End Sub

Verläßt die Schleife sobald nichts mehr gefunden wurde.

Falls es manche Daten in der Liste nicht gibt - deinem Beispiel folgend z.B. 01.01.2021 / 15.01.2021 / 29.01.2021 - und du dennoch alle anderen berücksichtigen haben willst, dann könntest du die Schleife über die Bedingung, dass sich das Jahr in Datum ändert, verlassen (anstatt Fundstelle Is Nothing).

 

Grüße

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
07.04.2021 14:36:38 VBARookie
NotSolved
07.04.2021 15:30:33 Gast52188
NotSolved
07.04.2021 15:35:53 VBARookie
NotSolved
Blau Schleife in VBA - Werte in bestimmten Rhythmus erfassen
 07.04.2021 19:33:14 Gast16629
*****
Solved
08.04.2021 10:12:11 VBARookie
NotSolved