[EXCEL] VBA Userform textbox naar getal omzetten.

[AcidBanger]

Geachte mede-Tweakers,

Ik heb weer is een probleem. Ik heb binnen excel een userform aangemaakt met VBA.
Het probleem is dat ik als cijfers invoer en die vervolgens naar een cell laat kopieëren geeft de foutcontrole aan dat het als text is ingevoerd. Hoe zorg ik dat mijn textbox alles als cijfers uitpoept om het zo maar even te zeggen. Want nu krijg ik van die random #WAARDE errors omdat de getallen dan als tekst zijn ingevoerd.

[ Voor 4% gewijzigd door AcidBanger op 25-06-2015 16:09 ]

[Coffeemonster]

Kun je niets met de Excel-functie VALUE()? In de Nederlandse versie heet deze WAARDE().

[AcidBanger]

Ik laat alles nu kopiëren met deze functie

code:

Range("A17") = TextBox5
Range("B17") = TextBox6
Range("G17") = TextBox7
Range("J17") = TextBox8

Range("A18") = TextBox9
Range("B18") = TextBox10
Range("G18") = TextBox11
Range("J18") = TextBox12

Range("A19") = TextBox13
Range("B19") = TextBox14
Range("G19") = TextBox15
Range("J19") = TextBox16

Range("A20") = TextBox17
Range("B20") = TextBox18
Range("G20") = TextBox19
Range("J20") = TextBox20

Range("A21") = TextBox21
Range("B21") = TextBox22
Range("G21") = TextBox23
Range("J21") = TextBox24

Range("A22") = TextBox25
Range("B22") = TextBox26
Range("G22") = TextBox27
Range("J22") = TextBox28

Range("A23") = TextBox29
Range("B23") = TextBox30
Range("G23") = TextBox31
Range("J23") = TextBox32

Range("A24") = TextBox33
Range("B24") = TextBox34
Range("G24") = TextBox35
Range("J24") = TextBox36

Range("A25") = TextBox37
Range("B25") = TextBox38
Range("G25") = TextBox39
Range("J25") = TextBox40

Range("A26") = TextBox41
Range("B26") = TextBox42
Range("G26") = TextBox43
Range("J26") = TextBox44

Range("A27") = TextBox45
Range("B27") = TextBox46
Range("G27") = TextBox47
Range("J27") = TextBox48

Range("A28") = TextBox49
Range("B28") = TextBox50
Range("G28") = TextBox51
Range("J28") = TextBox52

Range("A29") = TextBox53
Range("B29") = TextBox54
Range("G29") = TextBox55
Range("J29") = TextBox56

Range("A30") = TextBox57
Range("B30") = TextBox58
Range("G30") = TextBox59
Range("J30") = TextBox60

Range("A31") = TextBox61
Range("B31") = TextBox62
Range("G31") = TextBox63
Range("J31") = TextBox64

Range("A32") = TextBox65
Range("B32") = TextBox66
Range("G32") = TextBox67
Range("J32") = TextBox68

Range("A33") = TextBox69
Range("B33") = TextBox70
Range("G33") = TextBox71
Range("J33") = TextBox72

'Artikelen tweede pagina kopieëren naar excel

Range("A59") = TextBox73
Range("B59") = TextBox74
Range("G59") = TextBox75
Range("J59") = TextBox76

Range("A60") = TextBox77
Range("B60") = TextBox78
Range("G60") = TextBox79
Range("J60") = TextBox80

Range("A61") = TextBox81
Range("B61") = TextBox82
Range("G61") = TextBox83
Range("J61") = TextBox84

Range("A62") = TextBox85
Range("B62") = TextBox86
Range("G62") = TextBox87
Range("J62") = TextBox88

Range("A63") = TextBox89
Range("B63") = TextBox90
Range("G63") = TextBox91
Range("J63") = TextBox92

Range("A64") = TextBox93
Range("B64") = TextBox94
Range("G64") = TextBox95
Range("J64") = TextBox96

Range("A65") = TextBox97
Range("B65") = TextBox98
Range("G65") = TextBox99
Range("J65") = TextBox100

Range("A66") = TextBox101
Range("B66") = TextBox102
Range("G66") = TextBox103
Range("J66") = TextBox104

Range("A67") = TextBox105
Range("B67") = TextBox106
Range("G67") = TextBox107
Range("J67") = TextBox108

Range("A68") = TextBox109
Range("B68") = TextBox110
Range("G68") = TextBox111
Range("J68") = TextBox112

Range("A69") = TextBox113
Range("B69") = TextBox114
Range("G69") = TextBox115
Range("J69") = TextBox116

Range("A70") = TextBox117
Range("B70") = TextBox118
Range("G70") = TextBox119
Range("J70") = TextBox120

Range("A71") = TextBox121
Range("B71") = TextBox122
Range("G71") = TextBox123
Range("J71") = TextBox124

Range("A72") = TextBox125
Range("B72") = TextBox126
Range("G72") = TextBox127
Range("J72") = TextBox128

Range("A73") = TextBox129
Range("B73") = TextBox130
Range("G73") = TextBox131
Range("J73") = TextBox132

Range("A74") = TextBox133
Range("B74") = TextBox134
Range("G74") = TextBox135
Range("J74") = TextBox136

Range("A75") = TextBox137
Range("B75") = TextBox138
Range("G75") = TextBox139
Range("J75") = TextBox140

Ik zou niet weten waar ik die WAARDE() kwijt moet in mijn sheet omdat te laten functioneren aangezien alles word over gekopieerd.

[Coffeemonster]

Daar kun je in dit geval de VBA-functie VAL() voor gebruiken.

[ Voor 3% gewijzigd door Coffeemonster op 25-06-2015 17:37 ]

[Witte]

cel=iif(isnumeric(waarde),val(waarde),"")