Office: Termin - Schleife muss 3 mal durchlaufen werden :(

Hallo Leute, wollt nen Script schreiben, was meine Termine durchsucht, die Nummern ausliest und ggf. nen String hinten anfügt. Da es scheinbar keine Update- Funktion für Termine gibt, musste ich das Script so gestalten, dass beim richtigen Paramter der Termin gelöscht wird, und mit dem zuvor gespeicherten .Body wieder erstellt wird, mit dem unterschied, dass neben der gerade aufegerufenen Nummer nenString angefügt wird.

Soweit läufts, nur mit dem handicap, dass ich die schleife 3- mal durchlaufen muss, damit das Ergebnis meinen vorstellungen entspricht

Der Code mal im Attach. Ach so, hab noch nen Beispiel Termin als .ics im ZIP angefügt!

Vielen Dank im Voraus. dennis

 

Hat denn keiner eine Idee? Bin mittlerweile ratlos und hab keine Ideen mehr. Bin jetzt soweit, dass ich weiss, dass die Anzahl der Items im Calendar bei der For Each Schleife bei jedem durchlauf erneuert wird. Ich weiss aber nicht, wie ich das umgehen kann.

Auch weiss ich nicht, warum er mir den zu erstellenden Termin mehrfach erstellt.

Brauche dringend Hilfe - ich werd noch verrückt.

lg

 

Danke, für die Hilfe :evil:

Bin per Ausprobieren auf die Lösung gestoßen und hab festgestellt, dass ich den Termin, mehr oder weniger doch "updaten" kann. Hab mithilfe einer Stringvariable den Body kopiert, anschließend verändert und in der veränderten Version überschrieben. Das sieht dann wie folgt aus:


If UBound(aPNR()) = UBound(aAFTRGNR()) Then
For i = UBound(aAFTRGNR()) To 0 Step -1

sAFTRGNR = aAFTRGNR(i)
sPNR = aPNR(i)

If (InStr(.Body, vbNewLine & sAFTRGNR & "-" & sPNR & " *" & vbNewLine) = 0) Then

sTBody = .Body 'Die Stringvariable, die den Body kopiert

lPos = InStr(sTBody, sAFTRGNR & "-" & sPNR)
nPos = InStr(lPos, sTBody, vbLf)

sBodyTeil1 = Left(sTBody, nPos)
sBodyTeil2 = Right(sTBody, (Len(sTBody) - (nPos)))


'Gib Probennummern als Termininhalt aus!
.Body = Mid(sBodyTeil1, 1, Len(sBodyTeil1) - 2) & " *" & vbNewLine & sBodyTeil2
.Save

End If
Next i

Else: iError = MsgBox("Fehler in der Summenprüfung. Bitte dem Systemadministrator melden.",_
1 + vbExclamation, "Kritischer Fehler!")

End If