Supportnet / Forum / Tabellenkalkulation
Excel Makro - Werte aus Summenfelder in andere Tabellenblätter kopieren
Frage
Moin,
mit VB hole ich mir aus einer Tabelle "Rechnung" Zelleninhalte in die Tabelle "RA-Journal"
das funktioniert so:
Range("F5:G5").Select
Selection.Copy
Sheets("RA-Journal").Select
Range(Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 2)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Rechnung").Select
Frage:
wie bekomme ich aber den Wert eines Summenfeldes kopiert?
Zum Beispiel G31 aus "Rechnung"
=WENN(H31=0;" ";(H31-F31))
Das weiß bestimmt jemand.
Danke.
Antwort 1 von Annan
Hallo,
um möglichst nahe bei deinem Code zu bleiben:
Range("G31").Select
Selection.Copy
Sheets("RA-Journal").Select
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Rechnung").Select
MfG
Annan
um möglichst nahe bei deinem Code zu bleiben:
Range("G31").Select
Selection.Copy
Sheets("RA-Journal").Select
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Rechnung").Select
MfG
Annan
Antwort 2 von Marienkoog
Moin Annan,
danke für deine Unterstützung. Es klappt ausgezeichnet.
danke für deine Unterstützung. Es klappt ausgezeichnet.