Office-Fragen.de

Office-Fragen.de > Microsoft Office > Excel > set Range läuft nicht
Normale Version: set Range läuft nicht
Sie sehen gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

StefKe

05.03.2021, 20:34
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

05.03.2021, 22:03
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

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

Hab tausend Dank,
[Bild: Zwischenablagebild-1.jpg]

RPP63

06.03.2021, 16:55
@Sabina:
Ich spiele jetzt mal snb:
Bitte, verwende Code-Tags! Cool
Office-Fragen.de > Microsoft Office > Excel > set Range läuft nicht