kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" vor. Wäre für Anregungen dankbar, speziell für eine verschlankung des Codes (da sehr viele Daten aus der anderen AM für vergleichszahlen importiert werden müssen) und insbesondere für einen Import der Daten ohne die gewählte datei öffnen zu müssen.
hier der Code:
Sub Test ()
On Error GoTo Ende
Dim wkb As Workbook 'Arbeitsmappe def.
Set wkb = ActiveWorkbook 'Arbeitsmappe auf das aktive Workbook setzen
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Dialogs(xlDialogOpen).Show 'Nun ist das aktive Workbook das neu geöffnete
Worksheets("Tabelle1").Range("B5:H15").Copy
wkb.Worksheets("Tabelle2").Range("B5").PasteSpecial _
Paste:=xlPasteValues
Worksheets("Tabelle2").Range("B5:H15").Copy
wkb.Worksheets("Tabelle3").Range("B5").PasteSpecial _
Paste:=xlPasteValues
Worksheets("Tabelle3").Range("B5:H15").Copy
wkb.Worksheets("Tabelle4").Range("B5").PasteSpecial _
Paste:=xlPasteValues
Application.CutCopyMode = False
For Each wkb In Workbooks
If wkb.Name ThisWorkbook.Name Then
wkb.Close savechanges:=False
End If
Next wkb
Ende:
Application.ScreenUpdating = True
Application.EnableEvents = True
Worksheets("Checkliste").Select
ActiveWorkbook.Save
End Sub