VBA Excel - Userform Overzicht facturen

Status
Niet open voor verdere reacties.

Bosswilly

Gebruiker
Lid geworden
28 mrt 2016
Berichten
110
Hallo allemaal,

Nogmaals een kleinigheidje.

Ik heb een menu "OverzichtFacturen" aangemaakt, maar hij pakt het niet. Ik krijg bij code "With Worksheets(2).ListObjects(1)" een fout code 9 en bij With Worksheets(overzicht_facturen).ListObjects(1) een foutcode 14.

Weet iemand waar dit in kan zitten?

Graag zie ik een reactie tegemoet.

Bekijk bijlage Leerlingenoverzicht 2016 - 18-04-2016.xlsm
 
Gewoon omdat er op je Worksheets(overzicht_facturen) geen tabel staat.
Maak een tabel van je gegevensbereik en dan volstaat dit.
Code:
Private Sub cmdToevoegen_Click()
' Write data to worksheet
With Worksheets(2).ListObjects(1)
 .ListRows.Add
 .DataBodyRange(.ListRows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = Array(TXTFactuurnr, _
    CMBContactpersoon, TXTOmschrijving, TXTBedrag, TXTVerstuurd)
End With
Unload Me
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan