Hallo,
jetzt gibt es doch wieder andere Voraussetzungen, also noch mal:
Public Sub Daten_sammeln()
Dim ws As Worksheet
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Dim raKopierbereich As Range
Worksheets.Add Before:=Worksheets(1)
ActiveSheet.Name = "Auswertung"
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "Sparkasse", "BarEinnahmen", "BarAusgaben"
With ws
loLetzteQ = .Cells(.Rows.Count, 1).End(xlUp).Row
loLetzteZ = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
Set raKopierbereich = .Range(.Cells(7, 1), .Cells(loLetzteQ, 13))
raKopierbereich.Copy Worksheets(1).Cells(loLetzteZ, 1)
End With
Case Else
End Select
Next
Set raKopierbereich = Nothing
End Sub
Das Makro komplett in ein allgemeines Modul kopieren. Auf eines deiner Tabellenblätter eine Schaltfläche und der Schaltfläche das Makro zuweisen.
Eine Anmerkung noch: Wenn sowohl mein vorheriges Makro, als auch das von Kai bei dir mit dem gleichen Fehler aussteigt, dann liegt der Fehler wohl eher bei dir als bei den Makros. Meines zumindest hatte ich bei mir getestet und es lief (bis auf den Schreibfehler den ich im Code hatte).
Gruß Werner
|