Invoegen Excel

[maas86]

Hallo,

ik heb een debiteuren lijst (zie bijlage blad 1) en daarin wil ik invoegen zodat ik per klant een overzicht heb ( zoals bijlage blad 2)

is hier een formule voor zodat ik met 1 druk op de knop het overzicht krijg zoals in bijlage blad 2?

(bedragen zijn fictief)

 

[AlexCEL]

Beste optie lijkt mij een draaitabel.

 

[maas86]

draaitabel werkt voor mij niet, ik zal nog ouderdom factuur, opmerking en andere dingen toevoegen aan het overzicht en die wil ik in 1 oogopslag kunnen zien.

 

[AlexCEL]

Deze aanvullende eisen staan niet in je voorbeeld...

Een representatief voorbeeldje lijkt me om te beginnen wel handig.

 

[jkpieterse]

Zo dan?

 

[maas86]

extra informatie is niet relevant, het gaat er bij mij om het invoegen

zo een soort code maar dan met verschillende intervallen gebaseerd op bedrijfsnaam.

Sub InvoegenLegeRijenMetInterval()
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Interval rijen ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("Hoeveel rijen invoegen na de interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Su

 

[maas86]

Zo dan?

hmmm dat kan wel werken voor mij denk ik.

hoe krijg ik ze zo naast elkaar

 

[jkpieterse]

De ontwerpen tab van de draaitabel, knop Rapportindeling (derde van rechts op het lint), optie Tabelweergave.