Error bij berekening plaatsen

[Offthefield]

Mijn probleem is :
Het invoeren van gegevens gaat goed
vb
Begin 1000
Einde 2000
Werk 500 (Tijdens het invoeren wijzigt Meer al)

Na de berekening komt erin :
Meer 500

maar na het drukken op CommandButton1
geeft excel een error bij TextBox3_Change() terwijl de gegevens wel op de sheet zijn aangepast

Wat gaat er fout ??

bvd

Offthefield

Dit is de source :

Private Sub CommandButton1_Click()
    
    With Sheets("Januari").Range("A" & Rows.Count).End(xlUp)
        .Offset(1) = CmbNaam.Value
        .Offset(1, 1) = TextBox1.Value
        .Offset(1, 2) = TextBox2.Value
        .Offset(1, 3) = TextBox3.Value
        .Offset(1, 4) = TextBox4.Value
    End With
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox1.SetFocus
End Sub

Private Sub TextBox3_Change()
'
TextBox4.Text = TextBox2.Text - TextBox1.Text - TextBox3.Text
'
End Sub

Private Sub UserForm_Initialize()
    
    ActiveWorkbook.Worksheets("gegevens").Activate
    ActiveWorkbook.Worksheets("gegevens").Range("Naam").Select
    ActiveCell.Offset(1, 0).Activate
    While ActiveCell.Text <> ""
      Me.CmbNaam.AddItem ActiveCell.Value
      ActiveCell.Offset(1, 0).Activate
    Wend

End Sub

 

[Offthefield]

Als ik Textbox3="" haalt geeft hij geen foutmelding, wat moet er nog aangepast worden
om textbox3="" wel leeg te krijgen zonder foutmelding

 

[snb]

Private Sub UserForm_Initialize()
  sq=ActiveWorkbook.sheets("gegevens").Range("Naam")
  CmbNaam.List=sq
End Sub

Doet hetzelfde als

Private Sub UserForm_Initialize()

ActiveWorkbook.Worksheets("gegevens").Activate
ActiveWorkbook.Worksheets("gegevens").Range("Naam").Select
ActiveCell.Offset(1, 0).Activate
While ActiveCell.Text <> ""
Me.CmbNaam.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Wend

End Sub

PS. Vermijd select en activate in VBA-code
PPS. Er is een verbeterde methode voor While...Wend geintroduceerd in office 97 Do......Loop

 

[Offthefield]

snb,

Hartelijk dank voor de reactie

Ik heb mijn source gewijzigd in die van jou, alleen geeft hij een error

Wat doe ik verkeerd

bvd

Offthefield

 

[snb]

haal de laatste punt uit de regel met sq weg.

tekstvakken maak je leeg met de eigenschap Text:

TextBox1.Text=""

 

[Offthefield]

Nu komt de error : Variable is niet gedefinieerd

hoe moet ik deze definieren

bvd

Offthefield

 

[snb]

verwijder de regel Option Explicit

 

[Offthefield]

Hartelijk dank, het probleem is opgelost