✔ vb6: daten in excel übertragen

[michaelhofer]

hallo!
beschäftige mich seit längerem mit excel und vb! also wie man mit vb6 registerblätter zellen usw anspricht!

Nun hab ich bei folgendem Code ein Problem:

Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
Dim intZeilen As Integer
-----------------------------------
sub ok_click()

If chkKonto.Value = 1 Then

xlApp = New Excel.Application
xlApp.Visible = False
xlMappe = _
xlApp.Workbooks.Open("C:\test.xls")
xlBlatt = xlMappe.Worksheets(1)
xlZelle = xlBlatt.Range("A1")
intZeilen = xlZelle.CurrentRegion.Rows.Count
xlZelle.Offset(intZeilen, 0).Value = intZeilen
xlZelle.Offset(intZeilen, 1).Value = Date
xlZelle.Offset(intZeilen, 2).Value = _
txtName.Text
xlZelle.Offset(intZeilen, 3).Value = txtGeld.Text
xlMappe.Save
xlMappe.Close
xlApp.Quit
End If

end sub
----------------------------------

so wenn ich die sub ausführe kommt folgende Fehlermeldung:
ungültige Verwendung einer Eigenschaft!

was mach ich falsch? helft mir bitte

danke & mfg
michael

 

[michaelhofer]

Danke, hat sich erledigt

Habe "Set" vergessen

MFG
Michael