Beste forum-leden,
ik heb zopas de stap naar VBA gewaagd.
Dat ik nog "a long way to go" heb is al duidelijk :-/
Mijn vraagje bij een zeer eenvoudige actie om de inhoud van één cel te kopiëren naar een cel in een ander bestand.
Ik heb twee excel-bestanden:
april2018.xlsm en week15.xlsx
In het eerste bestand heb ik volgende code geplaatst:
Sub ophalengegevens_Klikken()
Dim WBHoofd As Workbook
Dim WB1 As Workbook
Dim T As String
Set WBHoofd = Workbooks.Open("april2018.xlsm")
Set WB1 = Workbooks.Open("week15.xlsx")
WB1.Activate
T = WB1.Sheets("Blad1").Range("B3").Value
WBHoofd.Activate
WBHoofd.Sheets("Blad1").Range("C4").Value = T
End Sub
Deze code werkt als het bestand "week15.xlsx" nog niet open is bij het uitvoeren van de code.
Is het bestand wel geopend dan loopt het fout, tenminste dan wordt er geen waarde gekopieerd.
Weet iemand van jullie hoe dit komt?
Alvast bedankt!
vriendelijke groet,
Marc
ik heb zopas de stap naar VBA gewaagd.
Dat ik nog "a long way to go" heb is al duidelijk :-/
Mijn vraagje bij een zeer eenvoudige actie om de inhoud van één cel te kopiëren naar een cel in een ander bestand.
Ik heb twee excel-bestanden:
april2018.xlsm en week15.xlsx
In het eerste bestand heb ik volgende code geplaatst:
Sub ophalengegevens_Klikken()
Dim WBHoofd As Workbook
Dim WB1 As Workbook
Dim T As String
Set WBHoofd = Workbooks.Open("april2018.xlsm")
Set WB1 = Workbooks.Open("week15.xlsx")
WB1.Activate
T = WB1.Sheets("Blad1").Range("B3").Value
WBHoofd.Activate
WBHoofd.Sheets("Blad1").Range("C4").Value = T
End Sub
Deze code werkt als het bestand "week15.xlsx" nog niet open is bij het uitvoeren van de code.
Is het bestand wel geopend dan loopt het fout, tenminste dan wordt er geen waarde gekopieerd.
Weet iemand van jullie hoe dit komt?
Alvast bedankt!
vriendelijke groet,
Marc