Ungültiger Variant-Operation?

[shmia]

Delphi-Quellcode:

      for i:=15 to 43
           do begin
                if ExcelApp.Range['B'+IntToStr(i), 'B'+IntToStr(i)].Value = FormatDateTime('dd.mm.yyyy', now)
                  then begin
                         ExcelApp.Range['G'+IntToStr(i), 'G'+IntToStr(i)].Value :=FormatDateTime('hh:nn', Time);
                         // Falsch: die Schleife arbeitet weiter und du machst Excel zu
                         ExcelApp.Save;
                         ExcelApp.Quit;
                         ExcelApp := Unassigned;  // <=== !!!
                       end;