tekst converteren naar getal

[willie76]

Forummers,

ik ben het gehel forum al doorgekomen en ben ook best wel een aantal postings tegengekomen, maar geen van allen bied/bood de juiste oplossing.
Vandaar deze post:

Ik heb een stuk VBA staan wat er zo uit ziet:

Private Sub CommandButton1_Click()
    With Sheets("Database")
    For Each cl In Sheets("Data").Range("B1, B2, B4, B5, B7, B8, B11, B12, B16, B17, B18, B19, B20, B21, B22, B23, B24, B25, B28, B29, B30, B31, B32, B33, B34, B35, B36, B37, B48, B49, B50, B51, B52, B53, B54, B55, B56, B57")
     c01 = c01 & "|" & cl.Value
     Next
     .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 38).Value = Split(Mid(c01, 2), "|")
     End With
MsgBox "Waarden zijn opgeslagen in de database!", vbOKOnly
End Sub

Hiermee sla ik dus een aantal getallen uit een bepaalde range op in een database.
Werkt op zich prima, alleen staat het in de database als text en niet als getal, ondanks dat ik toch .Value opgeef.

Waar ga ik de mist in ???

Alvast bedankt

 

[Cobbe]

Zo zou het kunnen, want door je array maak je er een tekst van en deze moet je dan weer converteren naar een getal:

Private Sub CommandButton1_Click()
    With Sheets(1)
    For Each cl In Sheets(2).Range("B1, B2, B4, B5, B7, B8, B11, B12, B16, B17, B18, B19, B20, B21, B22, B23, B24, B25, B28, B29, B30, B31, B32, B33, B34, B35, B36, B37, B48, B49, B50, B51, B52, B53, B54, B55, B56, B57")
     c01 = c01 & "|" & cl.Value
     Next
     .Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 38).Value = Split(Mid(c01, 2), "|")
     .Rows(.Range("A" & .Rows.Count).End(xlUp).Row + 1).Value = Rows(.Range("A" & .Rows.Count).End(xlUp).Row+1).Value
     End With
MsgBox "Waarden zijn opgeslagen in de database!", vbOKOnly
End Sub

 

[willie76]

Thx Cobbe voor je reactie, maar t heeft niet tot het gewenste resultaat geleid.
Excel (2010) slaat het nog steeds op in de database als text ipv getal........
In het tabblad "data" staat de celeigenschap WEL op getal, dus daar zijn t wel getallen.

Een mogelijke andere oplossing of andere VBA-code ????

Ik heb echt geen idee waar ik het zou moeten zoeken.........