waarde teksvak in ander werkboek gebruiken.

[blueberry013]

Hallo,

Hoe kan ik de waarde van een tekstvak op een formulier gebruiken in een ander werkboek.

Ik open via een userform met een tekstvak in (vb. waarde 32) een nieuwe werkboek.
Bedoeling is dat er een query loopt.

Dit gaat allemaal goed, maar dan moet in mijn tabel (in nieuw werkboek) gefilterd worden op deze waarde en dat doet hij dus ni...

gebruik als code

Private Sub Workbook_Open()

    On Error Resume Next

    ActiveWorkbook.RefreshAll
       
    Dim x As Integer

    x = Workbooks("F:\Planning\Planning Sivafrost.xlsm").FormPlanning.Weeknummer.Value)
    
    ActiveSheet.ListObjects("Tabel_Planning_Ishida_1").Range.AutoFilter Field:=1 _
        , Criteria1:="x"
End Sub

Kan iemand mij helpen?
Alvast bedankt!

 

[blueberry013]

ik ben zeker dat het hier aan ligt, maar vind de oplossing niet

x = Workbooks("F:\Planning\Planning Sivafrost.xlsm").FormPlanning.Weeknummer.Value)

 

[edmoor]

Op het eerste gezicht zeg ik dat in ieder geval de x in Criteria1:="x" zonder de " tekens moet.
Anders gebruikt hij echt de letter x in plaats van de waarde van x.

 

[blueberry013]

Ja, inderdaad, dit had ik ook al aangepast, maar ik heb een andere oplossing... niet echt wat ik wou, maar ik blijf in dezelfde werkboek en kopieer de "gepimpte" tabel naar een andere werkboek...
Maar als er iemand een oplossing heeft! graag!!