Werte in Zeile statt MsgBox
08.12.2015 14:48:34
Alex
ich stehe vor folgendem Problem.
Ich möchte aus einem Diagramm die X und Y Werte durch anklicken der Punktwolke anzeigen lassen. Das klappt auch, ich habe ein passendes Makro hierfür gefunden. Dieses ist wie folgt gestrickt:
Option Explicit
Private WithEvents mobjChart As Chart
Friend Property Set prpChart(objChart As Chart)
Set mobjChart = objChart
End Property
Private Sub mobjChart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, _
ByVal y As Long)
Dim lngElementID As Long, lngArgument1 As Long, lngArgument2 As Long
Dim vntX_Value_Array As Variant, vntY_Value_Array As Variant
If Button = 1 Then
mobjChart.GetChartElement x, y, lngElementID, lngArgument1, lngArgument2
If lngElementID = xlSeries Then
vntX_Value_Array = mobjChart.SeriesCollection(lngArgument1).XValues
vntY_Value_Array = mobjChart.SeriesCollection(lngArgument1).Values
mobjChart.Deselect
MsgBox "X= " & vntX_Value_Array(lngArgument2) & _
" Y= " & vntY_Value_Array(lngArgument2)
End If
End If
End Sub
Jetzt ist es so, das leuchtet mir auch ein, das er den X und Y Wert in einer MsgBox ausspuckt. Wie muss ich den Code bearbeiten um den X und Y Wert in Tabellenblatt 1 zu schreiben (Name tabelle1)und diesen dann in Zeile A1 (x) bzw A2 (y).Darüber hinaus: Verstehe ich es richtig, dass er bei jedem neuen Klick die Werte in den Kästchen überschreiben würde?
Wäre Euch sehr dankbar, wenn mir einer helfen würde!
Beste Grüße
alex