Hej Christan,
Tack för svar. Jag hann ge upp och gjorde en lösning med vba istället.
Dim int_nr(1 To 2) As Long
Dim dat_date(1 To 2) As Date
Dim int_control(1 To 2) As Integer
Dim int_month(1 To 2) As Integer
int_nr(1) = 1
Sheets(13).Select
Do
dat_date(1) = Sheets(13).Range("G" & 1 + int_nr(1))
If dat_date(1) <> Empty Then
int_control(1) = int_nr(1)
int_month(1) = Month(dat_date(1))
int_nr(2) = int_nr(1) + 1
Do
dat_date(2) = Sheets(13).Range("G" & 1 + int_nr(2))
int_month(2) = Month(dat_date(2))
If int_month(2) = int_month(1) Then
int_nr(2) = int_nr(2) + 1
End If
Loop Until int_month(2) <> int_month(1) Or dat_date(2) = Empty
int_control(2) = int_nr(2)
int_nr(1) = int_nr(1) + 1
End If
int_nr(1) = int_nr(2) + 1
Sheets(13).Range("A" & int_control(1) & ":J" & int_control(2)).Select
Selection.Copy
Sheets(int_month(1)).Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Sheets(13).Select
Loop Until dat_date(1) = Empty
Sheets(1).Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Kanske inte den bästa vba lösningen men den verkar göra det den ska + att jag direkt får med mig all annan data som finns efter datumkolumnen.
Men ska testa din kod också. Alltid bra att ha om jag ska göra något liknande vid ett senare tillfälle.
mvh /Ahlis1979