Diagramm auf einer Userform
27.05.2003 13:24:12
Campino
Private Sub chart_auswertung_Enter()
Range("BG4:BJ9").Select
Charts.Add
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Sheets("27.05.2003").Range("BG4:BJ9"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="27.05.2003"
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
End Sub
Ich hoffe ihr könnt mir helfen
mfg
Campino