Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vorher selektierten Zellbereich in Makro

Forumthread: 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
Anzeige

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

Anzeige
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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige