16. juni 2010 - 13:15Der er
15 kommentarer og 1 løsning
Konverter String til Tal (macro)
Hej eksperter.
Jeg har denne macro kode:
___________________________________ Dim celle As String, nycelle As String, række As Long Dim Slut As Long, mellemRum As Byte, underStreg As Byte Slut = Range("A65536").End(xlUp).Row Application.ScreenUpdating = False
'Does the GLOBE code cleaning For række = 2 To Slut celle = Cells(række, 1) underStreg = InStr(celle, "__") mellemRum = InStr(celle, " ")
If underStreg > 0 And mellemRum > 0 Then nycelle = Mid(celle, underStreg + 2, mellemRum - (underStreg + 2)) Cells(række, 1) = nycelle
End If Next række ___________________________________
Mit problem er at nycelle er defineret som String og jeg skal egentlige bruge et tal (Long), hvordan konverterer jeg min nycelle til et tal inden jeg skriver vaerdien ind i min aktuelle celle - har proevet mange forskellige loesninger, men har endnu ikke kunne finde en der har fungeret (giver fejl), haaber I kan hjaelpe
Hej Supertekst - det kan jeg desvaerre ikke :o( aLternativt, kan jeg evt. lave en lykke der koere en kolonne igennem og formaterer hver celle fra tekst til tal ved at gange den med 1 - er bare heller ikke sikker paa hvordan jeg laver sadan en?
Ok - er cellernei kolonne A på forhånd defineret som tekst?
Alternativt kunne du måske uddrage en lille model, der indeholder samme formatering af celler og et fiktivt indhold på f.eks. 3 linier, hvor opbyg med understregning og mellemrum er realistisk og sende denne inkl. VBA-koden.
For række = 3 To Slut Range("D" & række).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ SkipBlanks:=False, Transpose:=False Next række
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
