PK fragt:
Ich habe ein Arbeitsblatt, in das ich einige Werte eingebe. Wenn Sie auf eine Makroschaltfläche klicken, möchte ich, dass die Werte oder die berechneten Ergebnisse an ein anderes Blatt oder eine andere Datei angehängt werden.
Gute Frage. Angenommen, die Werte befinden sich in den Zellen C10 und E12 von Blatt1, und Sie möchten, dass sie an die nächste Zeile in Blatt2 angehängt werden.
Der eigentliche Trick hier ist der Code, um die nächste Zeile auf Sheet2 zu finden. Beginnend mit der letzten Zeile in Blatt2 (A65536) und dann mit .End (xlup) wird die letzte Zeile mit Daten in Spalte A gefunden. Wenn Sie dieser Zeile 1 hinzufügen, werden Sie zur nächsten Zeile für Daten in Blatt2 weitergeleitet. Verwenden Sie diesen Code:
Sub CopyThem() NextRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row + 1 Worksheets("Sheet2").Cells(NextRow, 1).Resize(1, 2).Value = Array( _ Worksheets("Sheet1").Range("C10").value, _ Worksheets("Sheet1").Range("E12").value) End Sub
