Hallo,

weiss jemand, wie ich ein Range-Bereich automatisch bestimmen kann ?

Ich möchte gern die range mit dem Wert aus rs.Fields(intI).Value und die Spaltenanzahl einer Access-Datenbank bestimmen.

Quasi ungefähr so:

rs.MoveFirst
Do
intSpalte = 1
For intI = 0 To rs.Fields.Count - 1
VBAProject.Sheet1.Cells(intZeile, intSpalte) = rs.Fields(intI).Value
intSpalte = intSpalte + 1
Next intI
rs.MoveNext
intZeile = intZeile + 1
Loop Until rs.EOF = True

Range("intZeile:intSpalte").Select 'So ungefähr dachte ihcs mir, aber es geht leider mit verschiedenen rumprobieren nicht :((

Vielen vielen Dank !!!!!!!