Datenpunkte in einem Diagramm beschriften

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas!!
Ja, ich bin ein wenig auf heissen Kohlen gesessen, entschuldige :-)
Nun denn,ich wollte gerade die Excel - Arbeitsmappe hochladen, nur ging das plötzlich nicht mehr...
Ich wollte den Code aktivieren, daß immer ein ";" dazwischenkommt. Beim Probieren kam dann allerdings eine Kompilierungs-Fehlermeldung.
Ist der Code in Sternchen so richtig aktiviert, oder hab ich da was falsch gemacht?:
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Startzelle As Range
Dim ws As String
Dim wksQ As Worksheet, wksZ As Worksheet
Dim Spalte As Integer, Endezeile As Integer, Startzeile As Integer, j As Integer
Application.ScreenUpdating = False
Set wksQ = Worksheets("Koordinatenverzeichnis")
Set wksZ = Worksheets("Flächenverzeichnis")
Spalte = 2
Startzeile = 9
Endezeile = wksQ.Range("B9").End(xlDown).Row
wksZ.ChartObjects(1).Activate
For j = Startzeile To Endezeile
With ActiveChart.SeriesCollection(1).Points(j - Startzeile + 1)
.HasDataLabel = True
'Texttrennzeichen ";"
.DataLabel.Text = Format(wksZQ.Cells(j, Spalte) & "; " & wksQ.Cells(j, Spalte + 1) & "; " & _
wksQ.Cells(j, Spalte + 2).Value, "##0.0")
'Ohne Textrennzeichen
'           .DataLabel.Text = Format(wksQ.Cells(j, Spalte) & wksQ.Cells(j, Spalte + 1) & _
'               wksQ.Cells(j, Spalte + 2).Value, "##0.0")
End With
Next j
wksQ.Activate
Application.ScreenUpdating = True
End Sub

Ansonsten funktioniert es gut, ICH DANKE DIR VIELMALS!!!
Sabine G.

Private Sub Worksheet_Change(ByVal Target As Range) Dim Startzelle As Range Dim ws As String Dim wksQ As Worksheet, wksZ As Worksheet Dim Spalte As Integer, Endezeile As Integer, Startzeile As Integer, j As Integer Dim Bereich As Range Set Bereich = Range("B9:D56") If Not Intersect(Target, Bereich) Is Nothing Then 'Zelle ist im Bereich Application.ScreenUpdating = False Set wksQ = Worksheets("Koordinatenverzeichnis") Set wksZ = Worksheets("Flächenverzeichnis") Spalte = 2 Startzeile = 9 Endezeile = wksQ.Range("B9").End(xlDown).Row wksZ.ChartObjects(1).Activate For j = Startzeile To Endezeile With ActiveChart.SeriesCollection(1).Points(j - Startzeile + 1) .HasDataLabel = True 'Texttrennzeichen ";" .DataLabel.Text = Format(wksQ.Cells(j, Spalte) & "; " & wksQ.Cells(j, Spalte + 1) & "; " & _ wksQ.Cells(j, Spalte + 2).Value, "##0.0") 'Ohne Textrennzeichen ' .DataLabel.Text = Format(wksQ.Cells(j, Spalte) & wksQ.Cells(j, Spalte + 1) & _ ' wksQ.Cells(j, Spalte + 2).Value, "##0.0") End With Next j wksQ.Activate Application.ScreenUpdating = True End If End Sub

Hallo Sabine
Das Makro wird nur ausgeführt, wenn im Bereich B9:D56 eine Veränderung statt findet.
Set Bereich = Range("B9:D56")
If Not Intersect(Target, Bereich) Is Nothing Then 'Zelle ist im Bereich
Ist also auch nicht die Lösung für dein Problem. Ist eigentlich logisch, das die Fehlermeldung "HasData" erscheint. Wo kein Datenpunkt ist, kann auch nichts geschrieben werden.
In dem Fall kannst wieder den alten Code verwenden und zu beginn (nach Dim) "On Error Resume Next" hineinschreiben (wie du bereits getan hast, ohne Anführungszeichen).
2. bin ich davon ausgegangen, das in der Spalte B9 immer einen Wert steht und in dieser Spalte B dann der letzte Eintrag gesucht wird. Du kannst folgendes ändern:
Endezeile = wksQ.Range("B9").End(xlDown).Row
in
Endzeile = 56
Durch On Error Resume Next werden die Fehler sowieso schon abgefangen.
Musst es also so machen, das zuerst die Koordinatenwerte eingegeben werten. Lösung wäre auch, die Koordinaten und Beschriftung zu vertauschen.
Hoffe, das ich mich verständlich ausgedrückt habe.
Gruss Thomas

Beliebteste Forumthreads (12 Monate)

Datenpunkte in einem Diagramm beschriften

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenpunkte in einem Diagramm beschriften

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread