Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage zur Zellenmarkierung

Forumthread: Abfrage zur Zellenmarkierung

Abfrage zur Zellenmarkierung
09.08.2004 17:13:15
Andy
Hallo!
HAbe nicht wirklich Ahnung vom VBA..
Ich möchte ein Diagramm automatisch von einem bestimmten Zellenbreich erstellen lassen. Dazu soll vorher der benötigte Zellbereich ausgewählt werden. Geht das? Wenn ja, wie? (Excel2000/97)
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage zur Zellenmarkierung
ChrisL
Hi Andy
Im Prinzip bekommst du es ja mit dem Makrorekorder hin. Oder besteht das Problem darin, dass der Zellbereich variabel ist, falls ja wie... vielleicht mal Beispiel hochladen und Codefetzen posten.
Gruss
Chris
AW: Abfrage zur Zellenmarkierung
09.08.2004 17:46:33
Andy
DA ich noch dabei bin Möglichkeiten der Diagrammerstellung aufzuzeichnen und auszuprobieren kann ich leider keine codes posten.
Der Zellbereich ist, wie vermutet, variabel.
Gruss
Andy
Anzeige
AW: Abfrage zur Zellenmarkierung
09.08.2004 18:12:26
Andy
Ich habe etwas rumprobiert und den unterstehen code erhalten. Wenn ich mich nicht irre müsste man doch in den Zeilen 1 und 2 etwas ändern um eine Bereichsauswahl zu bekommen, oder?

Sub Diagramm_erstellen()
Range("A11:T17").Select
Range("T17").Activate
Charts.Add
ActiveChart.ChartType = xlColumnStacked100
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A11:T17"), _
PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
End Sub

Anzeige
AW: Abfrage zur Zellenmarkierung
ChrisL
Hi Andy

Sub Diagramm_erstellen()
Dim Diagr As Chart
Dim WS As Worksheet
Dim Bereich As Range
Set WS = Worksheets("Tabelle1")
Set Bereich = WS.Range("A11:T" & WS.Range("A65536").End(xlUp).Row)
Set Diagr = Charts.Add
With Diagr
.ChartType = xlColumnStacked100
.SetSourceData Source:=Bereich, PlotBy:=xlRows
.Location Where:=xlLocationAsObject, Name:=WS.Name
ActiveChart.HasLegend = True
ActiveChart.Legend.Position = xlBottom
End With
End Sub

Gruss
Chris
Anzeige
AW: Abfrage zur Zellenmarkierung
10.08.2004 10:28:49
Andy
Viele Dank! Es funktioniert. Ich habe die unten stehende Zeile noch geändert, so dass der Zellbereich nur bis zur vorletzten Zeile geht..
Set Bereich = WS.Range("A11:T" & WS.Range("A65536").End(xlUp).Row-1)
Gruß
Andy
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige