Ich beschreib mal meine Situation.
Ich bin kurz vor der Fertigstellung des Scriptes es hackt nur noch an einer Sache. Alle Datensätze werden aus einer Access-Abfrage in ein geöffnetes Excel-Sheet übernommen. ok..
Die Felder eines Datensatz befinden sich in den richtigen Spalten.ok...
Das Problem sind nun die Zeilen. Jedes Feld des Datensatzes befindet sich in einer eigenen Zeile. mist...Wie könnte man dies korrigieren?
aktuelles Script:
'----------------------------------------------------
Option Explicit
Dim iCols As Variant
Dim cells As Variant
Dim irows As Variant
Dim name As String
Dim DB1 As Database
Dim RS1 As Recordset
Dim Querry As String
Sub CopyFromAccess_2()
Querry = "SELECT * FROM Abfrage1"
Set DB1 = OpenDatabase(ThisWorkbook.Path & "\preislisten.mdb")
Set RS1 = DB1.OpenRecordset(Querry, Type:=dbOpenDynaset)
With Worksheets("Tabelle1")
.Select
.Range("A1").CurrentRegion.Select
.Range("A1").CurrentRegion.Clear
irows = 2
While Not (RS1.EOF)
For iCols = 0 To RS1.Fields.Count - 1
.cells(irows, iCols + 1) = RS1.Fields(iCols).Value
irows = irows + 1
RS1.MoveNext
Next
Wend
End With
DB1.Close
Exit Sub
DB1.Close
End Sub
'----------------------------------------------------
Für jegliche Hilfe wäre ich äußerst dankbar.
Gruß
sz