VBA script

Prøv med noget i stil med dette


Sub Fordeling()
    Range("A1", Range("A" & Rows.Count).End(xlUp)).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    Dim c As Range
    Dim maaned As String
    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)).Cells
        maaned = MonthName(Month(c.Value), True)
        If Not FindesArkfanen(maaned) Then Worksheets.Add().Name = maaned
        c.EntireRow.Copy Destination:=Worksheets(maaned).Range("A" & Worksheets(maaned).Rows.Count).End(xlUp).Offset(1, 0)
    Next
End Sub

Public Function FindesArkfanen(navn As String) As Boolean
  FindesArkfanen = Not (IsError(Evaluate(navn & "!A1")))
End Function

tak- noget at gå idere med- smid et svar og du scorer point

super