meine Zielsetzung mit diesem Makro ist es immer die gleichen Zeilen bzw. nur deren Werte aus vielen unterschiedlich benannten Tabellenblättern eines Excelsheets in eines zu kopieren (Werte für Abschluß-aktuell). Mit Hilfe des Forums habe ich folgenden Makro gefunden, angepasst und ausprobiert.
Das Makro funktioniert soweit sehr gut. Ich habe nur das große Problem, dass ich es einfach nicht schaffe den Makro so umzuschreiben, dass es mir nur die Werte kopiert und nicht gesamthaft (mit Formel und Formatierung usw.) so wie jetzt.
Da ich leider wenig Ahnung von VBA habe ist es mir jedoch nicht gelungen. Ich wäre über Hilfe sehr froh.
ORGINAL
Sub Kopieren()
Dim s As Worksheet, _
Zielzeile As Long
Zielzeile = 3
For Each s In ActiveWorkbook.Worksheets
If Not s.Name = "Werte für Abschluß-aktuell" Then
Range(s.Cells(42, 2), s.Cells(42, 6)).Copy Destination:=Sheets("Werte für Abschluß- _
aktuell").Cells(Zielzeile, 2)
Zielzeile = Zielzeile + 1
End If
Next s
End Sub
Mein Versuch mit Werten: der leider nicht funktioniert..Sub Kopieren()
Dim s As Worksheet, _
Zielzeile As Long
Zielzeile = 3
For Each s In ActiveWorkbook.Worksheets
If Not s.Name = "Werte für Abschluß-aktuell" Then
Range(s.Cells(42, 2), s.Cells(42, 6)).Copy Destination:=Sheets("Werte für Abschluß- _
aktuell")
.PasteSpecial Paste:=xlPasteValues.Cells(Zielzeile, 2)
Zielzeile = Zielzeile + 1
End If
Next s
End Sub
Vielen Dank für die HilfeGrüsse
Michael