invoegen van rijen met voorwaardelijke opmaak

[CvV]

Ik wil in een VBA programma een aantal rijen invoegen van het ene blad naar het andere blad.
Sommige cellen hebben een voorwaardelijke opmaak.
Het blijkt dat de in de voorwaardelijke opmaak het het blad wordt toegevoegd aan de cel verwijzing.
Daardoor werkt de voorwaardelijke opmaak natuurlijk niet want die wijst nu naar een verkeerde cel.

Ik heb een versimpeld voorbeeld toegevoegd. (Ik hoop tenminste dat dat goed gaat, want het is voor mij de eerste keer)
De rijen A1 en A2 van blad1 heb ik ingevoegd in blad2 op als rij 5 en 6.
Het blijkt dat als je ze kopieert het wel goed gaat.
Dat zie heb ik gedaan op rij 9 en 10

Waarom gaat het fout bij invoegen?

 

[Timshel]

Welkom op dit forum CvV.
Je verhaal komt wat warrig over, ook omdat de zinnen niet kloppen. Lees je volgende post graag even terug voor je hem plaatst.
In het voorbeeld staat niets op blad 2, rij 9 en 10.
Als ik dit doe:
Blad 1, rij 2 en 3 kopiëren -> Blad 2, rechtermuisknop op rij 2 -> gekopieerde cellen invoegen.
wordt de VO gewoon meegekopieerd.

Geef graag een heldere toelichting en een duidelijk voorbeeld wat je wilt bereiken.

 

[CvV]

Dank je Timshel.

Ik zal proberen me beter uit te drukken.
Maar op zich gaat bij mij fout wat jij schrijft.

Ik heb het voorbeeld opnieuw gemaakt en toegevoegd.
Ik heb Blad1 rij A1 en rij A2 op Blad2 ingevoegd op Blad2 rij 5.
En ik heb Blad1 rij A1 en rij A2 gekopieerd op Blad2 rij rij 9 en 10
Als je in voorbeeld kijkt zie je dat op Blad2!A9 rood is.
Cel Blad2!A5 is gewoon zwart.
Als ik de VO bekijk op cel Blad2!A5 dan staat daar =ALS(Blad1!B6= ... enz.
Als ik de VO bekijk op cel Blad2!A9 dan staat daar =ALS(B10= ... enz.

De VO op cel Blad2!A9 is juist. De VO op cel Blad2!A5 zou moeten zijn =ALS(B6= ... enz.
Waarom wordt bij het voegen aan B6 Blad1! toegevoegd? De voorwaarde verwijst nu naar een verkeerde cel

Ik hoop dat ik zo duidelijk geweest ben. Zo niet dan hoor ik het graag.

 

[Timshel]

Het voorbeeld is nog hetzelfde als in je openingspost.
Los daarvan kan ik het probleem niet reproduceren. Ik heb helaas geen oplossing.
Misschien meldt zich een andere helper die je van dienst kan zijn.

 

[HSV]

Ik begrijp het ook niet.
Ik had de vraag gisteren ook gelezen, maar ik dacht "laat maar schieten".

De VO op cel Blad2!A9 is juist.

In Blad2!A9 staat helemaal geen Vw Opmaak.

 

[CvV]

Ik heb duidelijk moeite met het toevoegen van de juiste file.
Ik heb nu geprobeerd toe te voegen voorbeeld 3.
Als het goed is zijn de regels 9 en 10 op blad 2 nu wel gevuld.
Ik hoop dat jullie nog een keer geduld met hebben.
In ieder geval toch bedankt voor jullie reacties.

Ik heb Blad1 rij A1 en rij A2 op ingevoegd op Blad2 rij 5.
En ik heb Blad1 rij A1 en rij A2 gekopieerd op Blad2 rij rij 9 en 10
Als je in voorbeeld kijkt zie je dat op Blad2!A9 rood is.
Cel Blad2!A5 is gewoon zwart.

Als ik Blad2!A5 selecteer en dan naar voorwaardelijke opmaak -> regels beheren ga dan zie ik daar staan
Formule: =ALS(Blad1!B6= ... enz.
Maar volgens mij zou er moeten staan =ALS(B6=... of eventueel =ALS(Blad2!B6 =

De VO op Blad2!A9 is wel goed. Daar staat inderdaad =Als(B6= ...

Ik hoop dat nu alles goed gegaan is.
Alvast bedankt voor jullie geduld.

 

[VenA]

Je kan het wel voor elkaar krijgen als je eerst de gekopieerde rijen invoegt en vervolgens op plakken speciaal opmaak klikt.

 

[CvV]

VenA

Bedankt voor je reactie.
Deze work arround gebruik ik nu ook, maar het lijkt me dat het invoegen dus niet goed gaat.
Maar soms moet je het ermee doen.

 

[VenA]

Dan zal je de VO aan moeten passen.

=YEAR(INDIRECT(RIGHT(CELL("filename");LEN(CELL("filename"))-FIND("]";CELL("filename");1))&"!"&ADDRESS(ROW()+1;2)))<=YEAR(TODAY())

 

[HSV]

Is dit weer een verkeerd voorbeeld of zou het een versieprobleem zijn.
Ik zie in Blad2!A5 helemaal geen voorwaardelijke opmaak staan.

als ik Blad2!A5 selecteer en dan naar voorwaardelijke opmaak -> regels beheren ga dan zie ik daar staan
Formule: =ALS(Blad1!B6= ... enz.

 

[VenA]

Versieprobleem liep ik ook tegenaan:d

Dit staat op blad2 in A5 in de VO

=IF(Blad1!B3="";;YEAR(VALUE(Blad1!B3))<=YEAR(TEXT(TODAY();"dd-mm-jjjj")))

 

[HSV]

We lopen hier met z'n allen wel steeds achter de feiten aan.
Ik zat te denken om de nieuwste versie te kopen, maar als anderen net als ik nu ook blijven werken in oudere versies schiet het ook niet op; dan moet ik alle versies openen om het juiste beeld te verkrijgen.

Vroeger zag je van Excel 2003 naar 2007 aan de extensie welke je moest openen, cq welke formule men kon uitschrijven.

Vooruitgang noemen ze dat toch?

 

[CvV]

Ik gebruik versie 2010 en bij mij staat staat Blad2!A5 =ALS(Blad1!B6
Dus ik weet niet of het al dan niet een versie probleem is, maar volgens mij is dit niet goed.
Waarom er bij HSV helemaal geen VO staat weet ik niet.
En als ik het goed begrijp staat er bij VenA Blad1!B3, maar mogelijk is dit een tikfout.
Ik doe het er maar mee dat ik na het invoegen alsnog de opmaak zet.

Bedankt allemaal

 

[VenA]

Dat staat er dus echt niet. Of je haalt steeds rijen en of kolommen door elkaar. Wat in Blad2!A5 staat zie je in het plaatje. Werkt de oplossing in #9 niet?

 

[CvV]

Bij mij staat er echt Blad1!B6
Ja, ook oplossing #9 werkt