Gegevens Combobox niet wegschrijven bij gevulde doelcel

[CamJacobus]

Goedemiddag,

Vanuit een userform schrijf ik gegevens weg naar diverse doelcellen op onderstaande wijze. Hoe kan ik voorkomen dat ik een gevulde doelcel overschrijf?

Private Sub cmdToevoegen_Click()
    With Sheets("Waarnemingsrapport")
        .Range("C19") = DTPicker2.Value
        .Range("C20") = txtControletijdstip.Value
        .Range("C21") = txtControlelocatie.Value
        .Range("A53") = txtOpmerkingen.Value
        
        'Productvariant 1
        .Range("C23") = txtProductnaam.Value
        .Range("C24") = cboPotmaat.Value & " " & txtPotmaat.Value
        .Range("C25") = cboAantal.Value
        .Range("C28") = cboFust.Value & " " & txtFust.Value
        .Range("C29") = cboEtiket.Value & " " & txtEtiket.Value
        .Range("C30") = cboHoes.Value & " " & txtHoes.Value
        .Range("C31") = cboSticker.Value & " " & txtSticker.Value
        .Range("C32") = cboEAN.Value & " " & txtEAN.Value
        .Range("C33") = cboLogistiekedrager.Value & " " & txtLogistiekedrager.Value
        .Range("C36") = cboHoogte.Value & " " & txtHoogtevan.Value & "-" & txtHoogtetot.Value
        .Range("C37") = cboDiameter.Value & " " & txtDiamvan.Value & "-" & txtDiamtot.Value & " cm "
        .Range("C38") = cboDikte.Value & " " & txtDikte.Value
        .Range("C39") = cboRijpheid.Value & " " & txtRijpheid.Value
        .Range("C40") = cboAantalplantenpp.Value & " " & txtAantalplantenpp.Value
        .Range("C41") = cboAantalbloem.Value & " " & txtAantalbloem.Value
        .Range("C42") = cboKleuren.Value & " " & txtKleuren.Value
        .Range("C44") = cboKlassering.Value & " " & txtKlassering.Value
   
    End With
    Unload Me
End Sub

 

[edmoor]

Dat kan o.a. zo:

Private Sub cmdToevoegen_Click()
    With Sheets("Waarnemingsrapport")
        .Range("C19") = IIf(.Range("C19") = vbNullString, DTPicker2.Value, "")

 

[CamJacobus]

Bedankt! Dit is niet helemaal wat ik bedoel. Nu worden de gevulde doelcellen leeggemaakt. Als er een cel gevuld is, dan wil ik dat deze niet overschreven wordt.

Super dat je met me mee wilt denken!

 

[edmoor]

Dom van mij inderdaad.

Private Sub cmdToevoegen_Click()
    With Sheets("Waarnemingsrapport")
        .Range("C19") = IIf(.Range("C19") = vbNullString, DTPicker2.Value, .Range("C19"))

 

[CamJacobus]

Geweldig, dit is inderdaad wat ik bedoel. Bedankt!