kontrollere om der står tal i kolonne L

Sub test()
Dim Besked As String, I As Long, Y As Long

Ark = Array("Ark1", "Ark2")
Besked = "Der er følgende fejl:" & Chr(10)
For I = 0 To UBound(Ark)
    Besked = Besked & Chr(10) & Ark(I)
    Sheets(Ark(I)).Select
    Slut = Range("L65536").End(xlUp).Row
    For Y = 1 To Slut
        If Range("L" & Y).Value = 1 Then
            Besked = Besked & Chr(10) & Range("A" & Y).Value
        End If
    Next
Next
MsgBox Besked
End Sub

Lidt pænere, og incl rækkenr.:

Sub test()
Dim Besked As String, I As Long, Y As Long

Ark = Array("Ark1", "Ark2")
Besked = "Der er følgende fejl:" & Chr(10) & Chr(10)
For I = 0 To UBound(Ark)
    Besked = Besked & Ark(I)
    Sheets(Ark(I)).Select
    Slut = Range("L65536").End(xlUp).Row
    For Y = 1 To Slut
        If Range("L" & Y).Value = 1 Then
            Besked = Besked & Chr(10) & Range("A" & Y).Value & "  Rk. " & Y
        End If
    Next
    Besked = Besked & Chr(10) & Chr(10)
Next
MsgBox Besked
End Sub

Hmmm. ikke helt sikker på at jeg forstår problemet.

Men lad os lige prøve...
Sådan skal ark1 se ud - foruden kollone L og hvad der ellers er af kolonner
    A    B                    C                D          E                F
10  X  =hvis(l10=1;a10;0) =hvis(b10=0;1;0) =d9+c10  =hvis(d10>d9;d10;0)  =b10
11  X  =hvis(l11=1;a11;0) =hvis(b11=0;1;0) =d10+c11  =hvis(d11>d10;d11;0) =b11
Ark 2 stort set ligesådan.

Ark N    (viser resultatet)
  A              B                                      C
10 1 =lopslag(a1;ark1!$e$10:$f$100,2;FALSK)=lopslag(a1;ark2!$e$10:$f$100,2;FALSK)       
11 2 =lopslag(a2;ark1!$e$10:$f$100,2;FALSK)=lopslag(a2;ark2!$e$10:$f$100,2;FALSK)     

I alle tre ark skal række 10 kopieres nedaf.


Lidt besværlig - men det virker.

Af en eller anden grund laver den fejl i denne linie.

Sheets(Ark(I)).Select

Jeg har prøvet at fjerne den og så virker det.


Da mine ark hedder noget temmlig mærkeligt kunne jeg godt tænke mig at jeg selv kunne ændre navnet på arket i koden f.eks. "planlæg" og "konklusion"

Nej, har lige kigget en ekstra gang på det.
Det virker fint som det er. Jeg retter bare navnet på arket :-)

Mange tak for indsatsen.
Jeg har brugt Akyhne´s svar.

Har du et svar :-)

Den linie der var fejl i var pga. navnet på mit ark var "konk. 1" og den kunne ikke finde ud af mellemrummet eller .
MEn det virker som det skal nu :-)

Det kommer her.

Du skal blot rette navnene til i denne:

Ark = Array("Ark1", "Ark2")

til hvad dine ark hedder

jep, den fangede jeg efter lidt tid :-)
endnu engang tak

Og der kan du tilføje eller fjerne ark efter behov. Og nej, VBA bryder sig ikke om mellemrum i fanenavne(arknavne).
Tak for point.