Waarden invulvenster naar Excel

[yaryd]

Beste,

De waarden van mijn invulvenster moeten gebruikt worden om mijn stuklijst aan te maken in Excel.

---------------------------------------------------------------------------------------------------------------------------------
Sub Koppeling_Excel()

With Invulvenster
'Excel openen
Dim X As Excel.Application
Dim TabBlad As Worksheet
Dim rekenblad As Workbook
Dim Cel As Range





On Error Resume Next
Set X = GetObject("excel.application")
If Error Then
Error.Clear
Set X = CreateObject("excel.application")
End If
X.Visible = True

' Set rekenblad = X.Workbooks.Open("C:\Documents and Settings\decobel\My Documents\Stage\Stage\Xls\VBA_Stage_Stuklijst.xls")
Set rekenblad = X.Workbooks.Add("C:\Documents and Settings\decobel\My Documents\Stage\Stage\Xls\VBA_Stage_Stuklijst.xls")
X.ScreenUpdating = True

---------------------------------------------------------------------------------------------------------------------------------

Dit opent het bestand waar ik de waarden moet inkrijgen, maar hoe kan ik die waarden in dit bestand krijgen?


Met een vriendeijke groet,

Yaryd

 

[Wigi]

Set TabBlad = rekenblad.Sheets("NAAMVANDESHEET")

Tabblad.Range("ADRESVANEENCEL").Value = "bla bla bla" 'dit schrijft iets weg in een cel

Wigi

 

[yaryd]

Een dankwoordje voor Wigi;

Bedankt Wigi :thumb: