Omwisselen inhoud combobox met knop en ...

[johnny1980]

Beste helpers,

Is het mogelijk om door middel van een knop de inhoud van 2 comboboxen om te wisselen?
In bijgevoegd bestand (klik op in een cel met een datum) zou dus als er op de knop tussen het vertrek en bestemming combobox de inhoud hiervan moeten omgewisseld worden.
Met de code die er nu instaat komt enkel de inhoud van vertrek in de bestemming wat logisch is met de vba dat er nu instaat maar ik geraak niet echt verder,....

Alvast bedankt voor jullie hulp!!!
johnny

 

[gast0660]

Zo?

Private Sub CommandButton3_Click()
    temp = cmbvertrek.Value
    cmbvertrek.Value = cmbaankomst.Value
    cmbaankomst.Value = temp
End Sub

 

[snb]

Begin met het verwijderen van alle samengevoegde cellen in het werkblad.

 

[johnny1980]

Bedankt gast0660!!!!
werkt perfect!!

Johnny

 

[gast0660]

Dank voor de terugkoppeling.:thumb:

Suc6

 

[snb]

En gebruik vervolgens:

Private Sub UserForm_Activate()
    sp = Split("tbdatum tbtrein tbvertrek   cmbvertrek cmbaankomst tbaankomst   cmbvia   tbsamenstelling  tbbnx  tbbestemmeling   tbvertraging")
    sn = ActiveCell.EntireRow
    For jj = 1 To 21
       If sp(jj - 1) <> "" Then Me(sp(jj - 1)) = sn(1, jj)
    Next
End Sub

Private Sub Cmbtoevoegen_Click()
   sp = Split("tbdatum tbtrein tbvertrek   cmbvertrek cmbaankomst tbaankomst   cmbvia   tbsamenstelling  tbbnx  tbbestemmeling   tbvertraging")

   ReDim sn(0, 21)
   For jj = 0 To 20
      If sp(jj) <> "" Then sn(0, jj) = Me(sp(jj))
   Next
   
   Cells(ActiveCell.Row, 1).Resize(, 21) = sn
   UserForm1.Hide
End Sub

 

[johnny1980]

snb,

Wat doet deze code?

Johnny