Lizenzmanagement
03.08.2022 11:50:57
Janine
ich habe ein klein/großes Problem.
Ich habe meine Tabelle mit unseren Kundenlizenzen. Wir pflegen also händisch die Lizenzen und Laufzeiten derer in einer stinknormalen Exceltabelle. Um uns einiges zu erleichtern und wir nicht auslaufende Lizenzen verpassen, würde ich gerne eine E-Mail Benachrichtigung erstellen. Dafür habe ich mithilfe des Ablaufdatum die Restlaufzeit in Tagen rechnen lassen. Wenn die Tage unter Gibt es eine Lösung das schöner zu lösen? Wie gesagt ist aus mehreren Codes zusammengebastelt und teilweise weiß ich auch gar nicht, was ich da gemacht habe :-D
Falls es hilft kann ich natürlich auch eine Testdatei hochladen die aufgebaut ist wie unsere.
anbei mal der Code:
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Dim strPfad As String
Dim strDatei As String
Dim outObj As Object
Dim Mail As Object
strPfad = "C:\Temp"
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 9).Value