Range definieren

[Primo Centurio]

Hallo zusammen,

ich habe eine Frage betreffend dem zuweisen eines Ranges.

Code:

Set rnglist = Worksheets("Stammdaten").Range("A1:D40")

So funktioniert es wunderbar, nun habe ich mich gefragt ob es eine Möglichkeit gibt den Bereich auch mit .Cells() anzugeben.

Code:

Set rnglist = Worksheets("Stammdaten").Range(.Cells(1, 1), .Cells(3, 3))

Die Fehlermeldung zeigt an "Fehler beim kompilieren: Unzulässiger oder nicht ausreichen definierter Verweis"

Kann mir da jemand helfen?

VG Primo

[26865]

Code:

With Worksheets("Stammdaten")
   Set rnglist = .Range(.Cells(1, 1), .Cells(3, 3))
End With

Ach ja: Vor Range muss übrigens kein Punkt stehen, darf aber.

[HKindler]

Noch eine Möglichkeit:

Code:

Set rnglist = Worksheets("Stammdaten").Cells(1, 1).Resize(3, 3)

oder nach deinem Beispiel mit Range("A1:D40")

Code:

Set rnglist = Worksheets("Stammdaten").Range("A1").Resize(40, 4)

oder wenn deine Liste korrekt aufgebaut ist (also einen zusammenhängenden Datenbereich bildet):

Code:

Set rnglist = Worksheets("Stammdaten").Range("A1").CurrentRegion

oder wenn du im Grunde das ganze Blatt brauchst

Code:

Set rnglist = Worksheets("Stammdaten").UsedRange

[Primo Centurio]

Danke @EarlFred und @HKindler für die Lösungen :)

[HKindler]

gelöscht,

falscher Thread....