Hi,
ich habe ein eindimesionales Array dessen ca. 5 Werte (01234) ich in
_eine_ Zelle schreiben will.
Um in Excel zu schreiben habe ich folgende Sub geschrieben:
Private Sub ExcelAusgabe(ByVal Wert() As Integer)
Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
Dim intZeilen As Integer
Dim EigDat As String
'Pfad zu den eigenene Dateien hier ablegen.
EigDat =
Environment.GetFolderPath(Environment.SpecialFolde r.Personal)
xlApp = New Excel.Application
xlApp.Visible = True
xlMappe = _
xlApp.Workbooks.Open(EigDat & "\MMSBest.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 = Now()
'Hier liegt das Problem, oder?
xlZelle.Offset(intZeilen, 2).Value = Wert
xlMappe.Save()
xlMappe.Close()
xlApp.Quit()
End Sub
Alles klappt bis auf den Fehler das in der entsprechenden Zelle für
"Wert" statt "01234" nur "0" steht.
Jemand ne Idee??