Makro zum Kopieren von Werten
03.02.2015 09:45:40
Werten
ich bastel gerade eine Rechnung in Excel, aus der per Knopfdruck bestimmte Daten in ein anderes Tabellenblatt (Abrechnung) übertragen werden sollen.
Es handelt sich dabei um die Felder Rechnungsempfänger in B9, Rechnungsnummer in H9, Rechnungsdatum in H10 und den Betrag in H33.
Ich habe folgendes geschrieben:
Sub Kopieren()
Sheets("Abrechnung").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, 4).Value = Sheets(" _
Rechnung").Range("B9, H9, H10, H33").Value
End Sub
Viele Grüße
Tobias