Bin mit den Nerven am Ende. Ich möchte öfters Werte aktualisieren und habe dazu eine Dialogbox programmiert. Gleichzeitig will ich ein dynamisches Liniendiagramm. Wenn ich aber mit dem folgenden Code mein Linien-Diagramm aktualisiere, aktualisiert er nur Quatsch und fügt noch mal 20 sinnlose Reihen mit ein:
Private Sub CmdOK_Click()
Dim DatumZelle As Range
Dim spalte As Variant, zeile As Variant
'*** Werte eintragen ***
'Leere Zeile suchen und neues Datum eintragen
For Each DatumZelle In [C6:C9999]
If IsEmpty(DatumZelle) = True Then Exit For
Next
DatumZelle = ActiveCell
DatumZelle.Value = NeuesDatum
'Spalten-/Zeilenkoordinaten ermitteln
spalte = DatumZelle.Column
zeile = DatumZelle.Row
'Werte eintragen
Cells(zeile, spalte - 1) = WertKW
Cells(zeile, spalte - 2) = WertLfd
Cells(zeile, spalte + 1) = Chargennummer
Cells(zeile, spalte + 2) = WertMax
Cells(zeile, spalte + 3) = WertMin
Cells(zeile, spalte + 4) = WertMW
Cells(zeile, spalte + 5) = WertS
' Diagrammaktualisierung
Sheets("Daten Ebenheit").Activate
Range("A65536").End(xlUp).Select
Range(Selection, _
ActiveCell.Offset(0, 18)).Select
Range(Selection, ActiveCell.Offset(0, 18)).Copy
Charts("DiagramMW).paste
Aus einer Beispieldatei habe ich folgenden Code, bei dem die Aktualisierung zwar funktioniert, der Dialog aber ganz anders ist:
Public Sub KursEingabe3()
Dim b As Range, sstart As Range, sende As Range
Dim heute As Date, aktie As String, kurs As Single
'Datum erfragen und eintragen
heute = CDate(InputBox("Datum?", , CStr(Date)))
Workbooks("vb.xls").Activate
Worksheets("Kurse").Activate
Set b = Range("A:A")
Set sstart = b.Find("")
sstart.Value = heute
'Kurs erfragen und eintragen
Do
aktie = InputBox("Aktie?")
If aktie = "" Then Exit Do
kurs = CSng(InputBox("Kurs?"))
If kurs = 0 Then Exit Do
Set b = Range("1:1")
Set b = b.Find(aktie)
Set b = b.EntireColumn
b.Find("").Value = kurs
Loop While True
'Diagramm aktualisieren
Set sende = sstart.End(xlToRight)
Range(sstart, sende).Copy
Charts("Kursdiagramm").Paste
End Sub
Irgendwie bin ich unfähig, den Code auf meine Bedürfnisse umzuarbeiten. Weiß einer, was ich bei mir ändern muss ?