String mit Variants zusammebsetzen

[mrx]

Hallo,

ich möchte einen String und ein Variant zusammenbasteln.
Dazu verwende ich folgenden Code, bekomme aber immer ein Type Mismatch Fehler was mache ich falsch?

Dim s as Variant

s = "Auftrag Nr. "
s = s + doc.GetItemValue("hdNr")
xlSheet.Cells(1,1).Value = s

Gruß
Malte.

[Performance]

das sind aber beide variants...

Dim s as string
dim s1 as variant
s = "Auftrag Nr. "
s1 = doc.GetItemValue("hdNr")
s = s + s1(0)
xlSheet.Cells(1,1).Value = s


cu

[Axel]

Hi,

versuch's mal so:

Dim s as String
s = "Auftrag Nr. "
s = s & doc.hdNr(0)
xlSheet.Cells(1,1).Value = s


Axel