Variable einsetzten, aber wie?
30.01.2004 10:54:17
Peter
ich habe da ein Porblem. In einer Tabelle soll durch ein Makro ein Diagramm erstellt werden. Das Problem ist nur, dass das Makro für mehrere hundert Dateien geeignet sein soll. Die Dateien haben den Namen: "Testdatum **.**.**.csv". Die * stehen für das Datum des Tests.
Wie kann ich in den Code reinschreiben, dass er mir eine Variable erzeugt, die nach dem File benennent ist?
Hab den Code unten mal eingefügt.
Sub Makro7()
' Makro7 Makro
Range("D,A:B").Select
Range("A1").Activate
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Testdatum 01.01.04 - "). _
Range("A1:B368,D1368"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone
End Sub
Gruss
Peter