Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aggregieren

Daten aggregieren
28.06.2007 14:59:55
Herbert Brun

Hallo Experten,
ich möchte gern Daten, die mir täglich übermittelt werden in einer Datei pflegen. Jede Tabelle ist genau 50 Zeilen lang. Spalte A beinhaltet den Artikelnamen. Spalte B den Preis des jeweiligen Gutes. Alle Dateien befinden sich in einem Ordner. Ich müsste nun die erste Datei öffnen, den Inhalt kopieren und in eine neue Tabelle einfügen. Dann zweite Datei öffnen, kopieren und unter die ersten Werte in die neue Tabelle kopieren ... .
Da es ca. 100 Dateien sind, suche ich nach einem Weg dies zu automatisieren. d.h. Dateiinhalt automatisch kopieren und immer in die letzte freie Zeile (unter den Rest) einfügen.
Bin für jeden Tipp dankbar.
Gruß Herbert

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aggregieren
28.06.2007 16:34:32
Peter Feustel
Hallo Herbert,
hier ist ein Muster mit zwei Dateien - vielleicht kannst du das für deine Belange anpassen.
Sonst musst du dich wieder melden und mehr über deine Dateien (Namen, Spalten, ggf. Überschriften etc.) preisgeben.
'
' habe eine Datei "Gesamt.xls". Hier möchte ich in Tabellenblatt 1 ("Daten")
' Werte aus 2 verschiedenen Dateien (Bezirk1.xls, Bezirk2.xls)
' jeweils aus Tabellenblatt("Tabelle1") zusammenfassen.
' Dabei sollen in ("Bezirk1.xls"/"Tabelle1") alle Zeilen mit Werten kopiert
' und in "Gesamt.xls"/"Daten" eingefügt werden.
' Die nachfolgende Datei (Bezirk2) soll in der gleichen Art und Weise
' geöffnet/kopiert/geschlossen und übertragen werden.
' Dabei sollen diese Werte in der 1. freien nachfolgenden Zeile eingefügt werden.
'


Public Sub Makro_Test()
Dim WkSh_Ziel  As Workbook
Dim Pfad       As String
Dim Datei      As String
Dim lLetzte    As Long
Dim iIndx      As Integer
Pfad = "C:\Dolumente und Einstellungen\Administrator\Eigene Dateien\Excel-Dateien\"
Set WkSh_Ziel = Workbooks("Gesamt.xls").Worksheets("Daten")
For iIndx = 1 To 2
lLetzte = WkSh_Ziel.Cells(Rows.Count, 1).End(xlUp).Row + 1
Datei = "Bezirk" & iIndx & ".xls"
Workbooks.Open Filename:=Pfad & Datei
Workbooks(Datei).Worksheets("Tabelle1").Range(Range("A1"), _
Cells.SpecialCells(xlLastCell)).Copy _
Destination:=WkSh_Ziel.Cells(lLetzte, 1)
Workbooks(Datei).Close False
Next iIndx
End Sub


Gruß Peter

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige