Supportnet / Forum / Tabellenkalkulation

Hi Zusammen, ich bin einer absoluter Neuling in Punkto VBA - und habe ein für mich nicht lösbares Problem. Ich erhalte wöchentlich 4 Exceldateien (mit unterschiedlicher Benamung) die ich Vereinskollegen immer in 1 Datei zur Verfügung stelle - das mache ich bisher per Drag und Drop und händiger Benamung der Tabellenblätter. Nun sind weitere Dateien hinzugekommen - und die Dateien kommen 2x pro Woche. Ich möchte daher wenn möglich, ein Makro welches über einen Öffnen-Dialog mehrere Dateien auswählbar macht und diese Dateien dann in 1 Exceldatei importiert. Die einzelnen Dateien sollen dabei jeweils ein Tabellenblatt darstellen und so benannt sein, wie die Datei ursprünglich hieß - ggf. könnte das Tabellenblatt auch aus einer Zelle und Datum benannt werden. Zusätzlich soll es möglich sein, per Formatvorlage die Dateien zu formatieren (z.B. Linien, Farben etc.) zu hinterlegen. Hat jemand eine Idee - oder eine ähnliche Lösung ? Bin für Hinweise oder Lösungsvorschläge dankbar. Denkt aber bitte dran ich bin ein Newbie in Sachen VBA. Danke Chris

Hallo Chris,

ich habe mal ganz schnell dieses Makro geschrieben:

Option Explicit

Sub test()
  Dim OrgFile$
  Dim FileName$
  OrgFile = ActiveWorkbook.Name
  Application.Dialogs(xlDialogOpen).Show
  FileName = ActiveWorkbook.Name
  Cells.Copy
  Workbooks(OrgFile).Activate
  Sheets.Add
  ActiveSheet.Name = Left(FileName, Len(FileName) - 4)
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Workbooks(FileName).Activate
  ActiveWorkbook.Close
End Sub

Ich gehe davon aus, dass Du weist, wo das Makro eingegeben wird. Wenn nicht, nochmals melden. Hier im Supportnet gibt es auch Anleitungen dafür.

Bevor Du das Makro ausprobierst, erstmal die Dateien sichern, damit nichts schief geht.

Gruß
Günter

Hallo Günter,

super vielen Dank für die Hilfe - habe das Makro in Excel kopiert und laufen lassen.
Der Dialog ist so wie ich es mir vorstelle - leider werden jedoch die Dateien alle einzeln geöffnet - und nicht in einer Exceldatei - die dann 4 Tabellenblätter mit den Daten enthalten soll.
Es erscheint auch eine Fehlermeldung - "Systemfehler &H80010108 (-2147417848). Das aufgerufene Objekt wurde von den Clients getrennt"

Es wäre gut, wenn Du Dir das nochmals anschauen könntest.
Danke

viele Grüsse Chris

• eine Exceldatei mit einer anderen Exceldatei öffnen und dabei sendkey verwenden
• Makro zum Öffnen einer bestimmten Arbeitsmappe
• makro um beim öffnen der Arbeitsmappe dateiname zu prüfen
• Excel 2000 Exceldatei aus Exceldatei starten