Office: Merged Cells Problem?

Hallo Gemeinde:

ich steht grad auf dem Schlauch.

Code:

folgende Codezeile

Erster Term "RNGWoche.Address" gibt richtig die entsprechende Zelle zurück (erste Zelle einer Merged Cell)
Beispielsweise < $B$19>

zweiter Term "RNGWoche.Offset(7, 20).Address"
gibt die falsche Zelle zurück
< $V$32>

Kurios das der Column-Offset richtig ist- der Row-Offset aber Falsch.

Das würde insofern auch Sinn ergeben, da die Merged-Cells über 7 Zeilen verbunden ist und VBA dann den Row-Offset zur "letzten Zelle" der Merged-Cell addiert.

Gibt es eine Methode wie ich die letzte Zelle einer MergedCell ansprechen kann? oder gibt es ne Idee eines WA auf Basis des Offset.

Anm.: RowOffset = 0 führt nicht zum kopieren des gewünschten Bereichs (Logisch, da dann ja die gleiche Zeile adressiert wird)

Ich freu mich auf Eure Idee.

Grüsse Jack


Edith sagt:
Ich hab ne Krücke gebaut

.Range(.Cells(RNGWoche.Row, RNGWoche.Column), .Cells((RNGWoche.Row + 6), (RNGWoche.Column + 20))).Copy Destination:=wsZiel.Cells(6, 2)

Löst das Problem nicht, aber ist ein WA. Der richtige Weg würde mich aber dennoch interessieren

:)

 

Hallo,

Code:

 

Hallo,

ah Phelan war schneller *wink.gif* top, (welcome back, btw...*biggrin.gif* ) aber ich geb dir nochmal die letzte Zelle...
Code:

Geht dann auch ohne .Address als Range-Objekt, klar....*cool.gif*

Gruß, Muller2

 

Moin Ralf,

danke.
Das heisst aber auch das ich mir den String dann zerklöppeln muss,
oder gibt es für MergedAreas auch sowas wie ein UBound?


Edith sagt:

Herzlichen Dank auch an Muller, der Hinweis mit ".count" ist letztlich auch eine mögliche Lösung

.Range(RNGWoche.Address & ":" & RNGWoche.MergeArea.Cells(RNGWoche.MergeArea.Count, 1).Offset(0, 20).Address).Copy Destination:=wsZiel.Cells(6, 2)

Grüße

 

Hallo,

achwatt, nix klöppeln,*grins mach nich sowas,*upps Du hast doch ein Range-Objekt am Start, dem kommste mit Count bei, s.o....*cool.gif*

Gruß, Muller2

 

Beschreibe in Worten, was gemacht werden soll.

Könnte funktionieren, falls ich es richtig interpretiere:
Code:

@Muller2
Danke,...mal schauen für wie lange.

 

Danke Euch beiden

@Muller,

ja hatte die Count Lösung in den letzten Beitrag noch reineditiert. Funzt auch stabil.

@XLPH

die Lösung funktioniert so nicht, das wäre auch ein genialer Streich :-D einfach den Bereich "aufbohren" :-D

Was soll gemacht werden? Letztlich sollen Kalenderwochen gefunden werden und in ne andere Mappe verschoben werden.
Die KW liegt hierbei in Col2 als MergedCell vor den Daten

 

Hallo Phelan,

das Motto heißt ja Wir sind gekommen um zu bleiben, also hoffen wir doch einfach mal das Beste...*grins

@jack_D ah ok, aber der ganze Address-Kram ist da überflüssig, entweder gehts schon genauso wie Phelan vorschlug, blick ich jetzt so schnell nich, auf jeden Fall aber direkt über die Range-Objekte...*cool.gif*

Gruß, Muller2

 

also entweder stell ich mich zu doof an, oder ihr habt einen Denkfehler - ich tendiere ja zu letzterem *grins *grins *grins

Spass.

Ich "baue" ja aus einer Rangeadresse (MergedCell) und einer Zahl (Offset) einen neuen Range.
ich brauche also dazu die Positionsangabe des ersten Range. Wenn ich auf .address verzichte bekomme ich üblicherweise den Wert des ersten Range
(anm.: ohne .Address geht es glaub nur über den Umweg von .cells()) - siehe Krücke

Das "aufbohren" wie XLPH das "versucht" hat, funktioniert nicht, weil Range das nicht unterstützt. (wäre aber die schlankeste Lösung)

 

Hallo,

ja, ja das kenn ich auch mit den Tendenzen, da liegt man leider meistens falsch...hehe...*grins

Code:

Das müsste Deinem Ausdruck entsprechen...*cool.gif*

Gruß, Muller2

 

Da haste Recht.

zumindest wenn man deinen vorherigen Beitrag einpflegt (ich geh mal davon aus das hast du dir jetzt einfach geschenkt ;-D)

Code:

so geht es auch - auch ohne .Adress. Insofern kann der Range auch nicht nur mit .cells ohne .address gebildet werden.

Grüße

 

Hallo,

neeee nix geschenkt, mach nich wieder so was *upps , genauso wie's da steht:*cool.gif*

Code:

entspricht deinem:

Code:

Gruß, Muller2

 

Moin Muller,

sorry hatte noch was zu tun.

entspricht deinem:

Code:

Gruß, Muller2

Das kann ich ganz klar mit einem "nope" beantworten.
Das erzeugt den von mir in #1 erzeugten Effekt, dass nur die erste Zeile angesprochen wird. (in meiner Logik hätte das was du da vorschlägst nämlich funktionieren müssen - hat es aber nicht. Deswegen bin ich hier ;-D )

Die Schwierigkeit: sowohl mit range.offset() als auch mit range.mergeArea.offset() spricht man ooffensichtlich lediglich die "erste Adresse an" (nicht die letzte Zelle des Merge)

Grüße Jack

 

Hallo Jack,

teufel, Du hast Recht !!,*entsetzt da muß ich Abbitte leisten, ich hatte mit .Select getestet, da wird der gesamte Bereich selektiert, mit .Address sieht man's, nur die erste Zeile *boah ....mit Deiner letzten Lösung passt es wieder, zumal nur über die Range-Objekte auch top...*winner *top

Jetzt erstmal 'n Glühwein, was...*grins

Gruß, Muller2

 

Moin

Glühwein klingt gut =)

Danke dir aber trotzdem für den Input. Mit deinem .count Ansatz hast ja maßgeblich zur Lösung beigetragen =)

Grüße Jack