Pasten van een waarde met vba

[stefano]

Ik heb via onderstaande macro een bestandsnaam opgehaald. Ik wil deze naam nu 'pasten' in een andere cel . Hoe kan ik dat ?

Sub cert_ophalen()

Dim file1 As String

    file1 = InputBox(Prompt:="Geef CDMB-nummer Volkoren in", _
          Title:="* * * VOLKOREN * * *", Default:="2012")
         
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\rdmb\certificaten\" & file1 & ".xls"
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\AH BREDA CERT TOT.xls"
         
    Windows("AH BREDA CERT TOT.xls").Activate
    Sheets("parameters AH meel bloem patent").Select
    Range("E2").Select
    
' in de cel E2 zou de opgevraagde waarde ( file1 ) moeten geplakt worden
    
End Sub

 

[abracadaver909]

Hoi,

probeer een het volgende:

Sub cert_ophalen()

Dim file1 As String

    file1 = InputBox(Prompt:="Geef CDMB-nummer Volkoren in", _
          Title:="* * * VOLKOREN * * *", Default:="2012")

         
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\rdmb\certificaten\" & file1 & ".xls"
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\AH BREDA CERT TOT.xls"

         
    Windows("AH BREDA CERT TOT.xls").Activate
    Sheets("parameters AH meel bloem patent").Select
    Range("E2").value = file1

    
' in de cel E2 zou de opgevraagde waarde ( file1 ) moeten geplakt worden
    
End Sub

Ik heb het niet getest, maar dit zou moeten werken.

Met vriendelijke groet,
Chris