Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vorher selektierten Zellbereich in Makro

Vorher selektierten Zellbereich in Makro
Nimmermehr
Hallo Leute,
ich muss eine Reihe der gleichen Diagramme über verschiedene Zellbereiche erzeugen. Ich dachte mir einfach ein Makro aufnehmen sollte reichen, jedoch nimmt das Makro immer die Zellbereiche, welche bei der Aufnahme selektiert wurden.
Der Arbeitsablauf soll folgendermaßen aussehen:
1.) Ich selektiere einen Zellbereich.
2.) Das Makro erzeugt mir daraus ein Diagramm.

Sub Diagramm_erzeugen()
' Diagramm_erzeugen Makro
' Tastenkombination: Strg+Umschalt+D
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("AFS_Feb_2006_nachholer").Range( _
"E3:F218"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.HasLegend = False
End Sub

Wie sage ich dem Makro, dass es den gerade selektierten Bereich nehmen soll?
Danke euch!
Liebe Grüße
Pierre

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Vorher selektierten Zellbereich in Makro
16.02.2006 12:32:01
Matthias
Hallo Pierre,
statt:
Source:=Sheets("AFS_Feb_2006_nachholer").Range( _
"E3:F218")
einfach:
Source:=Selection
Gruß Matthias
AW: Vorher selektierten Zellbereich in Makro
16.02.2006 13:43:18
Nimmermehr
Danke für die schnelle Antwort... Leider sagt er mir da Typen unverträglich.

Sub Diagramm_erstellen()
' Diagramm_erstellen Makro
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Selection, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.HasLegend = False
End Sub

AW: Vorher selektierten Zellbereich in Makro
16.02.2006 18:08:21
Leo
Hi,
das geht so:

Sub Diagramm_erstellen()
' Diagramm_erstellen Makro
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range(Selection.Address), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.HasLegend = False
End Sub

mfg Leo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige