Wie bringe ich dieses Makro zum laufen?
Volkmar
ich habe eine kleine Tabelle mit 3 Spalten (Name, Größe, Gewicht) und drei Zeilen (Karl, Hugo, Alois - Tabelle siehe unten). Ich will die Punktwerte für Gewicht und Größe in einem X/Y Diagramm darstellen und zwar so, dass neben jedem Punktwert als Datenbeschriftung der zugehörige Name erscheint.
Spalte 1: Name.....Spalte 2: Größe.....Spalte 3: Gewicht
Karl Käfer................160..........................80
Hugo Hummel.......170..........................75
Alois Amsel............180..........................95
Ein entsprechendes Marko hat mir hier jemand erstellt. Danke Björn, falls Du das hier liest!!
Sub test()
ActiveSheet.ChartObjects("Diagramm 1").Activate
For i = 1 To 3
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Characters.Text = ThisWorkbook.Sheets("Tabelle1").Cells(i + 1, 1)
Next i
End Sub
Nun weiss ich aber nicht, wie ich das Makro zum laufen bekomme! Kann mir jemand helfen? Ich habe so etwas noch nie gemacht und brauche eine Anleitung, die auch von einem absoluten Anfänger verstanden werden kann... :)
Danke euch im voraus!!
Gruss,
Volkmar
Anzeige