[Excel] Bestandsnaam weglaten bij kopieren verwijzing*

[Thomson]

Hey,

waarschijnlijk is de vraag hier reeds gesteld maar ik vond het niet met de search functie.

Ik heb 2 documenten. Als ik een cel bijvoorbeeld de waarde
=gedet.opm.!$L$7
geef en die kopieer naar het andere document krijg ik zoiets:
='[OPM01A-XXXX.XX_opmeting.xls]gedet.opm.'!$L$7

Iemand een idee hoe ik die '[OPM01A-XXXX.XX_opmeting.xls] kan weglaten?

Alvast bedankt

[Verwijderd]

Thomson schreef op dinsdag 21 februari 2006 @ 21:13:
Hey,

waarschijnlijk is de vraag hier reeds gesteld maar ik vond het niet met de search functie.

Ik heb 2 documenten. Als ik een cel bijvoorbeeld de waarde
=gedet.opm.!$L$7
geef en die kopieer naar het andere document krijg ik zoiets:
='[OPM01A-XXXX.XX_opmeting.xls]gedet.opm.'!$L$7

Iemand een idee hoe ik die '[OPM01A-XXXX.XX_opmeting.xls] kan weglaten?

Alvast bedankt

Wat wil je hiermee bereiken? Als je de celwaarde wilt hebben dan is de verwijzing naar het andere document correct, als je de celformule wilt hebben, dan moet je deze in de cel kopiëren en in de doelcel plakken.

[Lustucru]

Er is weinig relatiefs aan die verwijzing. De kolom/rij verwijzing is absoluut en je neemt een harde verwijzing naar een blad op. Klein titelfixje

[onkl]

Er is niet echt een goede oplossing voor, maar als je inderdaad de formule wilt kopieren kan je de formule in de formulebalk selecteren , kopieren en dan plakken in de formulebalk bij de doelcel.

Dit werkt cel voor cel.
Voor meer cellen zou j kunnen proberen iets te doen met opmaak op tekst zetten, kopieren, opmaak weer normaal zetten.

[Thomson]

Hm, da's wel erg vervelend aangezien dit allemaal met VBA code gebeurd. Is er echt geen andere oplossing gelijk die $ tekens bij de cellen?

[onkl]

Had dat dan gezegd. Dat maakt de wereld spannender.

Visual Basic:

Sub test()
MsgBox abskopie(Workbooks(1).Worksheets(1).Range("A2:A3"), Workbooks(1).Worksheets(2).Range("A2:A3"))

End Sub

Public Function abskopie(ByVal bronbereik As Range, doelbereik As Range) As Boolean
bronbereik.Replace What:="=", Replacement:="#", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
bronbereik.Copy
doelbereik.Parent.Activate
doelbereik.Select
doelbereik.Cells(1, 1).Activate
doelbereik.Parent.Paste
doelbereik.Replace What:="#", Replacement:="=", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
bronbereik.Replace What:="#", Replacement:="=", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Application.CutCopyMode = False
abskopie = True
End Function

De kans dat dit werkt is groter dan 0 en kleiner dan 1.

[KingRichard]

Thomson schreef op woensdag 22 februari 2006 @ 21:47:
Hm, da's wel erg vervelend aangezien dit allemaal met VBA code gebeurd. [...]

In dat geval zou het aanpassen van de VBA-code de mooiste oplossing zijn. In plaats van het kopiëren van een range (wat ongetwijfeld het geval is), zou je de code kunnen aanpassen zodat voor elke cel de formule gekopieerd wordt.

code:

cTargetCell.Formula = cSourceCell.Formula