Makroprobleme

Hallo zusammen,
ich habe ein Makro zur Diagrammerstellung per Hand aufgenommen. Wenn ich das Makro aber erneut starten möchte kommt eine Fehlermeldung, in der 5.Spalte.
Excel fügt mir trotz der Fehlermeldung das Diagramm ein.
Was ist falsch im Code?


Sub Makro4()
Columns("B:B").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Planschlagmessung ****.**.** - "). _
Range("B6:B366"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="AX025_aussen"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "AX025_aussen"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Winkel [°]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Planschlag [µm]"
End With
ActiveChart.HasLegend = False
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone
End Sub

CU
Dominik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makroprobleme

23.01.2004 14:28:22

Yal

AW: Makroprobleme

23.01.2004 14:39:59

Dominik

AW: Makroprobleme

23.01.2004 14:53:34

Yal

AW: Makroprobleme

23.01.2004 15:12:12

Dominik

AW: Makroprobleme

23.01.2004 15:31:42

Yal

AW: Makroprobleme

23.01.2004 16:24:17

Dominik

AW: Makroprobleme

23.01.2004 16:36:51

Yal

AW: Makroprobleme

23.01.2004 16:49:41

Dominik

Hallo Dom,
ALARM: im Code werden Stern "*" NIE als Platzhalter ausgewertet! Du muss da ganz genau der Name eingeben.
Ausserden, es ist nicht die Arbeitsmappe (=Datei, = Workbook), die Du umbenennen soll, sondern die Tabelle (=Arbeitsblatt, = Worksheet), d.h. doppel klick auf dem kleinen Reiter unten und da Name ändern. Dann kannst Du mehrere Dateien mit verschiedene Namen, die alle eine Blatt mit einem Standardname haben.
Solltest Du nur einem Datei haben, aber drin mehrere Blätter, die jede ein Grafik haben sollen, mach dann wie folgend:


Sub AlleMachen()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
if LCase(Left(sh.name,17))="planschlagmessung" then MachGrafikMit sh.Name
Next sh
End Sub


Sub MachGrafikMit(ByVal BlattName As String)
'ehemalige "Makro5"
ActiveChart.SetSourceData Source:=Sheets("BlattName"). _
Range("B6:B366"), PlotBy:=xlColumns
End Sub

Gruß
Yal

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread