Office: Werte aus mehreren Tabellenblätter in neues Tabellenblatt einfügen

Chris85 · 25. Januar 2011

Hallo,

Ich habe eine Arbeitsmappe, die aus mehreren Tabellenblättern besteht. Die Zahl an Tabellenblättern kann varieren. In jedem Tabellenblatt sind Werte berechnet worden, die nun in einem neuen, idealerweise hinten angefügten Tabellenblatt hineinkopiert werden sollen. Ist es möglich dieses zu automatisieren? Und wenn ja, wie?

Es spielt zwar keine Rolle, aber es können durchaus 20 Tabellenblätter sein, aus denen die Werte automatisch herausgelesen werden sollen. Die Werte konnte ich bereits berechnen. Jetzt müssen sie nur noch in einem neuen, hinten angehängten Tabellenblatt niedergeschrieben werden.

Ist es möglich, diesen Teil des Makros dann an mein bereits erstelltes "Rechenmakro" hinzuzufügen?

Schon mal Danke im Voraus für die Hilfe! *Smilie

:)

EarlFred · 27. Januar 2011

Hallo Chris,

Deine Frage läßt sich mit den von Dir gegebenen Informationen beantworten: Ja.

Damit wir Dir aber einen Tipp geben können, wie das Makro dafür arbeiten muss, wäre eine Beschreibung / Demomappe eines Quellblattes und des Zielblattes erforderlich.

Grüße
EarlFred

Chris85 · 27. Januar 2011

Folgendes ist bisher der Grundstock:

Code:

Sub Alle_txt_Dateien_Importieren()
strExt = "*.txt" 'Dateiextension ggf. anpassen
ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (" & strExt & "), " & strExt, _
Title:="Verzeichnisauswahl, erste Datei auswählen")
If ZuÖffnendeDatei = False Then Exit Sub
'Die ausgewählte Datei ist egal. es wird hier nur das Verzeichnis der Datei ausgewertet
strPath = CurDir & "\"
If strPath = "" Then
Exit Sub
Else
ChDir strPath
strFile = Dir(strPath & strExt) 'hier wird die erste Datei gefunden
Do While Len(strFile) > 0
Workbooks.OpenText Filename:=strPath & strFile, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
Tab:=False, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, trailingMinusNumbers:=True
Sheets(1).Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
'...weiter mit Änderungen an der Tabelle
'...
Range("F7").Select
ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-3]"
Range("F11").Select
ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-3]"
Range("F13").Select
ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-3]"
Range("F14").Select
strFile = Dir() ' nächste Datei
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "Tau"
Range("B1").Select
ActiveCell.FormulaR1C1 = "f"
Range("C1").Select
ActiveCell.FormulaR1C1 = "G'"
Range("D1").Select
ActiveCell.FormulaR1C1 = "G''"
Range("F1").Select
ActiveCell.FormulaR1C1 = "G''/G'"
Loop
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das oben genannte sollte dort integriert bzw. angefügt werden

Meine Dateien befinden sich in einem separaten Ordner und daraus werden alle .txt-Files bis jetzt in ein neues Tabellenblatt importiert (die Werte bei 1,00, 4,642 und 10,00 sollen berechnet werden ).

Die .txt-Dateien sind nach folgendem Schema aufgebaut:

Code:

1,602;0,100;15,36;2,084;
0,989;0,147;0,0004548;0,04582;
3,041;0,215;0,001149;0,08663;
4,828;0,316;0,007893;0,124;
8,937;0,464;0,01467;0,166;
16,68;0,681;0,02905;0,269;
24,48;1,000;0,04007;0,441;
22,64;1,468;0,08638;0,435;
34,14;2,154;0,213;0,884;
62,40;3,162;0,09193;1,797;
102,7;4,642;0,738;2,095;
182,7;6,813;2,806;2,364;
1133;10,00;22,08;2,295;
6383;14,68;15,33;26,90;
8719;21,54;84,06;201,4;
11940;31,62;217,1;190,2;
11940;46,42;309,7;868,4;
11940;68,13;7055;5662;
11940;100,0;15100;7055;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich kriegs einfach nicht hin...

EarlFred · 27. Januar 2011

Hallo Chris,

ich dachte eher an ein Beispiel, wie die Tabellenblätter aussehen (also wo die zu kopierenden Daten stehen) und wie Du sie in der Zusammenstellung dargestellt haben willst...

Naja, schau ich mir heute nicht mehr an - muss ins Bett. Vielleicht morgen, wenn keiner schneller war.

Nur schnell nebenbei:
anstelle
Code:

Range("F7").Select
ActiveCell.FormulaR1C1 = "=RC[-2]/RC[-3]"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

geht auch
Code:

Range("F7").FormulaR1C1 = "=RC[-2]/RC[-3]"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Chris85 · 27. Januar 2011

Ich danke Dir!
Wenn Du den oberen Code in Excel eingibst und laufen lässt, öffnet sich dann ein Fenster, wo Du die Dateien auswählen kannst, die Du importieren willst. Daher habe ich Dir ein Beispiel einer meiner TEXT-Dateien mitgeschickt. Dadurch wird Dir dann ja auch das Tabellenblatt erzeugt (hoff ich zumindest...).
Ich hab Dir jetzt mal das Tabellenblatt, so wie die Daten in etwa aussehen, hochgeladen!

EarlFred · 28. Januar 2011

Hallo Chris,

habe Dir mal ein Makro geschrieben, das von allen Tabellen die betreffenden Werte auf das Blatt "Zusammenstellung" (musst Du in der Datei vorher anlegen) einträgt.
Code:

Sub zustel()
Dim ws As Worksheet
With Worksheets("Zusammenstellung")
.Cells.ClearContents
.Range("A1:D1") = Array("Tabelle", "Wert1", "Wert2", "Wert3")
For Each ws In ThisWorkbook.Worksheets
If ws.Name "Zusammenstellung" Then
.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4) = _
Array(ws.Name, ws.Range("F8").Value, ws.Range("F12").Value, ws.Range("F14").Value)
End If
Next ws
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Theoretisch könntest Du auch nach dem Einlesen jedes Textdokumentes eine Zeile anfügen, das halte ich aber nicht für optimal. Es könnte ja mal sein, dass Du Blätter wieder entfernst, welche von Hand hinzufügst oder oder. Das alles abzufangen wäre komplizierter (da ich die Arbeitsweise nicht vollständig kenne) als einfach eine Liste auf Anforderung zusammenzustellen.

Grüße
EarlFred

Chris85 · 28. Januar 2011

Hallo Earlfred,

Hab vielen Dank! Das ist genau das was ich gebraucht habe. Danke Danke Danke!!!

Allerdings wäre es toll Du mir noch etwas helfen könntest... könntest Du vielleicht den Code den Du geschrieben hast, etwas kommentieren? Ganz klar, was womit geschiet, ist mir nämlich nicht... auch bei meinem eigenen oben eingefügten Code *tongue.gif* ... den hab ich ja auch nur irgendwie mit dem Internet zusammen gebastelt! Ich bin wirklich fasziniert, was man alles mit VB machen kann... ich schätze da kommt noch viel auf mich zu *Smilie

Viele Grüße und Danke
Chris

EarlFred · 28. Januar 2011

Hallo Chris,

zum Verständnis eines Codes sind hilfreich:
- Taste F8: Einzelschritt. Das Makro also mal Schritt für Schritt "abklappern".
- Onlinehilfe von VBA

Mein Code macht nichts anderes als
- in der Zusammenfassung erstmal alles löschen und Überschriften eintragen
- dann Blatt für Blatt die Werte aus den Zellen F8, F12 und F14 in die Zusammenfassung übertragen (und den Blattnamen davor schreiben).

Also: Schau Dir den Code an und wenn Du Fragen dazu hast, frag. Ins Blaue irgendwie alles erklären ist mir einfach zu viel Arbeit...

Grüße
EarlFred

Chris85 · 29. Januar 2011

Hallo Earlfred,

Danke für all Deine Hilfen! Ich habe mir mal Deine Signatur angeguckt. Die ist schon ziemlich hilfreich. Ich denke ich verstehe jetzt einiges mehr!

Wünsch Dir noch ein schönes Wochenende!
Viele Grüße
Chris

Office: Werte aus mehreren Tabellenblätter in neues Tabellenblatt einfügen

Werte aus mehreren Tabellenblätter in neues Tabellenblatt einfügen

Werte aus mehreren Tabellenblätter in neues Tabellenblatt einfügen

Werte aus mehreren Tabellenblätter in neues Tabellenblatt einfügen

Werte aus mehreren Tabellenblätter in neues Tabellenblatt einfügen

Werte aus mehreren Tabellenblätter in neues Tabellenblatt einfügen - Similar Threads - Werte mehreren Tabellenblätter

SQL: Filtern mit mehreren Werten aus einer Excelspalte (Liste)

Werte aus mehrere Zellen in einer Anzeigen lassen über mehrere Tabellenblätter

Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln

Werte aus mehreren Tabellenblättern in ein Neues Kopieren

Werte aus mehreren Tabellenblättern summieren, wenn Suchkriterium stimmt

Verknüpfungen zwischen mehreren Tabellenblättern

Werte aus mehreren Tabellenblättern suchen