Re: Makro erstellen
22.01.2003 18:56:46
Chris
Hallo IasmikErstmal das Makro zur Erstellung des Diagrammes aufzeichnen, dazu Makro Rekorder unter Menu Makro benuzten.
Dann Makro ausführen, allerdings auf Bearbeiten drücken.
Nun hast du den Code.
An den Anfang des Makros stellst du...
If Range("A1") <> "" Then
'bedeutet, wenn Zelle A1 nicht leer ist, dann....
'Hier steht dein Makro
'Und ans Ende ein End If stellen
End If
---------------
z.B. So:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 22/01/2003 by Chris
'
'
If Range("A1") <> "" Then
Range("A1:B7").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End If
End Sub
Gruss
Chris