Hallo zusammen,
kann mir eventuell jemand sagen, warum sich dynamische Diagramme nicht aktualisieren wenn ich Daten nachgetragen habe, deren Datum vor dem letzten Eintrag liegen.
Das heißt ich habe die Daten per Formular eintragen lassen und dann sortiert.
Gehe ich in die Tabelle und trage die Daten nochmals von Hand ein, dann werden die Diagramme aktualisiert.
im voraus herzlichen Dank
mfg.Juergen
Hi,
Zitat:kann mir eventuell jemand sagen, warum sich dynamische Diagramme nicht aktualisieren
"Das heißt ich habe die Daten per Formular eintragen lassen und dann sortiert, aber nicht aktualisiert."
Ohne die Datei schwer zu sagen! Wie sind deine dynamischen Diagramme erstellt worden?
Wie sieht dein Code aus vom Formular.
lg
Chris
Hallo Cris-Ka,
Ich habe die Daten per Formular in die Tabelle eintragen lassen, ich vermute auch dass darin der Fehler liegt...
Meine Frage: kann die Übertragung richtig oder falsch veranlassen, mit falsch meine ich, dass sämtliche übertragenen Daten alle mit einem grünen Dreieck markiert sind.
Gibt es eine Möglichkeit dass man die Daten so übertragen kann, als ob man sie direkt in die Tabelle eingetragen hat.
Wie schon erwähnt, wenn ich die Daten einfach nochmal von Hand eingebe dann werden sie erkannt.
hier mal mein Code zum Übertragen, habe noch nicht rausgefunden wie ich die Tabelle übertragen kann.
Code:
Option Explicit
Private Sub cmdSpeichernGuss_Click()
Dim z As Long
Dim TeilfaktorSchleifschlamm As String
'aktiviere das entsprechende Blatt
Worksheets("StahlGussBrikett").Activate
'Summe der Tagesproduktion ermitteln
txtSummeProduktion = Val(txtBP200_1_Späne_1_Schicht.Value) + Val(txtBP200_2_Späne_1_Schicht.Value) + Val(txtBP200_1_Späne_2_Schicht.Value) + Val(txtBP200_2_Späne_2_Schicht.Value) + Val(txtBP200_1_Späne_3_Schicht.Value) + Val(txtBP200_2_Späne_3_Schicht.Value)
'Summe des Schleifschlamm Gewichtes ermitteln
txtSummeSchlamm = Val(txtSchlammzugabe_1_Schicht.Text) + Val(txtSchlammzugabe_2_Schicht.Text) + Val(txtSchlammzugabe_3_Schicht.Text)
'die enthaltene Emulsion ermitteln
txtEmulsion = txtSummeSchlamm.Text / 100 * 20
'Gewicht schleifschlamm ohne Emulsion
txtReinesSchlammgewicht = txtSummeSchlamm.Text - txtEmulsion.Text
'hier wird der Mittelwert der prozentuallen Schleifschlamm
'zugabe ausgerechnet
Dim i As Long
Dim j As Long
Dim dblSumm As Double
For i = 1 To 3
If IsNumeric(Me.Controls("txtSchlamm_prozentual_" & i & "_Schicht")) And Me.Controls("txtSchlamm_prozentual_" & i & "_Schicht") > 0 Then
dblSumm = dblSumm + Me.Controls("txtSchlamm_prozentual_" & i & "_Schicht")
j = j + 1
End If
Next i
If j > 0 Then txtMittelwert = dblSumm / j
TeilfaktorSchleifschlamm = txtSummeProduktion - txtEmulsion
txtRealschlamm = txtSummeSchlamm * 100 / TeilfaktorSchleifschlamm
'gehe in letzte beschriebene Zeile und setze
'den Cursor auf die nächste freie Zeile
z = Range("A65536").End(xlUp).Row + 1
'trage die daten ein
Cells(z, 1) = Me.DTPicker1
Cells(z, 2) = txtBP200_1_Späne_1_Schicht
Cells(z, 3) = txtBP200_2_Späne_1_Schicht
Cells(z, 4) = txtBP200_1_Späne_2_Schicht
Cells(z, 5) = txtBP200_2_Späne_2_Schicht
Cells(z, 6) = txtBP200_1_Späne_3_Schicht
Cells(z, 7) = txtBP200_2_Späne_3_Schicht
Cells(z, 8) = txtSummeProduktion
Cells(z, 9) = txtSchlammzugabe_1_Schicht
Cells(z, 10) = txtSchlammzugabe_2_Schicht
Cells(z, 11) = txtSchlammzugabe_3_Schicht
Cells(z, 12) = txtSummeSchlamm
Cells(z, 13) = txtEmulsion
Cells(z, 14) = txtReinesSchlammgewicht
Cells(z, 15) = txtSchlamm_prozentual_1_Schicht
Cells(z, 16) = txtSchlamm_prozentual_2_Schicht
Cells(z, 17) = txtSchlamm_prozentual_3_Schicht
Cells(z, 18) = txtMittelwert
Cells(z, 19) = Format(txtRealschlamm, "0,00")
MsgBox "Daten wurden übernommen"
'Felder auf Null setzen
'Me.txtDatum = ""
Me.txtBP200_1_Späne_1_Schicht = ""
Me.txtBP200_2_Späne_1_Schicht = ""
Me.txtBP200_1_Späne_2_Schicht = ""
Me.txtBP200_2_Späne_2_Schicht = ""
Me.txtBP200_1_Späne_3_Schicht = ""
Me.txtBP200_2_Späne_3_Schicht = ""
Me.txtSchlammzugabe_1_Schicht = ""
Me.txtSchlammzugabe_2_Schicht = ""
Me.txtSchlammzugabe_3_Schicht = ""
Me.txtSchlamm_prozentual_1_Schicht = ""
Me.txtSchlamm_prozentual_2_Schicht = ""
Me.txtSchlamm_prozentual_3_Schicht = ""
txtSummeProduktion = ""
txtSummeSchlamm = ""
txtMittelwert = ""
End Sub
Hi,
alles was Zahlen sind sollten als Zahlen übergeben werden!
Code:
Cells(z, 12).value = cdbl(txtSummeSchlamm)
Dann sollte es auch mit dem Diagramm klappen.
Die grünen Dreicke (die bislang erschienen sind) sind Hinweise darauf, dass eine Zahl als Text in der Zelle vorliegt.
lg
Hi,
(20.04.2016, 13:16)Windlaeufer schrieb: [ -> ]habe noch nicht rausgefunden wie ich die Tabelle übertragen kann.
es gibt ganz am Anfang der Themen des Forums drei Beiträge, die sind mit "WICHTIG" überschrieben. Extra abgesetzt von den andren im Block: Wichtige Themen!
Frag Dich mal, warum?
[
attachment=4976]
Also stelle bitte (D)eine (Beispiel-)Tabelle als Excel-Datei zur Verfügung oder stelle die relevanten Ausschnitte hier dar, siehe die als
Wichtige Themen: markierten Forums-Beiträge.
Deine Mustertabelle sollte mindestens etwa 10-15 Datensätze haben, sensible Daten anonymisiert. Vom Aufbau her muss sie aber deinem Original gleichen.
Auch ein Wunschergebnis sollte dargestellt und als solches erkennbar sein.
Die
farbigen Texte sind anklickbare Links:
Hier steht, wie es geht:
Beitrag 2
WICHTIG: Arbeitsmappen zur Verfügung stellen
Beitrag 3
WICHTIG: Tabellenausschnitte und VBA-Codes im Forum einstellen
Eine Bitte:
Anstatt Screenshots ist eine Datei oder ein Ausschnitt besser!
"Du gehst ja auch nicht in die Werkstatt und gibst ein Foto Deines kaputten Autos ab!"
Hallo,
meinen Dank an beide, hat wunderbar geklappt.
Auch das Lesen der wichtigen Infos.
Danke
mfg. Juergen