Hallo Ubi 5,
so sollte es klappen:
Option Explicit
Sub KopiereTabellen()
'Daten je Worksheet kopieren
kopiereDaten ("Bank")
kopiereDaten ("Bar-Einnahmen")
kopiereDaten ("Bar-Ausgaben")
End Sub
Function kopiereDaten(ByRef name As String)
Dim lngLetzteZeile As Long
Dim lngErsteLeereZeile As Long
Dim wsEinnahmenAusgaben As Worksheet
'Der Reiter in den alle Daten kopiert werden habe ich EinnahmenAusgaben genannt
Set wsEinnahmenAusgaben = ThisWorkbook.Sheets("EinnahmenAusgaben")
With ThisWorkbook.Sheets(name)
'Letzte verwendete Zeile ermitteln
lngLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
'Spalte M = Spalte Nr. 13
'Bitte prüfen, ob die Werte ab Zeile 7 oder 8 kopiert werden sollen, dann ggf. Zeile anpassen
Range(Cells(7, 1), Cells(lngLetzteZeile, 13)).copy
End With
With wsEinnahmenAusgaben
'Erste freie Zeile in Sheet EinnahmenAusgaben ermitteln
lngErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
'Daten einfügen
.Cells(lngErsteLeereZeile, 1).PasteSpecial xlPasteValues
End With
End Function
Viele Grüße
Kai
|