Zweites Workbook öffnen und Daten Importieren
18.01.2019 08:30:50
Marc.H
Für die Arbeit will ich Daten der letzten fünf Projekte miteinander vergleichen um daraus eine Kennzahl für Termineinhaltung und Kosteneinhaltung zu erhalten.
Dafür habe ich im Wb1 sechs Tabellen(5 Projekte + 1 Vorlage) gestaltet, die per
Makro rotiert werden. Bedeutet: Tabelle 4 wird zu 5, 3 zu 4, etc. und Tabelle 1 wird frei.
Nun möchte ich via ein Browserfenster das neue Projekt(Wb2) auswählen und daraus eine Tabelle (sagen wir Tabelle 1) bzw. deren Inhalt ins nun leere Projekt im Wb1 kopieren.
Die Rotation der Projekte und das öffnen des Suchfensters habe ich mir schon erarbeitet jedoch fehlt nun noch der wichtigste Teil, das einfügen der neuen Informationen.
Hoffe ihr könnt mir hierbei weiterhelfen.
Hier der Code(Ich habe zwei Versionen um das Suchfenster zu öffen, welche ist sinnvoller?):
Sub Tabellen_import_test()
Dim Appshell As Object
Dim Browsedir As Variant, Pfad As Variant
Dim wb1 As Workbook, wb2 As Workbook
Dim strFileName As String, strFilter As String
Pfad = ("T:\05_UP\01_FA\03_Projekte")
'Tabellen rotieren um Werkzeug 1 frei zu machen
Worksheets("Werkzeug 4").Range("A1:P90").Copy Destination:=Worksheets("Werkzeug 5").Range("A1")
Worksheets("Werkzeug 3").Range("A1:P90").Copy Destination:=Worksheets("Werkzeug 4").Range("A1")
Worksheets("Werkzeug 1").Range("A1:P90").Copy Destination:=Worksheets("Werkzeug 2").Range("A1")
Worksheets("Vorlage").Range("A1:P90").Copy Destination:=Worksheets("Werkzeug 1").Range("A1")
'********* browserfenster öffnen 1
Set Appshell = CreateObject("shell.application")
Set Browsedir = Appshell.browseforfolder(o, "ordner wählen", 0, (Pfad))
'#########browserfenster öffnen 2
'strFilter = "Excel-Dateien(*.xl*), *.xl*"
'ChDrive "T"
'ChDir "T:\05_UP\01_FA\03_Projekte"
'strFileName = Application.GetOpenFilename(strFilter)
End Sub