Konsolidier-Makro-Tool

Hallo liebe Mitglieder,
ich habe folgendes Problem bei dem ich nicht weiterkomme und eure Hilfe benötige:
Ich habe viele Excel-Dokumente, die alle gleich aufgebaut sind und im gleichen Verzeichnis liegen. Davon interessieren mich aber jeweils nur 2 - 3 Zellen. Ich würde gerne ein Makro erstellen, das wie folgt funktioniert:
-Makro starten; ein Fenster geht auf und fragt nach dem Ordner mit den Dateien
-Auswahl des Ordners; Bestätigen
-Ein weiteres Fenster geht auf; hier muss ich nun die Position der Quellzellen bestimmen (Beispielwerte):
--------------------------------------------------------
Quelldaten / Spalte / Zeile / Tabellenreiter /
--------------------------------------------------------
Zelle 1 / A / 2 / Tabelle 1 /
---------------------------------------------------------
Zelle 2 / C / 3 / Tabelle 3 /
--------------------------------------------------------
-Bestätigen;
-Anschließend wird nach dem Ziel der Datenausgabe gefragt,
-Nun kann ich entweder mit der Maus, oder per Eingabe die Position auf einem beliebigen Excel-sheet bestimmen, an welcher Stelle die Daten untereinander zusammengefasst und verlinkt werden.
---------------------------------------------------------
Dateinamme / Wert Zelle 1 / Wert Zelle 2 /
---------------------------------------------------------
Dateiname XY / 12 / 23 /
---------------------------------------------------------
Dateiname ABC / -256 / -32 /
---------------------------------------------------------
.... / ... / ... /
----------------------------------------------------------
Ich hoffe, dass ich es klar und verständlich formuliert habe. Ich habe auch schon nach ähnlichen Artikeln gesucht, jedoch konnten die Makros nur bedingt das, was ich haben möchte. Hier ein Beispiel:
https://www.herber.de/forum/archiv/1248to...ml#1250415
Vielen Dank im Voraus
Gruß
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Function FileList(strPath$, Optional sFilter = "*.*") Dim Fso As Object, Ordner As Object, Datei As Object Dim i% Dim ArData() Set Fso = CreateObject("Scripting.FileSystemObject") Set Ordner = Fso.getfolder(strPath) For Each Datei In Ordner.Files If Datei.Name Like sFilter Then ReDim Preserve ArData(i) ArData(i) = Datei.Name i = i + 1 End If Debug.Print Datei.Name Next Datei If i > 0 Then FileList = ArData End Function

Private Sub CommandButtonOrdner_Click() Dim sPath$, varFiles, varSheets sPath = fncGetFolder(, ThisWorkbook.Path) If sPath "" Then Label1.Caption = sPath varFiles = FileList(sPath, "*.xls*") If IsArray(varFiles) Then ListBox1.List = varFiles varSheets = GetSheetNames(sPath & varFiles(LBound(varFiles))) If IsArray(varSheets) Then ComboBox1.List = varSheets ComboBox2.List = varSheets Else '#################Dieses Else habe ich einfach deaktiviert####################### 'Call LoescheAuswahl End If Else Call LoescheAuswahl End If Else Call LoescheAuswahl End If End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Konsolidier-Makro-Tool

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread