Von Access Excel an das Ende der Spalte

[Gerald01]

Hallo,

ich habe grade diesen Code ausprobiert um Daten von Access in eine bestimmte Excel Vorlage zu bekommen.

    Dim wbook1 As New Excel.Application
Dim wert As String

'ließt den wert aus einem feld
wert = "blabla"

'nächste zeile öffnet die datei
wbook1.Workbooks.Open ("d:\gewinner.xls")
wbook1.Visible = True

'nächste zeile schreibt den wert in den excelsheet
'für X musst du die Zeile, für Y die spalte eintragen. beides müssen Zahlen sein, also für die
'spalten gilt a=1, b=2...
wbook1.ActiveWorkbook.ActiveSheet.cells(5, 1) = wert



Das klappt auch ganz gut. Nun möchte ich aber die Daten nicht in Zelle A5 haben sondern IMMER an das Ende der Datensätze in der Spalte.
Wie kriege ich das hin?

[Hondo]

Hallo,
Dim As New musst du vermeiden.
Trenne es bitte wie folgt:
Dim wbook1 As Excel.Application
Set wbook1 = New Excel.Application

Wenn ich dich richtig verstehe möchtest du Daten aus der letzten ausgefüllten Zeile haben.
Diese bekommst du mittels: ActiveSheet.UsedRange.rows.Count

Gruß Andreas

[Gerald01]

Nicht ganz richtig. Ich möchte das immer an das Ende der Spalte gespeichert wird.

[Hondo]

Hallo,
na dann nimm statt rows einfach cols
ActiveSheet.UsedRange.cols.Count

Andreas