Avatar billede thomasolsen Nybegynder
27. marts 2003 - 11:34 Der er 6 kommentarer og
1 løsning

søgning med macro

Jeg har en macro der se sådan ud:

Sub test3()
Dim rCell As Range
For Each rCell In Range("C2:AG36").Cells
        If CStr(rCell) = "MF" And CStr(rCell.Offset(1, 0)) <> "MF" Then
            rCell.Interior.ColorIndex = 50
        End If
    Next
End Sub

Hvis den skal teste på om cellen er tom i stedet for MF hvordan gør jeg så.

Thomas
27. marts 2003 - 11:38 #1
If CStr(rCell) <> "" And CStr(rCell.Offset(1, 0)) <> "" Then
Avatar billede thomasolsen Nybegynder
27. marts 2003 - 12:39 #2
Hvis jeg ikke skriver noget maker den alle celler med MF.
27. marts 2003 - 12:41 #3
Så prøv med = i stedet

If CStr(rCell) = "" And CStr(rCell.Offset(1, 0)) = "" Then
Avatar billede thomasolsen Nybegynder
27. marts 2003 - 13:42 #4
Det virker.
Hvis jeg vil bruge en variabel hvordan udskifter jeg "MF" med en variabel.

Thomas
27. marts 2003 - 13:51 #5
Sub test3()
    Dim rCell As Range
    Dim sTemp As String
    sTemp = "MF"

    For Each rCell In Range("C2:AG36").Cells
        If CStr(rCell) = sTemp And CStr(rCell.Offset(1, 0)) <> sTemp Then
            rCell.Interior.ColorIndex = 50
        End If
    Next
End Sub
Avatar billede thomasolsen Nybegynder
27. marts 2003 - 20:21 #6
det virker
TAK
27. marts 2003 - 20:22 #7
:-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester