ich hab bis jetzt mit hilfe folgenden code erzeugen könnne
Sub ZeileKopieren()
Dim zell As Range
With Worksheets("Bericht")
For Each zell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
If zell "" Then
On Error Resume Next
zell.EntireRow.Copy _
Worksheets(zell.Text).Cells(Rows.Count, 1).End(xlUp).Offset(1)
On Error GoTo 0
End If
Next
End With
End Sub
==> Erklärung: ich habe ein Bericht der mehrere objekte ausspuckt. der code durchsucht diesen bericht und kopiert die werte auf die jeweiligen tabelleblätter.==> Mein Problem: Ich würde gern das der code zusätzlich ein benutzerdef. flächendiagramm auf jedem tabellenblatt über die jeweiligen werte erstellt.
.. hab mein" try and error "code weggelassen der verwirrt nur :)
vielen dank im voraus!
petear