Probeleme beim umschreiben eines Makros!
19.01.2006 22:33:18
Swen
ich habe gerade ein Probelem und zwar habe ich folgendes Makro aufgenommen!
Sub Makro1()
' Makro1 Makro
' Makro am 18.01.2006 von Swen Mohr aufgezeichnet
Sheets("Diagramm1").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("B3:C22"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R1C1"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = False
.HasAxis(xlValue, xlPrimary) = False
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
Charts.Add
ActiveChart.Legend.Select
Selection.Delete
ActiveChart.ChartTitle.Select
Selection.Delete
End Sub
Ich würde gern dieses Makro so umschreiben das ich
die Datenquelle mit Range und Cells angeben!
z.B.:
Worksheets("Tabelle1").Range(Cells(3,2),Cells(22,3)
Wie kann man dieses in mein Makro eingeben!
Kann mir einer von euch das Makro umschreiben so das
dieses dann dadrin steht?
Gruß
Swen
Anzeige