character count

Kan du ikke bruge
=Længde(A1)

jo det kan jeg, men jeg har flere tusinde rækker, og jeg vil have antallet af tegn til at stå udfor hver række. Hvordan undgår jeg at skulle skrive funktionen flere tusinde gange ?

hvis den ikke må tælle tomme

=LÆNGDE(UDSKIFT(A1;" ";""))

øhh er ikke helt med....sorry.

har prøvet at bruge =LÆNGDE(UDSKIFT(A1;" ";"")) men den skriver kun antal tegn i A1

så skal den blot kopieres så langt ned du har værdier i kolonne A

ellers marker cellen med formlen indsat og kør denne kode

Sub fyld()
ActiveCell.Copy Range("B1:B5000")
End Sub

den kopierer til række 5000

Du kan kopiere formlen til alle de rækker du ønsker.
Tag fat i "håndtaget" i nederste højre hjørne i cellen og træk nedad.

jah det kan jeg se !!! cool tak for hjælpen erikjuul, det løser mit problem. Men hvis jeg nu får ondt i hånden af at trække flere tusinde rækker nedad, kan jeg programmere mig ud af det ? hele denne kolonne =Længde(A1 til A8888)      :-)

hmm kan man få den til at tælle "mellemrum" også ?

sorry det gør den jo  hehe super

ja det gør eriks forslag

jah det kan jeg se *s*

Men hvis jeg nu får ondt i hånden af at trække flere tusinde rækker nedad, kan jeg programmere mig ud af det ? hele denne kolonne =Længde(A1 til A8888)      :-)

Det tager få sekunder at foretage den kopiering -kan ikke se problemet.

erikjuul, jeg har brugt dit forslag, synes du skal have pointene.

Lige et ekstra spørgsmål:

nu vil jeg gerne have at mit resultat bliver vist i en anden kolonne hvis den = eller > end X  altså IF B1 => X skriv B1 i C1    hvordan skriver man lige det i excel-sprog ?  :)

I C1 indtastes:
=HVIS(B1>"værdi";B1;"")

Hvis du vil slippe for at skulle sidde og trække i musen over lange strækninger, så prøv at dobbeltklikke på "sigtekornet", som kommer frem, når du kører markøren hen over det nederste, højre hjørne i den celle, du skal kopiere (forudsætter dog, at der står noget i cellerne til højre eller venstre for den celle, der skal kopieres og i cellerne nedenunder).

Supplement til at undgå at "få træk" - herop til jul:

Makro til automatisk kopiering af formel - idet formel indsættes i første række - derefter kopiere makroen til og med sidste række.

Sub KopierFormel()
Dim c, antalRæk
    ActiveWorkbook.Sheets(1).Activate
   
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    ActiveSheet.Cells(1, 2).Copy                        'kopieres B1
   
    For f = 2 To antalRæk
        ff = CStr(f)
        c = "B" + ff
       
        ActiveSheet.Range(c).Select
        Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Next f
   
    Application.CutCopyMode = False
End Sub

Tak for alle kommentarer