set Range läuft nicht - Druckversion

set Range läuft nicht - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: set Range läuft nicht (/thread-18444.html)

set Range läuft nicht - StefKe - 05.03.2021

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

RE: set Range läuft nicht - Flotter Feger - 05.03.2021

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

RE: set Range läuft nicht - StefKe - 05.03.2021

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

Hab tausend Dank,

RE: set Range läuft nicht - RPP63 - 06.03.2021

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