VBA, 'gegevens weg schrijven' automatisch onder elke cel

[snb]

Het is de bedoeling dat je met behulp van onze suggesties zelf het antwoord op je vraag formuleert.

 

[JasperVBA]

Ja klopt helemaal mee eens.
Ik heb het vandaag ook weer geprobeerd. Maar krijg steeds weer de foutmelding.

Grt Jasper

 

[HSV]

Ik doe het maar weer op onderstaande manier.
De comboboxen veranderen mee als je een foutje hebt gemaakt.

Private Sub txt2hoogte_Change()
If txt2hoogte = "" Then
  Aantalopvangertab32.ListIndex = -1
  Hoogteopvangertab33.ListIndex = -1
  JaenNeetab34.ListIndex = -1
Else
  Aantalopvangertab32.ListIndex = IIf(Val(txt2hoogte) > 2.5, 1, IIf(Val(txt2hoogte) > 0 And Val(txt2hoogte) < 0.5, 1, -1))
  Hoogteopvangertab33.ListIndex = Aantalopvangertab32.ListIndex
  JaenNeetab34.ListIndex = IIf(Val(txt2hoogte) > 0 And Val(txt2hoogte) < 0.5, 1, -1)
  
End If
End Sub

 

[JasperVBA]

Harry, is gelukt. In jouw bericht maakt Excel alleen nog het verschil met de punt en komma.

Ik wou IIF(Val(txt2hoogte) aanpassen naar reeds eerder gebruikte code, namelijk IIf(CDec(Replace(txt2hoogte, ".", ","))
Maar dat gaat niet helemaal goed met CDec. En om CDec aan te passen naar Val is niet de bedoeling.

 

[HSV]

Dag Jasper,

Verwijder de vorige code en zet deze erin.
Als je klaar bent met invullen, en je verlaat de textbox (bv. met Tab), worden de comboboxen bijgewerkt.

Private Sub txt2hoogte_AfterUpdate()
On Error Resume Next
  If txt2hoogte = "" Then
      Aantalopvangertab32.ListIndex = -1
      Hoogteopvangertab33.ListIndex = -1
      JaenNeetab34.ListIndex = -1
    Else
      Aantalopvangertab32.ListIndex = IIf(CDec(txt2hoogte) > 2.5, 1, IIf(CDec(txt2hoogte) > 0 And CDec(txt2hoogte) < 0.5, 1, -1))
      Hoogteopvangertab33.ListIndex = Aantalopvangertab32.ListIndex
      JaenNeetab34.ListIndex = IIf(CDec(txt2hoogte) > 0 And CDec(txt2hoogte) < 0.5, 1, -1)
  End If
End Sub