Getal word als tekst weggeschreven

[patrickje]

Ik maak gebruik van een userform

Nu heb ik een keuzelijst met invoervak. daar maak ik een keuze en bevestig deze met de ok knop

 Private Sub CommandButton4_Click()
Dim i As Integer

  ActiveWorkbook.Worksheets("Blad1").Activate               
  ActiveWorkbook.Worksheets("Blad1").Range("A1").Select    
  
  Range("A1").ClearContents
  
        If ActiveCell.Value = "" Then ActiveCell.Value = Me.ComboBox1:                            
       ComboBox1.Value = ""                                            
       
    End Sub

Nu schrijft hij het getal als tekst weg

wie kan me helpen ???

 

[Warme bakkertje]

Private Sub CommandButton4_Click()
Sheets("Blad1").[A1].Value = Me.ComboBox1.Value
ComboBox1.Value = ""                                            
End Sub

 

[paulva]

Ik vrees dat het probleem dan nog niet opgelost is, warme bakkertje.
Dan staat er nog steeds tekst en geen getal.
Dit lukt wel:
CInt(Me.ComboBox1.value) voor gehele getallen
CDbl(Me.ComboBox1.value) voor getallen met decimale cijfers.
Je moet dan wel opletten of je een punt of een komma gaat gebruiken. Dat kan nog wat problemen geven.

 

[ExcelAmateur]

paulva,

Ik denk dat het zo wel lukt.

Private Sub CommandButton4_Click()
  Sheets("Blad1").[A1].Value = Me.ComboBox1.Value * 1
  ComboBox1.Value = ""                                          
End Sub

 

[patrickje]

Hey jongens bedankt deze werkt wel.

Alleen een vraagje:
als ik geen waarde opgeef in de validatielijst en dan op commandbutton 4 click dan geeft hij een fout aan

type komen niet met elkaar over een

Hoe kan ik i.p.v een vba error een pop up laten komen dat de waardes niet goed zijn ingevoerd ?

 

[HSV]

Bv.

On Error Goto einde
..jouw.....code..
Exit Sub
einde:
 MsgBox "blabla"

 

[patrickje]

Ok dank je maar waar moet ik die precies plaatsen

Bij elke userform of in het workbook ???

 

[HSV]

Bij je code waar de foutmelding komt.

 

[patrickje]

Ik heb het al voor elkaar

Dank je voor je snelle reactie

 

[Warme bakkertje]

Of

Private Sub CommandButton4_Click()
  On Error Resume Next
  Sheets("Blad1").[A1].Value = Me.ComboBox1.Value * 1
  If Err.Number <> 0 Then MsgBox "Er is geen waarde geselecteerd": Exit Sub
  ComboBox1.Value = ""
End Sub