ich bin mit meinem Latein (nee mit meinem VBA) am Ende.
Ich hab eine Mitgliederliste und hier drin unter anderem einen Code für das Löschen von Zeilen, wenn das Austrittsdatum des Mitglieds erreicht ist. Das funktioniert auch super. Jetzt möchte ich aber, dass vor dem endgültigen Löschen eine MsgBox mit den zu löschenden Namen erscheint und erst bei betätigen der OK Fläche der Löschbefehl ausgeführt wird.
Ich muss die Mitglieder nämlich auch in meinem Outlook Kontakte Ordner löschen. Wenn sie in der Tabelle aber erst mal weg sind geht das nicht mehr.
Oder kann man den Kontakteordner auch direkt aus Excel ansprechen und die Namen dort entfernen lassen? Das wäre dann das Sahnehäubchen.
Einen lieben Gruß,
Steffan
PS Hier der Löschcode den ich geschrieben habe:
' Mitglieder nach Erreichen des Austrittsdatums löschen
lR = 2 ' Erste Zeile für den Beginn der Suche
Do Until IsEmpty(Cells(lR, iNn)) ' Suche bis in NAME kein Name mehr steht
If IsDate(Cells(lR, iAus)) And Cells(lR, iAus) <> "" Then ' Abfrage, ob in AUSTRITT ein Datum steht und das Feld nicht leer ist
If CDate(Cells(lR, iAus)) <= Now Then Rows(lR).Delete ' Wenn Austrittsdatum vor HEUTE liegt wird Zeile gelöscht
End If
lR = lR + 1
Loop