Ich muss ein Makro schreiben, dass Daten aus einer Tabelle in ein Formular per Klicken auf einen Button kopiert.
Ich hab es schon so weit allein geschafft, dass das Makro die letzte beschriebene Zeile in der Tabelle Basis findet, das Tabellenblatt Vorlage kopiert und hinten anhängt. Danach die Kopie umbenennt, die Daten aus der letzten beschriebenen Zeile aus der Tabelle Basis in bestimmte Zellen der Kopie Vorlage einträgt.
Das Problem entsteht genau an dieser Stelle. Es soll nur der Wert der Zelle übernommen werden und nicht die Formatierung. Ich hab natürlich schon einige Hilfestellungen dazu gefunden, nur leider funktioniert nicht eine davon in meinem Makro.
With Worksheets (Basis)
.Range(A & LZ1).Copy Worksheets(Blattname).Range(C).PasteSpecial ...
Sobald ich PasteSpecial wieder raus nehme läuft der Kopiervorgang wieder ohne Probleme. Egal was ich hinter PasteSpecial schreibe es kommt die Meldung Fehler beim Kompilieren: Erwartet: Anweisungsende.
PS: LZ1 wurde vorher als letzte Zelle von Spalte A definiert und Blattname wurde als Variable für den neuen Namen des kopierten Tabellenblattes definiert. Wie gesagt ohne PasteSpecial klappt alles einwandfrei.
Ich hoffe ihr könnt mir weiterhelfen, einen Weg zu finden nur die Werte ohne die Formate zu kopieren.