Zellenreihe wird in falsches Sheet kopiert
26.07.2019 12:00:12
Joschuah
Ich kriege von einer AM-Software einen Output in Excel, der wie folgt aussieht:
Es hat jeweils in Spalte A verschiedene Bankennamen und darunter dazugehörige Positionen. Die verschiedenen Banken & Positionen sind voneinander durch eine leere Zellenreihe getrennt.
Nun möchte ich die einzelnen Banken mittels Makro in jeweils ein eigenes Excel-File kopieren. _
Mein Code für eine einzelne Bank:
Sub Makro2()
Dim startR As Range, endR As Range, rangeToCopy As Range
Set startR = ActiveSheet.Range("A1")
startR.Activate
Set startR = Cells.Find(What:="BANKNAME", _
After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
Set endR = startR.End(xlDown).Offset(0, 0)
startR.Select
endR.Select
Set rangeToCopy = Rows(startR.Offset(1, 0).Row & ":" & endR.Row)
rangeToCopy.Select
rangeToCopy.Copy
Worksheets.Add
Rows("1:1").Select
rangeToCopy.Insert Shift:=xlDown
End Sub
Es klappt eigentlich alles ganz gut, ausser dass es mir die Range nicht in das neue File, sondern im alten File unter die kopierten Reihen einfügt. Ich bin absolut ratlos, da es anhand der Makro-Aufzeichnung so zu funktionieren scheint.
Vielen Dank schon im Voraus für die Hilfe!