[excel] vba code werkte eerst wel en nu niet meer

[Verwijderd]

wat best wel raar is is dat ik een vba code heb die de eerste keer wel werkte en nu geeft die daar steeds fouten aan...

dit is de code:
Range("A1").End(xlDown).Offset(1, 0) = txt_anaam.Text
Range("B1").End(xlDown).Offset(1, 0) = txt_vnaam.Text
Range("C1").End(xlDown).Offset(1, 0) = txt_adres.Text
Range("D1").End(xlDown).Offset(1, 0) = txt_pcode.Text
Range("E1").End(xlDown).Offset(1, 0) = txt_wplaats.Text
Range("F1").End(xlDown).Offset(1, 0) = txt_tel.Text
Range("G1").End(xlDown).Offset(1, 0) = txt_email.Text

ik heb al op google gezocht maar werd daar niet wijzer van, ook mijn oude vb boek gepakt maar daar stond niets in over vba en excel

[Verwijderd]

Wat voor fouten krijg je dan?

[Verwijderd]

Verwijderd schreef op 30 september 2004 @ 21:03:
Wat voor fouten krijg je dan?

Fout 1004 tijdens uitvoering:


Door de toepassing of door object gedefineerde fout.

Die fout...... en op het moment dat ik op fout opsporing klik dan markeert die de eerste regel van de code,
Range("A1").End(xlDown).Offset(1, 0) = txt_anaam.Text

die dus...

[Verwijderd]

kijk hier eens misschien helpt dit: http://support.microsoft....n-us;213540&Product=xlw2K

[Verwijderd]

Verwijderd schreef op 30 september 2004 @ 21:18:
kijk hier eens misschien helpt dit: http://support.microsoft....n-us;213540&Product=xlw2K

Vreemd toen ik verder zocht op die site zag ik precies dezeflde code staan en ook al copy en past ik hem direct dan geeft die nogsteeds die fout aan. Tzal wel aan mijn excel liggen dan denk ik.

[Verwijderd]

Je wilt gewoon het bereik A1:G1 invullen?

code:

Sub invullen()
    txt_vnaam = "test"
    txt_adres = "adres"
    txt_pcode = "pcode"
    txt_wplaats = "wplaats"
    txt_tel = "tel"
    txt_email = "email"
    
    Range("A1").Select
    ActiveCell.Value = txt_vnaam
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = txt_adres
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = txt_pcode
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = txt_wplaats
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = txt_tel
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = txt_email
End Sub

Als ik je verkeerd begrijp moet je het maar zeggen.

Greets,

- Bas

[ Voor 11% gewijzigd door Verwijderd op 30-09-2004 22:52 ]

[Verwijderd]

er moet toch een verschil zijn van hoe de code uitgevoerd wordt, bv eerst handmatig, daarna via een button of zo?
het pad van het bereik is niet volledig gedefinieerd, dit kan problemen veroorzaken.
mss zoiets als workbooks(1).worksheet("mijntabel").range("a1").end(xldown).offs... enz.