Hi leute,
folgendes Problem: bin kein vba profi und hab mir daher ein Diagramm erstellt und den Quellcode dabei aufzeichnen lassen:
so ungefähr:
ChDir verzeichnis
Workbooks.OpenText filename:= _
verzeichnis & filename, Origin:=xlWindows _
, StartRow:=1, DataType:=xlDelimited,
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,
Comma:=False _, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _
Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _
29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _
Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1))
Application.DisplayAlerts = True
ActiveSheet.Name = ShtName
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Tabelle").Range("A1:K2779,O1:U2779") _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="DeltaSol E"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "DeltaSol E"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Datum"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Sensor- und Relaiswerte"
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
ActiveChart.HasDataTable = False
verschiedene sachen hab ich nun bearbeitet und angepasst an mein programm.das problem besteht nun darin mit welcher syntax ich in dieser zeile:
Source:=Sheets("Tabelle").Range("A1:K2779,O1:U2779") _
im range bereich die angegebene Zeilen mit einer Variable ersetzen kann.
Danke an alle die helfen.
gruß nick |