Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
set Range läuft nicht
#1
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
Zitieren
#2
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
Zitieren
#3
Ach Gott ( Sabina :-) --- da bin ich schon mal drüber gestolpert, und wieder reingetreten...

Hab tausend Dank,
[Bild: Zwischenablagebild-1.jpg]
Zitieren
Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein völlig kostenloses und unverbindliches Angebot innerhalb weniger Stunden.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


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


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions