AW: Daten importieren (Excel 2007)
11.08.2013 02:05:48
Geri
Hallo Karin,
habe es inzwischen geschafft, die 2 Datendateien per Makro einzulesen. Die letzte Zeile der Spalte ermittle ich mit der Formel: =VERWEIS(2;1/(A1:A65535"");A:A)
Wie bekomme ich nun die letzte Zeile der Spalte vom (Arbeitsblatt "Daten")in diese Diagrammformel : =DATENREIHE(;;Daten!$B$1:$B$2234;1)im Datenblatt ("Grafik")
Gerne würde ich ja das Dynamische Diagramm (Start und Ende Variabel) anwenden, komme aber nicht klar damit. Es scheitert schon daran, das ich den Datenbereich auf 1000 Daten erhöht hatte, jedoch das DropDown-Listenfeld zeigt mir nur 38 Werte an.
Hier das Makro zum einlesen der Daten:
Auch hier habe ich Stunden gebraucht um es zu verstehen. Beim speichern wegen der Makrosicherheit, die Zielzellen müssen leer sein, sonst werden die eingefügten Daten nach rechts verschoben, etc.
Sub Makro1()
' Tastenkombination: Strg+m
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\Daten-Min.txt", Destination:=Range("$a$1"))
.Name = "Daten-Min"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1)
.TextFileFixedColumnWidths = Array(4)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\Daten-Max.txt", Destination:=Range("$C$1"))
.Name = "Daten-Max"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Ich hoffe du kannst mir wieder etwas auf die Sprünge helfen ......
Gruß Geri