For each...

hvad skal der ske med de poster du finder ?

Public Sub LoopEks()
    Dim rCell As Range
    Dim rCurReg As Range
   
    ' Finder dit område uden overskrifter
    Set rCurReg = Sheets("Data").Range("A1").CurrentRegion
    Set rCurReg = rCurReg.Offset(1, 0).Resize(rCurReg.Rows.Count - 1)
   
    ' Gennemløber alle celler i kolonne 1 (A)
    For Each rCell In rCurReg.Columns(1).Cells
        With rCell
            If .Value > TextBox1.Value And .Value < TextBox2.Value Then
                ' What do you want to do ?
            End If
        End With
    Next rCell
   
    Set rCell = Nothing
    Set rCurReg = Nothing
End Sub

(Hej igen Flemming :=) Posterne skal danne grundlag for et diagram, som skal vise en udvikling i eks. det valgte tidsrum eller inden for en bestemt kategori. Herefter skal det fundne slettes igen, så man kan vælge på ny. I bund og grund havde jeg tænkt mig at kopiere det fundne over i et tomt ark, og lade diagrammet hente sine værdier der - og så slette det igen, mest for at jeg selv kan overskue det *S*...
Apropos; hvorfor det lille "r" foran Cell ?

Det lille r er for at jeg kan se, at variablen er af typen Range lille s for String osv.

Fik du det løst ?

Hej Flemming. Ikke endnu - planlægning af kollektiv trafik i december kan tage pusten fra selv den bedste - så jeg får først en levende chance for at lege lidt med det sidst i næste uge. Så skal jeg nok give lyd fra mig. Frygteligt med det arbejde...........

---->flemmingdahl.  Jeps !!! Nu er jeg kørende. Tak igen-igen. Du er sq da helt dygtig til dette her.

valsoeje - pyha det var heldigt - lever jo også af det.... klik på mit navn og få min hjemmeside adresse.

Din side er nu blandt mine favoritter :=) Smart lille ting, den QueryClose kode. Indtil videre havde jeg (grin bare...*S*) valgt at gemme en knap på selve regnearket BAG ved userformen; den havde teksten "klik her, hvis inputmasken er væk...". Hvad skal jeg sige ? Det virkede jo - sådan set...

jaja - alle veje fører til Rom - du er velkommen med input, hvis du finder på noget genialt. :-)