Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Datenimport

VBA Datenimport
14.08.2007 09:50:20
Stefan
Hallo,
ich bin nun schon eine weile im forum auf der suche nur leider bin ich noch nicht fündig geworden. Vielleicht kann mir jemand einen Tip (richtiger Suchbegriff o.ä.) geben der mir bei der Lösung meines Problems hilft:
Das Problem:
Ich habe mehrere Excel Dateien mit jeweils mehreren Tabellen. Alle Tabellen sind inhaltlich gleich aufgebaut. Nun möchte ich gerne aus den Dateien alle Tabellenblätter in einer Excel Tabelle zusammenfassen.
Die Daten sollen in der neuen Datei untereinander (zur besseren weiteren Auswertung) geschrieben werden.
Wie kann ich bestimmte Zellen entsprechend definieren ?
Wie kann ich dafür sorgen das jeweils in der "Masterdatei" die neuen Datensätze angefügt werden (letzte leere Zeile) ?
Falls jemand auf die Schnelle bereits VBA Versionen mit ähnlichen Profil kennt bitte ich um kurze Info. Ich denke ich kann mir dann meine Lösung zurecht basteln.
Vielen Dank für jeden Tip.
Greetz
Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datenimport
14.08.2007 10:29:33
Renee
Mazwara Stefan,
Da dürfte sich Konsolidieren anbieten.
Greetz Renee

AW: VBA Datenimport
14.08.2007 10:35:44
Stefan
hi renee,
danke für deine nachricht. leider sind die tabellen an sich nich konsolidierungs geeignet auf grund der layout....da muss ich leider zuviel nachbearbeiten.
Trotzdem Danke
Gruß
S.

AW: VBA Datenimport
14.08.2007 10:31:00
Stefan
Ich habe mittlerweile ein VBA Makro gefunden was mir helfen würde.
Hierzu habe ich eine Frage:
Wie kann ich das Makro so anpassen das alle Tabellen einer Datei kopiert werden und nicht jeweils die erste ?
Danke & Gruß

Sub auslesen()
zahl = "0"
Application.DisplayAlerts = False ' Fehlermeldungen ausschalten
'Set ziel = ActiveWorkbook
ziel = ActiveWorkbook.Name ' Zieldatei
' Alle Dateien im Quellordner suchen
Dim i As Long
' in der Zeile Quellenordner den Pfad eingeben, wo Deine Dateien liegen
'  z. B. "C:\Eigene Dateien\"
Const verz = "c:\Dokumente und Einstellungen\herdts\Eigene Dateien\Matrix\Tableau de Bord\ _
TdB aktuell" ' Quellenordner
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.xls"
.Execute
End With
'Mit jeder Datei ...
For i = 1 To Application.FileSearch.FoundFiles.Count
gesamt = Application.FileSearch.FoundFiles.Count
zahl = Range("A65002")
Application.StatusBar = ("Bearbeite Datensatz " & 1 + zahl & " von " & gesamt)
Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i)) ' Öffnen
quelle = ActiveWorkbook.Name
Range("A65000") = ActiveWorkbook.Name
Range("A64999:A65000").Replace What:=".xls", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
nam = Range("A65000")
Range("A65000") = ""
Windows(ziel).Activate ' Zieldatei öffnen
Worksheets.Add.Move after:=Worksheets(Worksheets.Count) ' Neues Blatt ans Ende setzen und  _
Namen vergeben
ActiveSheet.Name = nam ' Name der Quelldatei
' Daten aus Quelldatei in Zieldatei kopieren
Windows(quelle).Activate
Cells.Copy
Windows(ziel).Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
' Neues Blatt im Inhaltsverzeichnis eintragen
Sheets("Inhaltsverzeichnis").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & nam & "'!A1", TextToDisplay:=nam
Range("A65002") = zahl
Range("A65002") = zahl + 1
' Quelldatei schließen und keine Änderungen speichern
Windows(quelle).Close savechanges = no
Next i
Application.StatusBar = ("Bereit")
' Zieldatei speichern
Application.DisplayAlerts = True
ActiveWorkbook.Save
End Sub


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige