Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe ein Problem. Ich habe 15 Exceldateien mit Messdaten. Jede Exceldatei hat eine Tabelle. Die Messdaten jeder einzelnen Tabelle möchte ich in verschiedenen Tabellen eines Hauptdokumentes einbeten, das bereits formatiert und mit Formeln vorgesehen ist. Der Code sollte auch künftig, im Ordner X neu gespeicherten Exceldateien mit berücksichtigen. Ich komme nicht drauf. Ich kenne mich leider mit Visual Basic auch sehr sehr wenig aus. Ich würde mich sehr über eine Antwort freuen.

hi all

oft gestellte frage :-))

gruss gast123

Sub FilesListen()
Call EventsOff
Dim Dateien As Integer
Dim DateiName As String
With Application.FileSearch
.NewSearch
Rem der der quellpfad sollte angepasst werden
.LookIn = "C:\Temp\"
.Filename = "*.xls"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(Dateien))
If DateiName <> ThisWorkbook.Name Then
Workbooks.Open Filename:=.FoundFiles(Dateien)
Rem der auszulesende bereich sollte angepasst werden
Workbooks(DateiName).Sheets("Tabelle1").Range("A2:U" & Workbooks(DateiName).Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row).Copy ThisWorkbook.Sheets("Tabelle1").Range("A" & ThisWorkbook.Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
Workbooks(DateiName).Close SaveChanges:=True
End If
Next Dateien
End If
End With
Call EventsOn
End Sub
Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Hallo gast123,

vielen Dank! Echt prima die Lösung. Hat mich einen Quantensprung weiter gebracht.

Und großes Lob für dieses Forum und dessen Mietgliedern.

Gruss,

garotinho.

Hallo gast123,

vielen Dank für die Antwort. Genau das habe ich gesucht.

Und ein großes Lob für das Forum!! Sehr gute Berichte, sehr gute Reaktion und hochwertige Hilfe!

Gruß,

garotinho

• Werte aus einer Exceltabelle in eine andere importieren
• Daten von verschiedenen Exceldokumente in ein Hauptdokument importieren (mit VBA)
• Thunderbird Daten sichern und anschließend importieren
• Makro Daten Importieren