Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
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
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenimport aus mehreren excel tabellen

Datenimport aus mehreren excel tabellen
29.01.2018 19:59:03
Okan
Guten Tag,
Ich habe ein Problem, was ich selber nicht bewältigen kann.
Ich möchte bestimmte Daten aus allen Excel Tabellen, aus einem fixierten Ordnerpfad, in eine andere bestehende Excel Tabelle einlesen.
Als Beispiel: Ich möchte, dass Zellen A1:B2 aus allen Excel Tabellen in dem Ordnerpfad Desktop in die Excel Datei excel neu (welche geöffnet ist und aus dem das Makro agieren werden soll) in Zellen A1:B20.
Dabei soll nach Datum sortiert werden und das aktuellste ganz oben stehen.
Bei dem Fall, wo mehr externe Daten vorhanden sind als der Bereich in dem importiert werden soll, sollen die ältesten externen Daten nicht betrachtet werden.
Ich bedanke mich im Voraus für alle Vorschläge.

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenimport aus mehreren excel tabellen
29.01.2018 20:23:54
Sepp
Hallo Okan,
da gibt es viele Möglichkeiten. Aber ein paar Infos musst du schon geben.
  • Haben die Daten überschriften?

  • Wie heißt die Tabelle aus der importiert werden soll?

  • Hat die Tabelle in die importiert wird Überschriften?

  • Sollen vorhandene Daten aus einem früheren import gelöscht/überschrieben werden?

Gruß Sepp

AW: Datenimport aus mehreren excel tabellen
30.01.2018 09:13:58
Okan
Guten Tag Sepp,
Die Tabellen aus dem Importiert werden soll heißen
Partikelfallenanalyse_CAR_LV_210621_26.01.2018
lediglich das Datum ändert sich.
Die Dateien befinden sich in dem Ordner
C:\Users\firato\Desktop\Praxismodul\Praxismodul3\Versuchsordner_Analyseergebnisse_Partikelfalle\LV_210621
Die Daten aus einem früheren Import sollen überschrieben werden.
Es sind keine Überschriften vorhanden.
Anzeige
AW: Datenimport aus mehreren excel tabellen
30.01.2018 09:31:45
Sepp
Hallo Okan,
die Datei heißt z.B. 'Partikelfallenanalyse_CAR_LV_210621_26.01.2018.xlsx', oder?
Wie heißt das Tabellenblatt?
Gruß Sepp

AW: Datenimport aus mehreren excel tabellen
30.01.2018 09:31:47
Sepp
Hallo Okan,
die Datei heißt z.B. 'Partikelfallenanalyse_CAR_LV_210621_26.01.2018.xlsx', oder?
Wie heißt das Tabellenblatt?
Gruß Sepp

AW: Datenimport aus mehreren excel tabellen
30.01.2018 09:45:18
Okan
Guten Tag Sepp,
ja die Datei heißt 'Partikelfallenanalyse_CAR_LV_210621_26.01.2018.xlsx'
Das Tebellenblatt heißt Report
VG Okan
Anzeige
AW: Datenimport aus mehreren excel tabellen
30.01.2018 10:04:28
Okan
Guten Tag Sepp,
funktioniert super. Ich danke dir.
VG Okan
AW: Datenimport aus mehreren excel tabellen
30.01.2018 10:19:30
Okan
Hi Sepp,
eine Frage habe ich noch,
was muss ich ändern, wenn ich die Inhalte der Zellen nicht in A und B haben will sondern in B und C.
Danke im Voraus.
AW: Datenimport aus mehreren excel tabellen
30.01.2018 10:31:00
Sepp
Hallo Okan,
dazu muss man nur in folgender Prozedur zwei Änderungen vornehmen.
Public Sub importData()
Dim objFileSearch As clsFileSearch
Dim lngIndex As Long, lngCount As Long
Dim varOutput As Variant
Dim strPath As String, strFormula As String

Const cstrTabname As String = "Report" 'Tabellenname

strPath = _
  "C:\Users\firato\Desktop\Praxismodul\Praxismodul3\Versuchsordner_Analyseergebnisse_Partikelfalle\LV_210621"  'Startverzeichnis

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

With Tabelle1
  
  .Range("B:C").ClearContents
  
  Set objFileSearch = New clsFileSearch
  
  With objFileSearch
    .NewSearch = True
    .CaseSenstiv = False
    .Extension = "*.xls*"
    .FolderPath = strPath
    .SearchLike = "*Partikelfallenanalyse_CAR_LV_210621_*"
    .SubFolders = False
    If .Execute(Sort_by_Date_Create, Sort_Order_Descending) > 0 Then
      Redim varOutput(1 To 20, 1 To 2)
      lngCount = 1
      For lngIndex = 1 To .FileCount
        If lngCount > 20 Then Exit For
        strFormula = "='" & .Files(lngIndex).FI_FolderPath
        strFormula = strFormula & "[" & .Files(lngIndex).FI_FileName & "]"
        strFormula = strFormula & cstrTabname & "'!"
        varOutput(lngCount, 1) = strFormula & "A1"
        varOutput(lngCount, 2) = strFormula & "B1"
        varOutput(lngCount + 1, 1) = strFormula & "A2"
        varOutput(lngCount + 1, 2) = strFormula & "B2"
        lngCount = lngCount + 2
      Next
    End If
  End With
  With .Range("B1").Resize(UBound(varOutput, 1), 2)
    .Formula = varOutput
    .Value = .Value
  End With
End With

Set objFileSearch = Nothing

End Sub

Gruß Sepp

Anzeige
AW: Datenimport aus mehreren excel tabellen
30.01.2018 10:33:57
Okan
Hi Sepp,
habe es selber gefunden wie man die Startzelle benennt.
Mir fällt noch eine Frage ein. Was, wenn ich nun die Zellen B - C importieren will.
Wie müsste ich das Makro anpassen?
VG
Okan
AW: Datenimport aus mehreren excel tabellen
30.01.2018 10:36:43
Sepp
Hallo Okan,
dazu musst du diese Zeile und ff. ändern.
aus 
varOutput(lngCount, 1) = strFormula & "A1"

wird 
varOutput(lngCount, 1) = strFormula & "B1"

usw.
Gruß Sepp

Anzeige
AW: Datenimport aus mehreren excel tabellen
30.01.2018 10:58:41
Okan
Ich danke dir Sepp.
VG
Okan
AW: Datenimport aus mehreren excel tabellen
30.01.2018 11:17:30
Okan
Guten Tag Sepp,
wenn ich das Makro Public Sub importData() in die Tabelle einfüge, wo ich sie benötige, funktioniert sie leider nicht.
Der Tabellenname lautet LV_210621
Muss ich alles Nutzen (Klassenmodule, usw.)
VG
Okan
AW: Datenimport aus mehreren excel tabellen
30.01.2018 11:22:37
Sepp
Hallo Okan,
ja, du musst alles in die Datei übernehmen, das Klassenmodul ist sorgar das wichtigste und es muss 'clsFileSearch' heißen!
Am einfachsten die beiden Module per Drag&Drop in die Datei übernehmen.
Im Code bei
With Tabelle1
gibst du die entsprechende Tabelle an, entweder per CodeName 
With CodeName_der_Tabelle

oder mt ihrem Namen 
With Sheets"LV_210621")

Gruß Sepp

Anzeige
AW: Datenimport aus mehreren excel tabellen
30.01.2018 11:33:01
Okan
Hi Sepp,
danke. Funktioniert.
Jetzt hoffe ich nur noch, dass ich die Abläufe nachvollziehen kann.
VG
Okan
AW: Datenimport aus mehreren excel tabellen
30.01.2018 13:52:59
Okan
Guten Tag Sepp,
was bedeutet "kernel32.dll" ?
und wofür steht diese
Private Enum FILE_ATTRIBUTE
FILE_ATTRIBUTE_READONLY = &H1
FILE_ATTRIBUTE_HIDDEN = &H2
FILE_ATTRIBUTE_SYSTEM = &H4
FILE_ATTRIBUTE_DIRECTORY = &H10
FILE_ATTRIBUTE_ARCHIVE = &H20
FILE_ATTRIBUTE_NORMAL = &H80
FILE_ATTRIBUTE_TEMPORARY = &H100
End Enum
funktion?
VG
Okan
AW: Datenimport aus mehreren excel tabellen
30.01.2018 14:27:32
Sepp
Hallo Okan,
'kernel32.dll' ist eine Systemdatei, eine Dinamic Link Library auf die per API-Funktionen (API=Application Programming Interface) zugegriffen wird.
Das Enum-Statement deklarierte eine Enumeration in der Enumerationsvariablen festgelegt werden, auf die Funktionen oder Prozeduren dann zugreifen können.
Gruß Sepp

Anzeige

315 Forumthreads zu ähnlichen Themen

Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Anzeige
Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
mehrere Tabellenblätter in ein PDF drucken
Christian

Hallo zusammen,
nachdem ich im Forum keine Info zu meinem Thema gefunden habe:
Ich möchte mehrere Tabellenblätter einer Datei als PDF ausdrucken. Also markiere ich die Tabellenblätter und gehe wie gewohnt ins Menü "Drucken" (PDF über Acrobat 7.0 oder PDF XChange 4.0 Lite).
Leider we...
10.10.2008 09:11:00
Thread-ID: 1015503
2 Beiträge
Anzeige
3D Diagramm erstellen aus Matrix
Kay

Hallo,
Ich habe in Excel eine Matrix, die folgendermaßen aufgeteilt ist
A B C D
15 12% 10% 15% 20%
30 10% 13% 17% 19%
45 8% 12% 15% 17%
Wie bekomme ich es nun hin, dass mir auf der Größenachse alle %-Werte, auf der Rubrikenachse die Zeile...
29.10.2008 21:38:38
Thread-ID: 1020422
7 Beiträge
Optimale Spaltenbreite per makro auf anderem Blatt
Macro

Hi,
Ich möchte von einem Tabellenblatt aus per Button die "optimale Spaltenbreite" auf einem anderen Blatt einstellen.
Kann ich das machen, ohne dass mein Tabellenblatt, von dem ich aus starte, den Focus verliert, bzw, dass ich das zweite Tabellenblatt (wo die Einstellung statt finden...
10.12.2008 13:37:50
Thread-ID: 1031680
4 Beiträge
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Diagramm als Tacho mit 3 Linien
SteffenS

Hallo Zusammen,
ich habe im Netz ein Beispiel für ein Tachodiagramm gefunden.
Dieses funktioniert auch super.
Ich benötige aber statt zwei 3 Zeiger.
Wie mache ich dies?
Hier die Datei: https://www.herber.de/bbs/user/61277.xls
Danke im Voraus.
MFG
Steffen Schmerl...
18.04.2009 14:20:13
Thread-ID: 1069491
4 Beiträge
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
4
1
4
6
3
3
3
2
5
1
13
5
4
6
2
2
3
3
2
2
3
6
1