Zelen löschen, wenn String nicht enthalt
19.09.2022 14:41:14
grays
ich habe meinen Outlook Kalender mit VBA importiert und möchte jetzt nach einem Gewissen Organisator (im Code-Beispiel "Schmidt") filtern. Sollte der Organisator ungleich Schmidt sein, soll die ganze Zeile gelöscht werden. Leider klappt das nicht so ganz...
Unten mein Code:
For Each apt In apl.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items
datspalter = Split(apt.start, " ")
organisator = Split(apt.GetOrganizer, "/")
If datspalter(0) >= start Then
If datspalter(0) i = i + 1
.Cells(i, 1) = apt.Subject
.Cells(i, 2) = datspalter(0)
.Cells(i, 3) = organisator(2)
If Cells(i, 3) "Schmidt" Then
Cells(i).Delete
kann mir hier einer weiterhelfen?