Noter

Jeg læser det som om at hver konto skal have sit eget regneark til slut med de spoteringer, der er på den aktuelle konto.

Du kunne gøre det via en makro, der gennemløber posteringerne og opretter et nyt ark for hver konto (dette gøres for at gøre makroen dynamisk, så du senere kan tilføje nye konti uden at skulle gøre alt muligt i koden).

Jeg vendelig tilbage med et link.

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

Du kan bruge avanceret filter.
Prøv at sende et eksempel, så skal jeg vise hvordan.
Hvor skal din kontospecifikation vises? På ark3?
Jeg går du fra, at du ønsker at kunne vælge en konto fra din kontoplan (evt. fra en liste) og så få vist de underliggende posteringer.

jan_vogt_hansen@hotmail.com

Du er også meget velkommen til at sende filen til mig, så kan jeg vise dig hvordan koden kune virke:

rvejemad@sca.csc.com

Prøv at indsætte den makro. Du indkriver kontonummer og udpeger startcellen med kontonumre.
Sub FilterOgKopier()
    Application.Calculation = xlCalculationManual
    Filtrerefter = InputBox("Kontonummer at overføre")
    Set Filterkolonne = Application.InputBox(Prompt:="Kolonnestart med kontonumre", Type:=8)
    '** slå skærmopdatring og beregning fra for optimal hastighed **
    Application.ScreenUpdating = False
    '** få startarkets navn for at kunne komme tilbage **
    StartArk = ActiveSheet.Name
    Filterkolonne.Select
    Selection.AutoFilter Field:=Filterkolonne.Column, Criteria1:=Filtrerefter
    '** kopier de filtrerede data **
    Selection.CurrentRegion.Copy
    '** indsæt nyt ark **
    Sheets.Add
    '** indsæt de kopierede data i det nye ark **
    ActiveSheet.Paste
    Application.CutCopyMode = False
    '** tilbage til startarket **
    Sheets(StartArk).Select
    '** slå autofilter fra igen **
    Selection.AutoFilter
    '** tilbage til normal **
    Application.Calculation = xlCalculationAutomatic
End Sub

Her er en makro der er afprøvet på det rigtige ark - derfor er der nogle specielle områdedefinitioner og arknavne:

Sub PosterTilNytArk()

    Application.ScreenUpdating = False
   
    'Vælger ark
    Sheets("Posteringer").Select
    StartArk = ActiveSheet.Name
   
    'Tæller brugte rækker i ark
    ActiveCell.SpecialCells(xlLastCell).Select
    antalrækker = ActiveCell.Row

    Application.Calculation = xlCalculationManual
   
    'Vælger ark
    Sheets("Lister").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    antalrækkerListe = ActiveCell.Row

    'Tælle poster i ark
    For n = 2 To antalrækkerListe
        If Cells(n, 1).Value <> "" Then
        x = x + 1
        Else
        Exit For
        End If
    Next n
   
    'Kører en løkke pr. emne i arket Liste
    For n = 2 To x + 1
        'Henter fileterkriterie
        Sheets("Lister").Select
        Filtrerefter = Cells(n, 1).Value
        Sheets("Posteringer").Select
       
        'Vælger autofilterområde
        Range(Cells(7, 4), Cells(antalrækker, 7)).Select
        Selection.AutoFilter Field:=1, Criteria1:=Filtrerefter
        Selection.CurrentRegion.Copy
       
        'Indsætter nyt ark
        Sheets.Add
        ActiveSheet.Name = Filtrerefter
        ActiveSheet.Paste
        Application.CutCopyMode = False

        Sheets(StartArk).Select
        Selection.AutoFilter

    Next n
   
    Application.Calculation = xlCalculationAutomatic
    Cells(1, 1).Select

End Sub

Tak for hjælpen. janvogt får 80 point for brugervenlighed (sumhvis). En anden gang må jeg lære at bruge makro. rvm 20 point for ihærdighed og hurtig svar.

Der var nu også lidt makro i min løsning :-)
Sumhvis blev kun brugt til at vise totalen på den valgte konto.

-> janvogt: Er din løsning hemmelig eller må vi andre også se den *S*

Gerne for mig, men det må vi vel spørge hejsletj om ... :-)

I må da gerne se løsningen. Men hvordan får jeg lige lagt den herud?

Jeg sender den til rvm ...