Macro - check om værdi i område er forskellig fra anden værdi i samme område

Nogen i denne stil du efterlyser?


Public Sub nyarkflyt()

Dim data As Variant
Dim ark() As Variant

r = Sheets("ark1").Range("a65000").End(xlUp).Row        'finder nedeste række i ark1

data = Sheets("ark1").Range("a1:c" & r)                ' indlæser data a1 til c ? som matrix

For t = LBound(data) To UBound(data)
      a = Sheets.Count
                Sheets(1).Select
                    For b = 1 To a
                        If CStr(data(t, 1)) = CStr(ActiveSheet.Name) Then      ' ser om ark findes i forvejen
                        findes = True
                        Exit For
                        End If
                        If b <> a Then
                        Sheets(b + 1).Select
                        Else
                        Sheets.Add.Name = data(t, 1)
                        End If
                    Next b
        Sheets(data(t, 1)).Select
        Range("a65000").End(xlUp).Activate
        With ActiveCell                                'indsætter data fra matrix i nyt ark.
        If ActiveCell <> "" Then
        .Offset(1, 0) = data(t, 1)
        .Offset(1, 1) = data(t, 2)
        .Offset(1, 2) = data(t, 3)
        Else
        ActiveCell = data(t, 1)
        .Offset(0, 1) = data(t, 2)
        .Offset(0, 2) = data(t, 3)
        End If
        End With
         
Next t

End Sub

giver et 
Run-time error ')':
"subscript of range"

og stopper ved linien

        Sheets(data(t, 1)).Select

Det lyder underligt, kan jeg ikke fremtvinge fejlen. Kan du evt. sende en fil til anders.lerskov (a) gmail dot com

kan ikke helt få ovenstående til at virke. Men kan det ændres til:

For hver værdi i kolonne A - skal hele det aktive ark kopieres og navngives med "uge" + nr (fra kolonne A).
I det nye ark skal alle rækker i kolonne A, som ikke indeholder det aktuelle uge nr. slettes.
Dette skal gentages for hver unikke forekomst af et ugenr i kolonne A.

F.eks. indeholder området (A2:C7) flg værdier:

Uge  Størrelse Antal
22      XL      2
22      SM      2
3        L      45
24      M      2
26      L      11
26      M      8

Så der skal oprettes 4 ark med navnene "Uge 22", "Uge 3" osv
og i fx. arket "Uge 26" skal række 2 til 5 slettes så der står:

Uge  Størrelse Antal
26      L      11
26      M      8

kan du klare den

Har selv fundet løsningen på

http://www.eksperten.dk/spm/47724

;-))