hallo zowel jouw probleem als dat van "confrater" Koeleman zou ik oplossen via
een beetje tekstsmanipulatie en een lusje
het moet vrij eenvoudig zijn om het adres van de eerste cel die je wil
samenvoegen ergens in een cel te plaatsen en in de cel daarnaast het adres van
de eerste cel van de tweede reeks Verder neem ik aan dat je met samenvoegen
samentellen bedoelt: in een derde cel zeg je dan =indirect(ades1-e
cel)+indirect(adres 2-e cel) als je echt wil samenvoegen wordt die + een &
opmerking zo ziet het eruit in Excel maar ik neem aan dat in LO de verschillen
klein zijn
je moet er wel voor zorgen dat je bij het "ineenknutselen" van je adres ergens
rekening houdt met een volgnummr (in je "teller") anders kan je geen lusje
bouwen
groetjes
julien
> Op 26-05-2021 18:40 schreef René Luijckx :
>
>
> Hoi allemaal,
>
> In een werkblad wil ik in 2 kolommen, in niet opeenvolgende rijen, cellen
> samenvoegen.
> De rijen die er tussen liggen zijn niet van belang. Dat zijn er niet zoveel
> en onnuttige informatie is eenvoudig handmatig te verwijderen.
> Beide kolommen selecteren en samenvoegen zorgt er voor dat alles
> samengevoegd wordt: denkfout.
> Dus een macro opgenomen:
> cel geselecteerd, shift-rechts, cel toegevoegd, rechter muisknop cellen
> samenvoegen, pijl omlaag om naar de rij eronder te gaan.
> Dit gaat eenmalig goed.
> Bij uitvoeren van de macro komt de melding dat reeds samengevoegde niet
> meer samen gevoegd kunnen worden.
> Code van de macro bekeken: cellen staan absoluut gedefinieerd.
>
>
> rem --
> dim args1(0) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "ToPoint"
> args1(0).Value = *"$F$18:$G$18"*
>
> dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
>
> rem --
> dim args2(0) as new com.sun.star.beans.PropertyValue
> args2(0).Name = "MoveContents"
> args2(0).Value = true
>
> dispatcher.executeDispatch(document, ".uno:MergeCells", "", 0, args2())
>
> rem --
> dim args3(1) as new com.sun.star.beans.PropertyValue
> args3(0).Name = "By"
> args3(0).Value = 1
> args3(1).Name = "Sel"
> args3(1).Value = false
>
>
> Mhhh, hoe kan ik relatief maken t.o.v. huidige positie ?
>
> Iemand een idee, of een macro die dat al kan ?
>
> Bij voorbaat dank,
>
> René.
>
> --
> Unsubscribe instructions: E-mail to users+unsubscr...@nl.libreoffice.org
> Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
> List archive: https://listarchives.libreoffice.org/nl/users/
> Privacy Policy: https://www.documentfoundation.org/privacy
--
Unsubscribe instructions: E-mail to users+unsubscr...@nl.libreoffice.org
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/nl/users/
Privacy Policy: https://www.documentfoundation.org/privacy
