VBA - this workbook

[Cruimel]

Hallo forumleden,

Een volgende vraag. Versie 2003 excel - VBA.
Weten jullie hoe ik reeds bestaande VBA codes in het blad "this workbook" ongemoeid kan laten en er toch een code eraan kan toevoegen, dat zodra een bepaald bestand wordt geopend de gegevens worden bijgewerkt in het doel document.

Volgende code wil ik graag werkend krijgen:
In tabblad This Workbook
Private Sub Workbook_Open()
Range("A33:F60").FormulaArray = "=' C:\Users\admin\Documents\excelbestanden\excelvba\openstaande postenlijst maken\[sapbrondata.xls]Blad1'!R2C3:R33C9"
End Sub

Alleen staan er al veel gegevens. Hij houdt mijn code nu niet vast als ik dit er tussenplaats.
Wie weet raad?

dankjewel,
Cruimel

 

[Warme bakkertje]

Je moet er wel aan toevoegen op welk blad de formule geplaatst moet worden bv.

[Blad1!A33:F60].FormulaArray = ..........

 

[Cruimel]

Hoi Rudi,

Dank voor je reactie,

Bedoel je dat de totaal formule zou kunnen zijn:
Private Sub Workbook_Open()
Range("A33:F60").FormulaArray = 'C:\Users\admin\Documents\excelbestanden\excelvba\openstaande postenlijst maken\[openstaandepostenlijst.xls]Blad2'!=' C:\Users\admin\Documents\excelbestanden\excelvba\openstaande postenlijst maken\[sapbrondata.xls]Blad1'!R2C3:R33C9"
End Sub

Voordat ik de boel in de war heb en een extra check.


Cruimel

 

[Warme bakkertje]

Neen, de naam v/h blad waar de formule moet komen gaat vooraan

Sheets("Naam van je doelblad waar de formule moet komen").Range("A33:F60").FormulaArray = "=' C:\Users\admin\Documents\excelbestanden\excelvba\openstaande postenlijst maken\[sapbrondata.xls]Blad1'!R2C3:R33C9"

 

[Cruimel]

Hoi Rudi,

Na een avond puzzelen, moet ik helaas zeggen dat het niet werkt. Het rare is dat als ik de code toepas in een excel versie waar "this workbook" verder leeg is de code prima werkt.
Maar op mijn werk heb ik een excel versie waar "this workbook" ook gevuld is met andere codes, echter wel gescheiden. Het zou dan toch moeten werken.
Private Sub Workbook_Open()
Sheet.[openstaandepostenlijst].Range("A33:F60").FormulaArray = "=' Q:\Debiteur\openstaande posten brieven\[sapbrondata.xls]Blad1'!R2C3:R29C8"

End Sub

Sheet("openstaandepostenlijst").Range, ook geprobeerd. Geen resultaat.

Is het misschien dan toch beter de code af te vangen met een excelformule in het doelblad? Wat zou dan de betrouwbaarste zijn?

Dankjewel,
Cruimel

 

[Cruimel]

Hallo Rudi,

Ik heb het opgelost. De VBA verwerkt in een tweetal opdrachten.
Hierdoor heb ik het blad "this workbook" kunnen omzeilen. Moet nu wel twee verschillende opdrachten opstarten, maar dat is geen probleem.

In iedergeval bedankt voor je tips..:thumb:

Cruimel

 

[trucker10]

Hallo Rudi,

Ik heb het opgelost. De VBA verwerkt in een tweetal opdrachten.
Hierdoor heb ik het blad "this workbook" kunnen omzeilen. Moet nu wel twee verschillende opdrachten opstarten, maar dat is geen probleem.

In iedergeval bedankt voor je tips..:thumb:

Cruimel

Je kan een call gebruiken , net voor het einde van de eerste macro ( boven de End Sub ) zet je Call "en dan de naam van de macro " ! zonder sub () enkel de naam !
iets zoals in bijgevoegde voorbeeld

Sub wis_keuzecel_fac()    ' Op de tabbladen factuur

    [Q11,R11].ClearContents
  [COLOR="Navy"]Call maak_leeg[/COLOR]
End Sub

Sub maak_leeg()
    Application.ScreenUpdating = False
    Sheets("Fact (2)").Select
   [Q11:R11].ClearContents