Daten aus Tabellenblättern in ein Blatt kopieren
Jens
ich habe folgendes Problem:
Ich habe ca. 20 Tabellenblätter.
Auf allen Tabellenblättern sind drei Zellen (A4, A6, S41), deren Werte ich gerne auf Tabellenblatt 1 (Tabelle1) kopiert hätte.
Es sollen nur Werte, keine Formate kopiert werden [.PasteSpecial Paste:=xlPasteValues]
Nach jedem Kopieren der Daten aus einem Tabellenblatt, sollen sollen die Daten des nächsten Blattes in die Zeile darunter kopiert werden [.End(xlDown).Row]
hier mein Ansatz:
Sub Stunden_kopieren2()
For Each ws In Worksheets
If Not ws.Name = "Tabelle1" Then
For n = ws.Range("A4").Copy Destination:=Worksheets("Tabelle1").Range("B8)
Next n
End If
Next ws
End Sub
Bei dieser Zeile For n = ws.Range("A4").Copy Destination:=Worksheets("Tabelle1").Range("B8)
setzt der Debugger an, obwohl es einzeln funktioniert.
Füge ich die Sache mit den Formten (Paste.values) bzw. der neuen Zeile (End(1xdown).rows) kommt auch der Debugger
Leider bekomme ich das alleine nicht hin. Kann mir vielleicht jemand helfen?
Vielen Dank
JP