Zellen kopieren
28.10.2013 13:39:22
PK
ich habe ein kleines Problem und hoffe, dass ihr mir helfen könnt.
Ich habe in Tabelle2 ein "Blanco-Rechnungsforumular" eingerichtet. Mittels Userforum werden in Tabelle2 Kundendaten eingepflegt und dann als eine Neue Tabelle abgespeichert und Tabelle2 wird wieder geleert. Mittels einer weiteren Userform werden in die jeweils oben erzeugten Tabellen Artikeldaten (Menge, Artikel, Preis) eingetragen. Soweit so gut. Das funktioniert auch alles wie es soll.
Mein Problem: Ich habe eine Tabelle "Zusammenfassung" erzeugt. Hier sollen sämtliche Daten, die oben hinterlegt wurden zusammengefasst werden. So zu sagen auf einen Blick! Sowohl der Code (Exemplarisch für die eingefügte "Menge"):
Private Sub CommandButton2_Click()
Sheets("Zusammenfassung").Range("D2") = Range("C14")
End Sub
Als auch
Private Sub CommandButton2_Click()
Sheets("Zusammenfassung").Range("D2") = "=Tabelle2!R[12]C[-1]"
End Sub
Funktionieren nicht so, wie sie sollen. Bei erstem Code werden zwar die Daten schön dort in der Tabelle Zusammenfassung wo sie sollen. Problem ist jedoch, dass Änderungen, die nachträglich bei der Rechnung vorgenommen werden leider nicht in der Zusammenfassung berücksichtigt werden.
Bei zweitem Code besteht das Problem, dass in Tabelle2 (Blancoforumlar) prinzipiell keine Änderungen vorgenommen werden und auch nicht vorgenommen werden sollen. Sondern erste in den Tabellen, die aus der Tabelle2 erzeugt werden.
Wäre super, wenn Ihr mir helfen könntet.
Danke!!!