Mit Eurer Hilfe habe ich meine Programmierung fast hinbekommen. Jedoch werden die Zahlen nicht richtig übergeben, sodaß automatisch ein "spezieller Filter" gesetzt wird und die Zahlen an eine falsche Zeile übergeben werden. Grund für diesen Dreckseffekt ist folgender Befehl:
Workbooks("A_Rechnungen.xlsx").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 7).Value = ThisWorkbook.Sheets("Rechnung").Range("F47").Value
Dieser Befehl funktioniert, jedoch gibt es einen Fehler. Grund hierfür ist, daß diese Zahl als Währung dargestellt wird. Wie kann ich den Zellenwert F47 als zweistelligen Long Integer übergeben?