Avatar billede tvc Seniormester
24. oktober 2016 - 21:20 Der er 1 løsning

VBA - Undersøg om celler indeholder værdi fra en liste

Hej

Jeg har endnu en lille VBA, der ikke helt gør som jeg håbede på.

Formålet er at den skal undersøge værdierne i kolonne H og se om de fremgår af listen i Range("O_M_Konto_navn").


Sub MappingTest()
'Undersøger om der er anvendt mappings, der ikke findes i den aktuelle mappingliste

Dim c As Long, l As Long, Mrk As Long, MappingName As Boolean


Mrk = Sheets("Mapping").Cells(65000, "H").End(xlUp).Row

For c = 3 To Mrk
       
    For Each cell In Range("O_M_Konto_navn")
        If Sheets("Mapping").Cells(c, "H") = cell.Value Then
            MappingName = True
        End If
    Next
   
    If Not MappingName = True Then
        MsgBox "Mapping i række " & c & " findes ikke.", vbOKOnly, " | Information"
        Sheets("Mapping").Cells(c, "H").Select
          Exit Sub
    End If
Next c
End Sub
Avatar billede tvc Seniormester
26. oktober 2016 - 23:00 #1
Fandt løsningen:

Sub MappingOpdateret()

Dim r As Long, Mapping As String


Application.ScreenUpdating = False

'Gennemløber kolonnen H indtil blank mødes
With ActiveWorkbook.Sheets("Mapping")
For r = 3 To 1000
Mapping = .Range("H" & CStr(r)).Value
If Mapping <> "" Then
'Undersøg om Mapping findes i listen
If FindMapping(Mapping) = False Then
MsgBox "Mapping [" & Mapping & "] findes ikke som regnskabspost. " & vbLf & "Vælg en eksisterende mappping."
ActiveWorkbook.Sheets("Mapping").Range("H" & CStr(r)).Select
Exit Sub
End If
Else
MsgBox "Mapping kontrolleret. Ingen fejl fundet."
Exit Sub
End If
Next r
End With

Application.ScreenUpdating = True

ActiveWorkbook.Sheets("Mapping").Activate
End Sub

Private Function FindMapping(mapnavn)
With Ark08.Range("O_M_Konto_navn")
Set c = .Find(mapnavn, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
FindMapping = True
Else
FindMapping = False
End If
End With
End Function
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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