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

Bereich über cells auswählen

Bereich über cells auswählen
14.11.2008 16:29:00
Lars
Hallo,
wie kann ich in VBA einen Bereich über den Befehl cells markieren?
Range(cells(1,2):cells(4,9)) funktioniert nicht.
Gruß
Lars

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
, statt : ........(owT)
14.11.2008 16:30:00
RS


AW: , statt : ........(owT)
14.11.2008 16:53:00
Lars
Hallo,
irgendwie funktioniert das nicht:

Sub test()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range(Cells(2, 2), Cells(3, 15)),  _
PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End Sub


Dann schreibe es einfach so!
14.11.2008 17:04:14
Backowe
Hi,
VBA-Code:
Sub DiagrammErstellen()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("B2:C15"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Position = xlRight
End Sub
Gruß Jürgen
AW: Dann schreibe es einfach so!
Lars

Hallo,
das will ich ja eben nicht, da die Zellen nicht immer gleich sind.
Eigentlich steht bei mir ...Range(cells(StartReihe, StartSpalte), cells(EndeReihe,EndeSpalte)).
StartSpalte, StartReihe etc. gebe ich über eine inputbox an.
Daher kann ich nicht z.B. A1:C13 angeben.
Gruß
Lars
AW: Dann schreibe es einfach so!
Erich

Hi Lars,
probier mal

Sub test()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
With Sheets("Tabelle2")
ActiveChart.SetSourceData Source:= _
.Range(.Cells(2, 2), .Cells(3, 15)), PlotBy:=xlColumns
End With
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End Sub

Die Punkte vor Cells sorgen dafür, Zellen der Tabelle2 angesprochen werden.
Wenn da nur Cells steht, werden Zellen des akt. Blattes angesprochen.
Man könnte länglicher auch schrieben:
Sheets("Tabelle2").Range(Sheets("Tabelle2").Cells(2, 2), Sheets("Tabelle2").Cells(3, 15))
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Dann schreibe es einfach so!
Lars

Klappt.
Danke.
Anzeige
AW: Dann schreibe es einfach so!
14.11.2008 17:09:13
Lars
Hallo,
das will ich ja eben nicht, da die Zellen nicht immer gleich sind.
Eigentlich steht bei mir ...Range(cells(StartReihe, StartSpalte), cells(EndeReihe,EndeSpalte)).
StartSpalte, StartReihe etc. gebe ich über eine inputbox an.
Daher kann ich nicht z.B. A1:C13 angeben.
Gruß
Lars
AW: Dann schreibe es einfach so!
14.11.2008 17:16:00
Erich
Hi Lars,
probier mal

Sub test()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
With Sheets("Tabelle2")
ActiveChart.SetSourceData Source:= _
.Range(.Cells(2, 2), .Cells(3, 15)), PlotBy:=xlColumns
End With
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlRight
End Sub

Die Punkte vor Cells sorgen dafür, Zellen der Tabelle2 angesprochen werden.
Wenn da nur Cells steht, werden Zellen des akt. Blattes angesprochen.
Man könnte länglicher auch schrieben:
Sheets("Tabelle2").Range(Sheets("Tabelle2").Cells(2, 2), Sheets("Tabelle2").Cells(3, 15))
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Dann schreibe es einfach so!
14.11.2008 17:25:53
Lars
Klappt.
Danke.

51 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige