ich schätze mal, du möchtest eine Punktewolke: jeder Punkt stellt ein Land dar mit gewünschter x/y Position
aber das geht so nicht, was du brauchst ist eine VBA-Routine die dir das Diagramm entsprechend erstellt:
voraussetzung, du hast eine Tabelle mit dem Tabellenkopf (Spalte A bis C):
„Land“ „x“ „y“ und unterhalb in den Spalten die Daten: Landesname, x-Wert, Y-Wert
die Prozedur:
Sub Länder_darstellen()
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(„Tabelle1“).Range(„A1“)
For a = 2 To 100
If Sheets(„Tabelle1“).Cells(a, 1) „“ Then
ActiveChart.SeriesCollection.NewSeries
With ActiveChart.SeriesCollection(a)
.XValues = „=Tabelle1!R“ & a & „C2“
.Values = „=Tabelle1!R“ & a & „C3“
.Name = „=Tabelle1!R“ & a & „C1“
End With
End If
Next a
ActiveChart.SeriesCollection(1).Delete
End Sub
du erhälst: ein Diagramm mit einem positionierten Symbol für jedes Land
fügst du oberhalb von „End Sub“ noch dieses ein:
ActiveChart.ApplyDataLabels ShowSeriesName:=True, ShowValue:=False
so steht neben jedem Symbol auch noch der Name des betreffenden Landes
(emailohnewert/at/aol.com)