Range område ?

Range("F2:F"& Range("F65536").End(xlUp).Row)

Hvis din kode skal køre, indtil der er en tom celle i kolonnen, kan følgende bruges:

    Dim objWB As Workbook
    Dim objWS As Worksheet
    Dim objRange As Range
    Dim objCell As Range
   
    Set objWB = ActiveWorkbook
    Set objWS = objWB.Worksheets(1)
    Set objRange = objWS.Columns("F")
   
    For Each objCell In objRange.Cells
        If objCell.Value <> "" Then
            'do something
        Else
            Exit For
        End If
    Next objCell

Dim C As Range
    For Each C In Range("F2:F" & Range("F65536").End(xlUp).Row)
        If C = "hej" Then
            ' gør noget
            'hvis den kun skal finde 1 værdi, gør det koden hurtigere ved at enable næste linie
            'Exit Sub
        End If
    Next

Word-hajen
ved din kode skal du hiske at skrive

Set objWB = Nothing

for alle de Set du laver, det tømmer hukiommelsen

jeg prøver igen, uden brede fingre

Word-hajen
ved din kode skal du huske at skrive

Set objWB = Nothing

Til slut i koden,for alle de Set du laver, det tømmer hukommelsen

kabbak - jamen ..øhhh... tak for det. Det ved jeg godt, men jeg forventede ikke, at jeg skulle skrive alle kodelinjerne. I så fald havde jeg også inkluderet fejlhåndtering.

Vord-Hajen >  rabitjosph, Er forholdsvis ny, har kun stillet 12 spørgsmål, her på eksperten, derfor synes jeg det er vigtigt at skrive en fuldstændig kode, så han/hun han lære noget.

kabbak - det er da superfint, at du vil yde den service over for en ny bruger, men det betyder ikke, at jeg nødvendigvis er opmærksom på, at det er en forholdsvis ny bruger. Egentlig synes jeg, at det er en smule fjollet det her - jeg har givet min løsning, du har givet din.

Hej Med Jer
Ja, Jeg er ny her, men lad nu være med at faler over hianden, det
er bare så rart når nogle hjælper, så tak til begge

OBS send svar så point kan fordeles

ok, et svar ;-))

Velbekomme. Og hermed et svar.