Markierte Zeile per VBA in andere Mappe kopieren
17.11.2016 18:48:26
Basti
ich stehe schon wieder auf dem Schlauch und brauche von den VBA-Helden hier etwas Hilfe.
Im Forum habe ich einen Code gefunden, der die Daten einer markierten Zellen in eine andere, geschlossene Arbeitsmappe schreibt.
Leider kopiert der Code nur den Werte aus der ersten Zelle, der jeweils gewählten Zeile.
Ich würde gerne immer fest definierte Zellen kopieren (z.B A, C, E, F, G)
Ich vermutet, es geht mit einer kleinen Änderung im Code.
Danke für Eure Hilfe.
Gruß
Basti
https://www.herber.de/forum/archiv/1152to1156/1154379_Zeilen_markieren_und_per_VBA_kopieren.html#top
Sub myCopy3()
Dim objXLApp As Excel.Application
Dim objXLABC As Excel.Workbook
Dim objXLWorkbooks As Excel.Workbooks
Dim neuWkb
Dim lngLastRow As Long
Dim mySelection()
Dim myCounter()
Dim i As Long
mySelection = Selection
ReDim myCounter(1 To UBound(mySelection))
For i = LBound(mySelection()) To UBound(mySelection())
myCounter(i) = mySelection(i, 1)
Next
Set objXLApp = New Excel.Application
Set objXLWorkbooks = objXLApp.Workbooks
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set objXLABC = objXLWorkbooks.Open("C:\Users\Steffen\Desktop\Mappe2.xls")
neuWkb = objXLABC.Name
With objXLWorkbooks(neuWkb).Sheets(1)
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = LBound(mySelection()) To UBound(mySelection())
.Cells(lngLastRow + i, 1).Offset(1, 0) = myCounter(i)
Next
End With
objXLWorkbooks(neuWkb).Close savechanges:=True
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Set objXLApp = Nothing
Set objXLWorkbooks = Nothing
End Sub