van tekst naar getal

[renedecombi]

hallo beste forumleden
ik heb een vraag over getallen die weggeschreven worden als tekst nu heb ik alles afgezocht maar kan daar niks passend voor vinden ik had ook een macro die ik iedere keer moest activeren en dan werkt het wel maar kan dat niet automatisch worden dan

Sub Enter_Values()
          For Each xCell In Selection
              xCell.Value = xCell.Value
          Next xCell
      End Sub

het is de bedoeling datik met een vba diverse getallen wegschrijf naar een blad dat kaartverkoop heet en het bereik zijn diverse kolommen o.a D12 tot en met D43 en F12 t/m F43 en dan nog een paar en waar moet ik dan die code schrijven op het blad zelf of op de kaartformulier dank je wel alvast

groeten rene

 

[BjorntobeWild]

Je bedoeld zoiets als dit?

Sheets("NaamVanBlad").Cells(1, 1).Value = Cells(1, 1).Value

 

[renedecombi]

maar waar plaats je die code dan o pdie formulier of op het werkblad

groetjes rene

 

[HSV]

Hoe ziet de code eruit die het wegschrijft als tekst.
Als je het niet als tekst wil, dan moet je het daar in zoeken, en hoef je het naderhand niet te corrigeren.

 

[renedecombi]

hallo harry

dit is de code

Private Sub CommandButton1_Click()

'waar gaan we opslaan
legeregel = Worksheets("Kaartverkoop").Range("d" & Rows.Count).End(xlUp).Row + 1

'wat gaan we opslaan

kaart1 = Kaartformulier.kaart1.Value

    With Worksheets("Kaartverkoop")
        .Range("d" & legeregel) = kaart1
        .Range("f" & legeregel) = kaart2
        .Range("h" & legeregel) = kaart3
        .Range("j" & legeregel) = kaart4
        .Range("p" & legeregel) = kaart5
        .Range("r" & legeregel) = kaart6
        .Range("t" & legeregel) = kaart7
        .Range("v" & legeregel) = kaart8
        .Range("ab" & legeregel) = Kaart9
        .Range("ad" & legeregel) = kaart10
        .Range("af" & legeregel) = kaart11
        .Range("ah" & legeregel) = kaart12
        .Range("an" & legeregel) = kaart13
        .Range("ap" & legeregel) = kaart14
        .Range("ar" & legeregel) = kaart15
        .Range("at" & legeregel) = kaart16
  
    End With

Load Me
End Sub

dank je wel groetjes rene

 

[HSV]

Is 'kaart1' een textbox?

 

[renedecombi]

ja dat is een textbox

groeten rene

 

[HSV]

En zo?

.Range("d" & legeregel) = kaart1[COLOR="red"].value[/COLOR]

 

[renedecombi]

jippie het werkt hartelijk bedankt harry ik verwonder me steeds daarover ik heb echt alles geprobeert en opgezocht en dan is het weer eenvoudig echt toppie thanks

vriendelijke groet rene:thumb: