[Excel2007] Een werkblad opdelen in 3 werkbladen.

[deTuinman]

Hallo ik heb een werkblad die een lijst bevat met bedden, kasten en deuren.

voorbeeld:
1. bed 100 euro
2. deur 120 euro
3. bed 200 euro
4. kast 110 euro
5. deur 100 euro
6. kast 150 euro
7. deur 200 euro

Nu heb ik 3 werkbladen extra bijgemaakt, bed, deur en kast.
Dus nu wil ik dat ik bij het invoeren van een bed, deur of kast, dat hij automatisch ook in het betreffende werkblad terecht komt.

voorbeeld:

werkblad ' bed':
1. bed 100 euro
2. bed 200 euro

werkblad'deur':
1. deur 120 euro
2. deur 100 euro
3. deur 200 euro

werkblad 'kast':
1. kast 110 euro
2. kast 150 euro

Het invoeren van een bed, deur of kast doe ik via de volgende macro:

Sub Toevoegen()
ThisWorkbook.Names("InvoerBereik").RefersToRange.Copy
With ThisWorkbook.Worksheets("Lijst")
.Range("A" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
End With
Application.CutCopyMode = False
If Err.Number = 0 Then
MsgBox "De gegevens zijn toegevoegd.", vbOKOnly + vbInformation
End If
End Sub