AW: was hat BA damit zu tun? ;-)
27.10.2003 15:43:01
Tobias
@Nike: Danke für die Antwort. Ist aber noch nicht, das was ich suche.
also, ich habe eine Tabelle:
_____________|__Datum__|__Datum__|__...
Mitarbeiter | Daten | Daten | ...
Mitarbeiter2 | Daten | Daten | ...
meine Problem: die Tabelle wird dynamisch verändert, es kommen Zeilen hinzu und werden auch gelöscht.
Um nun ein Diagramm zu erstellen, benutze ich folgenden Quellcode:
Public zeile, spalte As Integer
Sub Name1()
zeile = 5
spalte = 3
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = _
"=(Sheet1!R" & (zeile) & "C" & (spalte) & ",Sheet1!R" & (zeile) & "C" & (spalte + 4) & ",Sheet1!R" & (zeile) & "C" & (spalte + 8) & ",Sheet1!R" & (zeile) & "C" & (spalte + 12) & ",Sheet1!R" & (zeile) & "C" & (spalte + 16) & ",Sheet1!R" & (zeile) & "C" & (spalte + 20) & ",Sheet1!R" & (zeile) & "C" & (spalte + 24) & ",Sheet1!R" & (zeile) & "C" & (spalte + 28) & ")"
spalte = 4
ActiveChart.SeriesCollection(2).Values = _
"=(Sheet1!R" & (zeile) & "C" & (spalte) & ",Sheet1!R" & (zeile) & "C" & (spalte + 4) & ",Sheet1!R" & (zeile) & "C" & (spalte + 8) & ",Sheet1!R" & (zeile) & "C" & (spalte + 12) & ",Sheet1!R" & (zeile) & "C" & (spalte + 16) & ",Sheet1!R" & (zeile) & "C" & (spalte + 20) & ",Sheet1!R" & (zeile) & "C" & (spalte + 24) & ",Sheet1!R" & (zeile) & "C" & (spalte + 28) & ")"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Name"
End With
End Sub
Wenn jetzt aber eine Zeile davor hinzugefügt wird, stimmt die "5" nicht mehr. Ich möchte jetzt in diesem Quellcode, dass er erst die Zeile sucht, in der der "Name" steht und dann diese "sich merkt". Eventuell bräuchte ich das auch für die Spalte, aber dann mit dem Datum...
Tschau Tobias