Daten import aus Excel
06.07.2017 13:44:09
Lenny
Habe schon öfters in diesem Forum Hilfe erhalten und hoffe, dass das auch dieses mal der Fall sein wird.
Hier meine Herausforderung:
Ich bekomme von verschieden Projektleitern Excel-Dateien zugeschickt, in denen sie Projekte kalkuliert haben. Für die Zusammenfassung bringe ich alle Zahlen auf ein Excel zusammen.
Bis anhin habe ich die Zahlen aus den unterschiedlichen Excel-Dateien einfach in ein standardisierte Zusammenfassung kopiert. Nicht sehr elegant aber es hat funktioniert. Da es aber doch ein paar Zahl sind, ist öfters auch mal die eine oder andere Zahl in der falschen Zelle gelandet.
Habe mir jetzt ein Makro, dass ich im Netzt gefunden habe ein wenig angepasst, aber bei einem Punkt komme ich nicht weiter.
Wie sage ich, dass ich von der ausgewählten Datei das Sheet xxx möchte und die Zellen A,B,C, etc. kopieren und in der Zusammenfassung an die Stelle X,Y,Z einfügen möchte? (Habe die Stelle im unten stehenden Makro mal fett markiert).
Vielen Dank in Voraus für eure Hilfe oder auch nur Hinweise
Gruss Lenny
Sub Import_mit_Dialog()
Dim Quelle As Object, Ziel As Object
Dim Datei As String
On Error GoTo Fehler
'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xlsm),*xlsm")
'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
'MsgBox "Ausgewählte Datei: " & Datei, , ""
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei
'Auslesen der gewählten Tabelle
'Angenommen das Sheet "Daten" stehen in Zelle A2
'Wichtig: die Auswahl muss genauso lauten, wie das Tabellenblatt von dem kopiert werden soll
Set Ziel = ThisWorkbook.Worksheets(3)
blatt = Ziel.Range("B10").Value
Set Quelle = ActiveWorkbook.Worksheets(blatt)
'gewähltes Blatt wird definiert als Quelle
'kopieren und einfügen
Quelle.UsedRange.Copy Ziel.Cells(1, 1)
ActiveWorkbook.Close
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
Exit Sub
Fehler:
Set Quelle = Nothing
Set Ziel = Nothing
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub