Error: Could not convert variant of type(String) into...

[Borschti]

Hi,

ich habe gerade ein Problem mit dem exportieren von Daten aus Excel. und zwar möchte ich abfragen ob der Wert in der Zelle X.X den Wert '' hat. Ich denke mal das ich auf einen leeren String abfragen muss da ich das eigentlich mit den anderen Zellen auch so mache und es funktioniert habe es auch schon mit NIL probiert aber es funktioniert nicht.

Hier ist mal mein Code:

Delphi-Quellcode:

  if (Worksheet.Cells.Item[activeRow + 1, 12].Value <> '0') and (isZero = false) then
    begin
      if Worksheet.Cells.Item[activeRow + 1, 12].Value <> '' then //Hier kommt der Fehler
        begin
          bsLfdNr1 := Worksheet.Cells.Item[activeRow + 1, 12].Value;
          bsAP1 := Worksheet.Cells.Item[activeRow + 1, 13].Value;
          bsFunktion1 := Worksheet.Cells.Item[activeRow + 1, 14].Value;
          bsTelNr1 := Worksheet.Cells.Item[activeRow + 1, 15].Value;
          bsFaxNr1 := Worksheet.Cells.Item[activeRow + 1, 16].Value;
          bsEMail1 := Worksheet.Cells.Item[activeRow + 1, 17].Value;

          bsAPCount := 2;
          isZero := true;
        end;
    end;

Die Fehlermeldung lautet 'Could not convert variant of type(String) into typ(Double)'. habe meine If-Abfrage auch schon ein paar mal umgestellt aber der Fehler bleibt, in der Zelle die ich abfrage steht der Wert 1.

Woran kann das liegen? Was kann ich ändern damit der Fehler nicht mehr auftaucht?

VG Alex