Ich habe 2 getrennte Arbeitsblätter
1. Rechnung
2. offene Posten (zur Nachverfolgung der Rechnungen)
---------------------------------------------------------------------------------------------------------------
Sub in_offene_Posten_kopieren()
'
' in_offene_Posten_kopieren Makro
'
'
Range("J16").Select
Selection.Copy
Range("J14").Select
Application.CutCopyMode = False
Selection.Copy
Range("J13").Select
Application.CutCopyMode = False
Selection.Copy
Range("J18").Select
Application.CutCopyMode = False
Selection.Copy
Range("I62").Select
Application.CutCopyMode = False
Selection.Copy
Die Werte dieser Felder sollen aus der Tabelle kopiert werden
-----------------------------------------------------------------
danach die Tabelle ("offene Posten2.xlsm") .Activate
----------------------------------------------------------------
suche die erste freie Zeile
Range(erste freie Zeile).Select
kopiere Wert J16 in spalte A, Wert J14 in Spalte B, Wert J13 in spalte C, Wert J18 in Spalte D, Wert I62 in spalte F
--------------------------------------------------------
danach wechsele wieder zur Tabelle
-------------------------------------------------------
("Rechnung.xlsm").Activate
End Sub