zzgl. Feld bei Import
31.10.2016 10:48:55
Fred
Die Aktion in meiner Arbeitsmappe:
Ich importiere in meine Arbeitsmappe / Blatt Basis die ersten 9 Spalten eines jeden Tabellenblattes aus der Arbeitsmappe Aktuell.
Ziel von diesem Import ist mein Tabellenblatt Basis, beginnend bei A2
Der code:
Sub DatenImport()
Dim wksZ As Worksheet, wksQ As Worksheet, wkbQ As Workbook
Const strWkbQ As String = "Aktuell.xls"
Application.ScreenUpdating = False
Set wksZ = ThisWorkbook.Sheets("Basis")
On Error Resume Next
Set wkbQ = Workbooks(strWkbQ)
On Error GoTo 0
If wkbQ Is Nothing Then
Set wkbQ = Workbooks.Open(ThisWorkbook.Path & "\00_Daten\" & strWkbQ)
End If
For Each wksQ In wkbQ.Worksheets
wksQ.Cells(1, 1).CurrentRegion.Offset(1).Resize(, 9).Copy _
wksZ.Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next
wkbQ.Close False 'QuellWB ohne zu speichern schließen
End Sub
Ich möchte, dass jeder eingefügten Zeile eine weitere Spalte mit der Bezeichnung S_10 zugefügt wird.
Kann mir bitte jemand diesen Code daraufhin ergänzen?
Mit freundlichen Grüßen
Fred