habe ein Problem. Habe zu einer Tabelle mehrere Diagramme gemacht(außerhalb des Tabellenblatts). Da der Tabelle öfters Daten hinzugefügt werden sollen, bin ich an einer Aktualisierung interessiert. Habe eine Eingabemaske gemacht in der die neuen Werte eingegeben werden sollen und am Ende folgenden Befehl aus einem Buch eingegeben:
Private Sub CmdHinzufuegen_Click()
Dim DatumZelle As Range
Dim spalte As Variant, zeile As Variant
'*** Kurse eintragen ***
'Leere Zeile suchen und neues Datum eintragen
For Each DatumZelle In [A:A]
If IsEmpty(DatumZelle) = True Then Exit For
Next
DatumZelle = ActiveCell
DatumZelle.Value = NeuesDatum
'Spalten-/Zeilenkoordinaten ermitteln
spalte = DatumZelle.Column
zeile = DatumZelle.Row
'Kurse eintragen
Cells(zeile, spalte + 1) = Wert1
Cells(zeile, spalte + 2) = Wert2
Cells(zeile, spalte + 3) = Wert3
Cells(zeile, spalte + 4) = Wert4
'Diagramm aktualisieren
Range(Cells(Zeile,Spalte),Cells(Zeile,Spalte + 4)).Copy
Charts("Diagramm").Paste
End Sub
In die Zwischenablage kopieren funktioniert, nicht aber das Einfügen in das Diagrammblatt. "Fehlermeldung: Laufzeitfehler 1004. Die Paste-Methode des Chart-Objekts ist fehlerhaft"
Weiß einer Rat ???