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
|