Ophalen gegevens uit een ander werkblad

[polo6n]

Hallo Allemaal,

Ik ben een newbie qua vba, ik heb onderstaande macro voor het ophalen van gegevens uit een ander werkblad.

Nu is mijn probleem het volgende als er geen waarde op te halen valt krijg ik een fout melding.
Ik zou graag zien dat er een 0 of geen fout melding verschijnt als er niets opgehaald word.

Alvast Bedankt,

Groet,

Victor


Sub Inlezen2()
'ctrl-e

Dim weeknr As Integer
Dim dag As String
Dim bestand As String
Dim rij As Integer
Dim basis As String
Dim weekdag As Integer

ChDir ActiveWorkbook.Path

basis = ActiveWorkbook.Name
rij = ActiveCell.Row
weeknr = Cells(rij, 1)
bestand = "week " & weeknr & ".xls"

Workbooks.Open Filename:=bestand
Windows(basis).Activate
weekdag = rij

For weekdag = rij To (rij + 4)
dag = Cells(weekdag, 2)

Cells(weekdag, 4).Select
ActiveCell.FormulaR1C1 = _
"=+VLOOKUP(R1C1,'[" & bestand & "]" & dag & "'!C1:C8,6,FALSE)"

Cells(weekdag, 11).Select
ActiveCell.FormulaR1C1 = _
"=+VLOOKUP(R1C1,'[" & bestand & "]" & dag & "'!C1:C8,5,FALSE)-SUM(RC[-6]:RC[-1])"
Cells(weekdag, 12).Select
ActiveCell.FormulaR1C1 = "=+RC[-9]+RC[-8]-SUM(RC[-7]:RC[-1])"
Cells(weekdag + 1, 3).Select
ActiveCell.FormulaR1C1 = "=+R[-1]C[9]"
Next weekdag

Workbooks(bestand).Close
End Sub

 

[ExcelAmateur]

polo6n,

Kijk eens of het zo werkt?

Sub Inlezen2()
'ctrl-e

Dim weeknr As Integer
Dim dag As String
Dim bestand As String
Dim rij As Integer
Dim basis As String
Dim weekdag As Integer

[COLOR="red"]On Error Resume Next[/COLOR]
ChDir ActiveWorkbook.Path

basis = ActiveWorkbook.Name
rij = ActiveCell.Row
weeknr = Cells(rij, 1)
bestand = "week " & weeknr & ".xls"

Workbooks.Open Filename:=bestand
Windows(basis).Activate
weekdag = rij

For weekdag = rij To (rij + 4)
dag = Cells(weekdag, 2)

Cells(weekdag, 4).Select
ActiveCell.FormulaR1C1 = _
"=+VLOOKUP(R1C1,'[" & bestand & "]" & dag & "'!C1:C8,6,FALSE)"

Cells(weekdag, 11).Select
ActiveCell.FormulaR1C1 = _
"=+VLOOKUP(R1C1,'[" & bestand & "]" & dag & "'!C1:C8,5,FALSE)-SUM(RC[-6]:RC[-1])"
Cells(weekdag, 12).Select
ActiveCell.FormulaR1C1 = "=+RC[-9]+RC[-8]-SUM(RC[-7]:RC[-1])"
Cells(weekdag + 1, 3).Select
ActiveCell.FormulaR1C1 = "=+R[-1]C[9]"
Next weekdag

Workbooks(bestand).Close
End Sub

De code kan wat korter volges mij.

Cells(weekdag, 4).FormulaR1C1 = _
"=+VLOOKUP(R1C1,'[" & bestand & "]" & dag & "'!C1:C8,6,FALSE)"

Of zo

Cells(weekdag, 4) = "=+VLOOKUP(R1C1,'[" & bestand & "]" & dag & "'!C1:C8,6,FALSE)"

Anders de formule opnieuw maken met de ALS Functie.
B.V.B.

Cells(weekdag, 4) = "=IF(+VLOOKUP(R1C1,'[" & bestand & "]" & dag & "'!C1:C8,6,FALSE)="""","""",+VLOOKUP(R1C1,'[" & bestand & "]" & dag & "'!C1:C8,6,FALSE))"

Als ik het goed gedaan heb?
Zo is de formule in de cel.

=ALS(+VERT.ZOEKEN($A$1;'[week 0.xls]'!$A:$H;6;ONWAAR)="";"";+VERT.ZOEKEN($A$1;'[week 0.xls]'!$A:$H;6;ONWAAR))

Dus als er niets staat zet hij niets (of een 0 ) in de cel.

Zou je in het vervolg, als je code plaatst deze willen selecteren en dan boven in het menu op # klikken.
Dan komt je code zoals hier in een apart vak te staan.