Waarde uit ander werkblad

[moosebreath]

Ik probeer in Excel met VBA een waarde in een cel te zetten. De naam van het werkblad is variabel. Op een 1 of andere manier krijg ik het niet lekker aan de praat.

ActiveCell.Formula = "='" & FindPatient & "'!D5"

Ik krijg steeds #VERW! te zien. Wanneer ik die cel met de hand open (F2) en dan enkel op enter druk doet hij het wel...... 'k snap er geen bal van. Iemand een idee?

 

[Wigi]

Volgens mij is die cel misschien opgemaakt als tekst.

Zie bij Opmaak > Celeigenschappen

 

[moosebreath]

Dank voor snelle reactie!

Ik heb gekeken maar die staat op standaard. Het maffe is dat wanneer ik het werkblad open (als die code al is uitgevoerd) dat hij denkt dat het een verwijzing naar een ander excelbestand is.

Voorbeeld:
ActiveCell.Formula = "='" & FindPatient & "'!D5"
wordt in de cel
='jansen'!D5

Bij het het openen van Excel zegt hij dat hij koppeling naar jansen niet kan vinden (de sheet bestaat wel, maar wordt niet herkent....

 

[Wigi]

Enige kans om het bestandje hier gezipt bij te hangen?

 

[moosebreath]

Ik ben er denk ik uit.

Wat ik deed:
1. Link maken
2. Sheet maken

Heb dat nu omgedraait en komt er dus zo uit te zien:

                'Maken Sheet voor gegevens
                On Error Resume Next
                Set wSheet = Sheets(FindPatient)
                If wSheet Is Nothing Then
                    Sheets("Patient").Copy after:=Sheets("Patient")
                    ActiveSheet.Name = FindPatient
                    Set wSheet = Nothing
                    On Error GoTo 0
                Else
                    Set wSheet = Nothing
                    On Error GoTo 0
                End If
                
                'Maak hyperlink
                Sheets(FindWard2).Select
                Set cell = Range("C10:C100").Find(FindPatient, LookAt:=xlPart)
                If Not cell Is Nothing Then Cells(cell.Row, 1).Select
                ActiveCell.Offset(0, 12).Select
                ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=FindPatient & "!A1", TextToDisplay:="='" & FindPatient & "'!D5"
                ActiveCell.NumberFormat = "General"
                ActiveCell.Formula = "='" & FindPatient & "'!D5"