Problem med filter...

Sub tst()
For Each c In Range("A1:A100")
If c >= 1 And c <= 5 Then MsgBox c & " - " & c.Offset(0, 1)
Next
End Sub

Tak excelent...

men mine værdier i kolonne A er:
1.nogettekst
2.nogetandet
2.nogetandet
2.nogetandet
3.osv
3.osv
3.osv
3.osv

Vil gerne køre koden på fx 1.nogetekst & 3.osv titlerne. men kun på cellerne i kolonne B... Knap så godt forklaret fra min side :(

ok prøv lige med denne

Sub tst2()
For Each c In Range("A1:A20")
If Left(c, 2) >= 1 And Left(c, 2) <= 5 Then MsgBox c & " - " & c.Offset(0, 1)
Next
End Sub

Jeg er kørt lidt fast... Vi tar den lige forfra!
Kan godt se det virker men har lidt problemer med at flette følgende kode ind i det: (Koden tar første i ord i Kolonne D og klipper det over i C)
   
    Dim str1 As String
    With Range("d7")
        str1 = .Value
        .Offset(0, -1) = Trim(Left(str1, InStr(1, str1, " ")))
        .Value = Trim(Replace(.Value, .Offset(0, -1), ""))
    End With

Tror du er med på hvad jeg vil excelent
Titler står i Kolonne B
Klippet tekst skal stå i C
Hele teksten står i D

Skriv lige et eks. på hvordan det ser ud før og efter - husk kolonnebogstav, så jeg kan se hvor stumperne er

Har sendt dig en mail!
Tak fordi du gider se på det...

Sub Opdel()
For Each c In Range("B2:B7")
If Left(c, 2) >= 2 And Left(c, 2) <= 3 Then
x = c.Offset(0, 2).Value
If InStr(1, Trim(x), " ") = 0 Then c.Offset(0, 1) = x Else c.Offset(0, 1) = Left(x, InStr(1, x, " "))
c.Offset(0, 2).Value = Replace(c.Offset(0, 2).Value, c.Offset(0, 1).Value, "")
End If
Next
End Sub

Hej Excelent

Hvis den nu i mit tilfælde skal kigge på 1 & 3 så tar den naturligvis 2 med, det ik lige så godt.

If Left(C, 2) = 1 Or Left(C, 2) = 3 Then

Smid lige et svar...
Tak for hjælpen!

nej det er rigtig, men det har du helt styr på kan jeg se :-)