Diagramm mit Macro erstellen
03.11.2003 14:53:57
Jörg
ich habe folgendes Problem: Ich habe mir mit folgendem Macro eine Tabelle automatisch markieren lassen, nun will ich diese in einem Diagramm (Säulendiagramm) mit Hilfe eines Macros darstellen lassen, mit dem Macrorecorder hats nicht geklappt, weil der Datenbereich immer Festgelegt ist.
Also hier mein Macro:
Sub Tabelle_markieren()
Dim zanfang As Integer, spanfang As Integer, altezeile As Integer, altespalte As Integer
altezeile = Selection.Row
zanfang = altezeile
altespalte = Selection.Column
spanfang = altespalte
Do Until Cells(altezeile, altespalte).Value = ""
altezeile = altezeile + 1
Loop
Do Until Cells(altezeile - 1, altespalte).Value = ""
altespalte = altespalte + 1
Loop
Range(Cells(zanfang, spanfang), Cells(altezeile - 1, altespalte - 1)).Select
End Sub
Wäre toll wenn mir jemand helfen könnte. Danke
Anzeige