Daten importieren (Excel 2007)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Hi Geri,
die Gültigkeit bezog sich nicht auf den gesamten Zellbereich, in dem sich Daten befinden, deshalb wurden auch nicht alle Werte angezeigt. Auch die Formeln in D14 und E14 bezogen sich auf einen kürzeren Bereich - und zwar auf den, der für das Beispiel galt. Diese Dinge musst du natürlich anpassen:
StartEnde_variabel

	A	B	C	D	E
12	X-Werte	Y-Werte		Minimum	Maximum
13	1	0		4	57
14	2	0	Zeile in Wertetabelle	16	69
15	3	2,64333
16	4	1,9825
17	5	1,586
18	6	2,64333
19	7	2,26571
20	8	2,97375
21	9	2,64333
22	10	3,172
23	11	2,88364
24	12	2,64333
25	13	2,44
26	14	2,26571
27	15	2,11467
28	16	2,47812
29	17	2,33235
30	18	2,20278
31	19	2,08684
32	20	1,9825
33	21	1,8881
34	22	1,80227

verwendete Formeln
Zelle	Formel	Bereich
D14	=VERGLEICH(D13;A:A;0)
E14	=VERGLEICH(E13;A:A;0)

definierte Namen
Name	Bezieht sich auf	Tabelle	Z1S1-Formel
GueltigkeitsBereich	=StartEnde_variabel!$A$13:INDEX(StartEnde_variabel!$A:$A;VERGLEICH(MAX(StartEnde_variabel!$A:$A);StartEnde_variabel!$A:$A;0))		=StartEnde_variabel!Z13S1:INDEX(StartEnde_variabel!S1;VERGLEICH(MAX(StartEnde_variabel!S1);StartEnde_variabel!S1;0))
X_Werte	=BEREICH.VERSCHIEBEN(StartEnde_variabel!$A$12;INDIREKT("StartEnde_variabel!D14");0;INDIREKT("StartEnde_variabel!E14") -INDIREKT("StartEnde_variabel!D14")+1;1)		=BEREICH.VERSCHIEBEN(StartEnde_variabel!Z12S1;INDIREKT("StartEnde_variabel!D14");0;INDIREKT("StartEnde_variabel!E14") -INDIREKT("StartEnde_variabel!D14")+1;1)
Y_Werte	=BEREICH.VERSCHIEBEN(StartEnde_variabel!$B$12;INDIREKT("StartEnde_variabel!D14");0;INDIREKT("StartEnde_variabel!E14") -INDIREKT("StartEnde_variabel!D14")+1;1)		=BEREICH.VERSCHIEBEN(StartEnde_variabel!Z12S2;INDIREKT("StartEnde_variabel!D14");0;INDIREKT("StartEnde_variabel!E14") -INDIREKT("StartEnde_variabel!D14")+1;1)

Tabellendarstellung in Foren Version 9.6 by Beverly's Excel-Inn

https://www.herber.de/bbs/user/86792.xlsx

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread