---

Jeg vil gerne skrive 1 2 3 i et Exel ark.. hvad mangler jeg i min kode

Option Explicit

Dim Ex As Excel.Application
Dim Cn As Sheets

Private Sub Form_Load()

Set Ex = New Excel.Application
Set Cn = Sheets

Ex.DisplayAlerts = False

Cn.Visible = True



End Sub

---

Prøv på denne måde:

Option Explicit
Dim Ex As Excel.Application
Dim Wb As Excel.Workbook


Private Sub Form_Load()

Set Ex = New Excel.Application
Set Wb = Ex.workbooks.Add

Ex.DisplayAlerts = False

Wb.sheets(1).Range("A1").Value = 123
Ex.Visible = True

End Sub

Med venlig hilsen
LeoH


"Jens" <til@infojens.dk> skrev i en meddelelse
news:9e3h20$f37$1@news.inet.tele.dk...
> Jeg vil gerne skrive 1 2 3 i et Exel ark.. hvad mangler jeg i min kode
>
> Option Explicit
>
> Dim Ex As Excel.Application
> Dim Cn As Sheets
>
> Private Sub Form_Load()
>
> Set Ex = New Excel.Application
> Set Cn = Sheets
>
> Ex.DisplayAlerts = False
>
> Cn.Visible = True
>
>
>
> End Sub
>
>
>