ich stehe vor einem Rätsel und hoffe, dass ihr mir hier auf die Sprünge helfen könnt.
Also: ich habe eine Arbeitmappe. Dort ist ein kleiner Bereich deklariert, in dem ich täglich Daten eingebe. Per click auf einen Button werden diese Daten in eine Liste (auf einem anderen Blatt) übertragen. Basierend auf diesen Daten habe ich mehrere Diagramme erstellt. So weit so gut - funzt auch alles. Jetzt kommt das komische.
Jedes mal wenn ich einen Übertrag per vba mache, werden die in 3 Diagrammen (von 8) die Datenkurven nicht angezeigt. Die Datenpunkte sind in der Ansicht komplett nach links verschoben und die horizontale Diagrammachse zeigt keinen Wert an.
Wenn ich jetzt hergehe und die Diagramme untereinander austausche, dann sind beim nächsten Übertrag andere Diagramme betroffen. Jedoch werden die vorherigen Diagramme wieder korrekt angezeigt.
Dieses Spiel habe ich schon endlos getrieben und in verschiedenen Konstellationen die Diagramme angeordnet. Ergebnis: Es sind immer die ersten 3-4 Diagramme die falsch dargestellt werden!
Bin schon ganz gaga !! Hier noch mein Code den ich verwende....
Danke und Grüße,
Andreas
Private Sub CommandButton1_Click()
'****** Übertrag der daten nach DatenKoerperanalyse ******
Dim x As Long
If Sheets("Erfassungsformular").Range("y8").Value = "ok" Then
Application.ScreenUpdating = False
x = Sheets("DatenKoerperanalyse").Range("e20000").End(xlUp).Row
Sheets("Erfassungsformular").Range("P7:X7").Copy
With Worksheets("DatenKoerperanalyse")
.Range(.Cells(x + 1, 5), .Cells(x + 1, 13)).PasteSpecial Paste:=xlPasteValues, Operation:= _
_
xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Sheets("Erfassungsformular").Range("P7:X7").ClearContents
Application.CutCopyMode = False
MsgBox ("Die Daten wurden übertragen")
Application.ScreenUpdating = True
Else
MsgBox ("Daten sind bereits vorhanden")
End If
End Sub