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

Ansicht des Beitrags:
Von:
VBARookie
Datum:
07.04.2021 14:36:38
Views:
147
Rating: Antwort:
  Ja
Thema:
Schleife in VBA - Werte in bestimmten Rhythmus erfassen

Ich werde probieren mein Problem anhand eines vereinfachten Beispiels zu erklären:
Sagen wir ich habe ein Tabellenblatt "Kalender" auf dem alle Daten des Jahres 2021 (TT.MM.JJJJ) stehen 
--> A1 = 01.01.2021          A365 = 31.01.2021 
 
Nun habe ich ein Eingabefeld erstellt: in C2 soll Datum in dem Bereich stehen und in D2 eine Bezeichnung. VBA soll dann das Datum aus C2 raussuchen und rechts daneben soll die Bezeichnung aus D2 rein.

Soweit so gut - das wäre mein (vereinfachter) Code dafür:
 
Sub XXX ()

Dim Datum as Variant
Dim Fundstelle as Range

Datum = Worksheets("Kalender").Range("C2"). Value 'Wert auslesen

Set Fundstelle = Worksheets("Kalender").Range("A1:A365").Find(Datum, LookIn:=xlValues, LookAt:=xlWhole 'nach Wert suchen


if not fundstelle is nothing then

   fundstelle.offset(0,1).value = Worksheets("Kalender") .Range("D2")
   

else

   msgbox "der Wert " & wert & " wurde nicht gefunden."

endif
 

end sub

 


Wie könnte man den modifizieren sodass ich in die Zelle E2 z.B. einen Rhythmus von 14 Tagen eingebe, sodass diese Bezeichnung sich vom ersten Datum aus zwei wöchig wiederholt. (z.B 01.01.2021 "Termin X"; 15.01.2021 "Termin X"; 29.01.2021, usw.)

Ich hatte da an eine Schleife gedacht und auch probiert mich einzulesen, erscheint mir doch recht komplex auf meinen Fall bezogen.

Hätte da jemand eine Idee für mich?


Besten Dank und Liebe Grüße
VBARookie 


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