Diagramm über Cells(1,1) füllen?

Bild

Betrifft: Diagramm über Cells(1,1) füllen?
von: Lukas
Geschrieben am: 21.11.2003 07:58:30

Zur Zeit fülle ich das Diagramm , wie folgt:
Mit RANGE("A52:A99") als Beispiel!

ActiveChart.SetSourceData Source:=Sheets("Tonnage").Range("" & CStr(spalte) & "52:" & CStr(spalte) & "" & CInt(t + startwert - 1) & ""), _
PlotBy:=xlColumns


Ich müsste aber das Ganze über CELLS(y,x)ansteuern,um nicht über ein Array die Spalten ansprechen zu müssen.

ActiveChart.SetSourceData Source:=Sheets("Tonnage").Range(Sheets("Tonnage").Cells(52, 3), Sheets("Tonnage").Cells(62, 3))

Leider nimmt er dabei immer nur einen Wert und setzt den auf der ersten Position der X-Achse. Wie kann ich also mit Cells einen "von bis Bereich" ansprechen?????

Eine andere Lösung meines Problem wäre:
Mit Buchstaben zu addieren! geht dies? (SPALTE A) + 1 = SPALTE B


HELP!!!


Danke

Lukas

Bild


Betrifft: Spalten addieren
von: Harald Kapp
Geschrieben am: 21.11.2003 08:47:05

Hallo Lukas,
zum ersten teil habe ich keine Antwort.
Zum Addieren von Spalten hilft Dir evtl folgendes Codefragment:

If Target.Column > 26 Then
S_Alpha = Chr(Asc("A") + (Target.Column \ 26) - 1) & Chr(Asc("A") + (Target.Column Mod 26) - 1) ' = div-Operator
Else
S_Alpha = Chr(Asc("A") + Target.Column - 1)
End If

Gruß Harald


Bild


Betrifft: AW: Spalten addieren
von: Lukas
Geschrieben am: 21.11.2003 09:35:54

Klasse, das hilft mir schon viel weiter!!! Auf diese Idee
wäre ich so schell gekommen. Einfach mit ASCII! Weltklasse


THX

Lukas


Bild

Beiträge aus den Excel-Beispielen zum Thema " Diagramm über Cells(1,1) füllen?"