Survey in excel

Michel1955 · 23 nov 2015

Hi,

Ik heb een Survey in Excel gemaakt met ongeveer 200 ingaves. Werkt prima, alleen is de VBA lang(dradig).

Ik maak gebruik van ActiveX controls (textvelden, listbox, combobox en etc.).
Wanneer ik de naam van de velden wijzig van veldnaam naar Q1 tot Q200 dan loopt het op bepaalde plaatsen mis.

vb. dit werkt
Private Sub makenull()
Sheet1.Q1 = Null
Sheet1.Q2 = Null
....
Sheet.Q200 = Null
End Sub

vb. dit werkt niet
Private Sub makenull()
Dim i As Integer
For i = 1 To 200
Sheet1("q" & i) = Null
Next i
End Sub

Ik al van alles geprobeerd maar ik geraak er niet uit.

Tx

Warme bakkertje · 23 nov 2015

Code:

Private Sub tst()
For i = 1 To 200
    Sheet1.OLEObjects("Q" & i).Object = vbNullString
Next
End Sub

Survey in excel

Michel1955

Gebruiker

Warme bakkertje

Meubilair

Nieuwste berichten

Wij waarderen jouw privacy