verschiedener Bereiche in mehrere Blätter kopieren
01.08.2013 21:48:38
Matze
wo liegt denn nun wieder mein Gedankenfehler?
Wie kann ich denn verschiedene Bereiche einer Tabelle(zB1) in weitere Tabellen(Mehrzahl Tab2,Tab3,..)übertragen/kopieren? Dabei ist zu beachten das die Bereiche "nicht" zusammenhängend sind.
'Fehlermeldung (Laufzeitfehler 438)
'Objekt unterstützt diese Eigenschaft oder Methode nicht
Private Sub CommandButton1_Click() 'In Tabelle1
Dim rngBereich As Range
For Each rngBereich In Selection.Areas
'So klappt es nicht - warum? Wo ist hier mein Gedankenfehler?
rngBereich.Copy Worksheets(Array("Tabelle2", "Tabelle3")).Rang(rngBereich.Address)
'So gehts
' rngBereich.Copy Worksheets("Tabelle2").Range(rngBereich.Address)
' rngBereich.Copy Worksheets("Tabelle3").Range(rngBereich.Address)
Next rngBereich
End Sub
Matze