Makro: Marker område ud fra værdi i celle

Hvordan vælges den ønskede måned?

optimalt set skal den referere til en celle hvori jeg løbende opdaterer hvilken måned, der er relevant, eller også kan den sagtens stå inde i selve koden. (det gør ikke så meget)

I mit ark er den en masse data, hvor kolonne Q inddeler dem efter måned, og så er det min plan at koden skal markere de rækker hvor der i kolonne q står "februar 2011", således at jeg efterfølgende kan sortere den markerede data efter et ønsket kriterium (men den sidste del kan jeg godt finde ud af at tilføje).

Håber jeg får det formuleret klart nok?

ok - er på sporet - vender tilbage..

Koden anbringes under det relevante ark:
(Hvis du vil have en kopi af min model - så send en mail - så returnerer jeg denne. @-adresse under min profil)

Dim markeretOmråde As String, fra As String, til As String, wTab As Variant
Dim fraRæk As Long, tilRæk As Long, fraKol As String, tilKol As String

Dim måned As String
Public Sub markerOmråde()
    måned = "februar 2011"
   
    findStartOgSlutRække
    søgMåned
End Sub
Private Sub findStartOgSlutRække()
    markeretOmråde = Selection.Address
   
    If InStr(markeretOmråde, ":") > 0 Then
        wTab = Split(markeretOmråde, ":")
        fra = wTab(0)
        til = wTab(1)
       
        wTab = Split(fra, "$")
        fraKol = wTab(1)
        fraRæk = wTab(2)
       
        wTab = Split(til, "$")
        tilKol = wTab(1)
        tilRæk = wTab(2)
    Else
        MsgBox "Ingen markering!"
    End If
End Sub
Private Sub søgMåned()
Dim ræk, område As String, antal As Long
    område = ""
    antal = 0
   
    For ræk = fraRæk To tilRæk
        If måned = Range("Q" & ræk) Then
            If antal >= 1 Then
                område = område & ","
            End If
           
            område = område & fraKol & CStr(ræk) & ":" & tilKol & CStr(ræk)
            antal = antal + 1
        End If
    Next ræk
    Range(område).Select
End Sub

perfekt, jeg har lige sendt dig en mail.

Du får et svar..

Tusind tak for hjælpen... Desværre virkede den ikke til mit formål alligevel, da makroen går ind og markere hver enkelt række, fremfor et område, og hvis man markerer flere rækker, så kan excel ikke sortere dem..

Desuden kunne jeg kun få den til at virke, hvis jeg ikke markerede færre end 35 rækker.

Men du skal selvfølgelig have point for din indsats!

Ok - lidt ærgeligt at det ikke lykkedes.. og selv tak