Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
for i=120 tot 158
range(i-119,1).value = Cint(textbox(i).Tekst)
next
Private Sub Ok_button_Click()
Dim bed As Double, bed2 As Double
If ActiveSheet.AutoFilterMode = True Then
Cells.AutoFilter
End If
If TextBox160 = "" Then
TextBox160 = 0
End If
bed = TextBox160
bed2 = 0
If TextBox161 <> "" Then
bed2 = TextBox161
TextBox161 = FormatCurrency(Replace(TextBox161, ".", ","), 2)
End If
Sheets("Blad1").Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(, 4) = Array(FrmInvoer.ComboBox1.Text, FrmInvoer.Txt_Datum, bed, bed2)
Sheets("Blad2").Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 1) = Array(FrmInvoer.Txt_Lid.Text)
Sheets("Controle").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 24) = Array(FrmInvoer.ComboBox1.Text, FrmInvoer.Txt_Datum, FrmInvoer.TextBox120, FrmInvoer.TextBox122, FrmInvoer.TextBox124, FrmInvoer.TextBox126, FrmInvoer.TextBox128, FrmInvoer.TextBox130, FrmInvoer.TextBox132, FrmInvoer.TextBox134, FrmInvoer.TextBox136, FrmInvoer.TextBox138, FrmInvoer.TextBox140, FrmInvoer.TextBox142, FrmInvoer.TextBox144, FrmInvoer.TextBox146, FrmInvoer.TextBox148, FrmInvoer.TextBox150, FrmInvoer.TextBox152, FrmInvoer.TextBox154, TextBox156, TextBox158, bed, bed2)
For i = 120 To 161
Controls("TextBox" & i).Value = ""
Next i
For i = 120 To 158
Range(i - 119, 1).Value = CInt(TextBox(i).Tekst)
Next
End Sub
For i = 120 To 158
Range(i - 119, 1).Value = CInt(Controls("TextBox" & i).Value)
Next
Sub VulAantallen()
Dim Aantal(18) As Integer
Dim Regel As Integer
Dim x As Integer
For i = 122 To 158 Step 2 'De tekstbox nummers (even)
Aantal(x) = CInt(Controls("TextBox" & i).Value) 'Vul de array
x = x + 1 'Array element nummer (Begint bij 0)
Next i
Regel = 5 'De regel in blad Controle
For x = 0 To 18 'Array element 0 t/m 18
Cells(Regel, x + 3) = Aantal(x) 'Vul de cel met de waarde van het array element
Next x
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.