set Range läuft nicht

[StefKe]

Hallochen allerseits, kennt von euch Könnern wer die Lösung:

Code:

dim rngGesamt as Range
dim lngLetzteSpalte
dim lngLetzteZeile

lngLetzteSpalte=2
lngLetzteZeile=2

Set rngGesamt = ThisWorkbook.Worksheets("Mitglieder_Gesamt").Range("A1:B2") 'läuft !!!
Set rngGesamt = ThisWorkbook.Worksheets("Mitglieder_Gesamt").Range(Cells(1, 1), Cells(lngLetzteZeile, lngLetzteSpalte)) 'Fehler 1004!!!

 Wo ist die Ursache - wie kann ich das umgehen?

Danke
Stefan

[Flotter Feger]

Hallo,

du referenzierst nicht ordentlich. So legen deine Zellen auf verschiedenen Blättern.


With ThisWorkbook.Worksheets("Mitglieder_Gesamt")
Set rngGesamt = .Range(.Cells(1, 1), .Cells(lngLetzteZeile, lngLetzteSpalte))
End With

So klappt es ...

Sabina

[StefKe]

Ach Gott ( Sabina :-) --- da bin ich schon mal drüber gestolpert, und wieder reingetreten...

Hab tausend Dank,

[RPP63]

@Sabina:
Ich spiele jetzt mal snb:
Bitte, verwende Code-Tags!