Felttjek - findes navn i flere felter

Public Sub DemoExistsTwice()
    'Checker om en tekst/værdi findes flere gange i det markerede område
    Dim rCell As Range
    Dim iFound As Integer
    Dim sText As String
   
    iFound = 0
    sText = InputBox("Indtast tekst/værdi der skal checkes for antal gentagelser", "System input")
    If Not sText = "" Then
        For Each rCell In Selection.Cells
            If Trim(LCase(rCell.Value)) = LCase(sText) Then iFound = iFound + 1
        Next rCell
       
        MsgBox "Teksten: " & sText & " blev fundet " & iFound & " gange i det markerede område", _
              vbInformation + vbOKOnly, "Systeminformation"
    End If
End Sub

Tak, jeg er nok ikke så meget inde i det, så hvordan bruger jeg dette i excel?

?

-Åben dit Excel ark
-Tryk på Alt+11 for at åbne Visual Basic editoren
-Vælg Insert og Module
-Indsæt makroen i det store hvide område som er fremkommet
-Luk visual Basic editoren
-Se evt. mere ved at downloade denne guide http://www.smartoffice.dk/Tips/LibrarySource.asp?App=Guide&Lib=Excel_Visual_Basic_Editor

-I regnearket markerer du de celler du vil have checket på
-Tryk F8
-Check at det er "DemoExistsTwice" makroen der er markeret
-Tryk Run
-Svar på spørgsmålet og tryk OK

Hej

Tak for det. Fik det til at virke. Men det er lidt anderledes jeg skal have den til at virke

Jeg har nok ikke beskrevet det godt nok.

Jeg har nogle arbejdsplaner i et sheet. Der er for 6 forskellige grupper (med mulighed for op til 10 senere)

Ved alle grupper er ugerne angivet i kolonne 1 på y aksen
I kolonne 2 mandag, kollonne 3 tirsdag, kollonne 4 onsdag osv

I felterne står "Type navn arbejde" f.eks. "nor6 Jens programmering" (uden anførselstegn)

Det jeg så skal tjekke er:
Om navn findes flere steder ved første gruppe, anden gruppe, tredie gruppe osv
Således at man ser om en person er dobbeltbooket

Såfremt det er en lidt stor opgave til her, hvad skal du så have for at lave det, og kan du lave faktura hvis det er?

Hej - kan du ikke sende mig arket - se min profil for e-mail

Gik lidt i stå med det, men du får point som tak for hjælpen :)

Lukker