Hallo zusammen,
ich möchte mir Daten aus einer "Inputmappe" über einen Filter in andere Tabellenblätter kopieren.
Sprich es sind hier Kontobewegungen der Fibu auf mehrere Tabellenblätter aufzuteilen, es kann aber sein, dass nicht jedes zu überwachende Konto in den Basisdaten enthalten ist.
Wie folgt wollte ich es lösen: (Ausschnitt)
Sub Aufteilen()
Dim lrow_Roh As Long
Dim lrow_17410 As Long
lrow_Roh = Sheets("Rohdaten").Cells(Rows.Count, 1).End(xlUp).Row
lrow_17410 = Sheets("17410").Cells(Rows.Count, 1).End(xlUp).Row
'17410
On Error GoTo end17410
'Kto kopieren
Sheets("Rohdaten").Select
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Range("A10:L50000").AutoFilter Field:=1, Criteria1:="17410"
Range("A11:A" & lrow_Roh).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("17410").Select
Range("A" & lrow_17410).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Datum kopieren
Sheets("Rohdaten").Select
Range("D11:D" & lrow_Roh).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("17410").Select
Range("B" & lrow_17410).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Belegnummer kopieren
Sheets("Rohdaten").Select
Range("J11:J" & lrow_Roh).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("17410").Select
Range("C" & lrow_17410).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Beschreibung kopieren
Sheets("Rohdaten").Select
Range("H11:H" & lrow_Roh).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("17410").Select
Range("D" & lrow_17410).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Betrag kopieren
Sheets("Rohdaten").Select
Range("B11:B" & lrow_Roh).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("17410").Select
Range("E" & lrow_17410).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end17410:
Wenn es jetzt aber mit Konto 17410 keine Einträge gibt, erscheint trotz dem gefühlt richtigen Errorhandler einen Fehler, weil keine Daten gefunden wurden im Filter welche kopiert werden könnten...
Weiß jemand Rat ?
Vielen DAnk,
Sebastian