Kopieren ohne Format - VBA | HERBERS Excel Forum

Hallo liebe Forumsgemeinde!
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.

Ich gebe hier mal die komplette Prozedur an.
Dim wsBasis As Worksheet
Dim wsVorlage As Worksheet
Dim i As Integer
Dim LZ1 As Long 'letzte Zeile der Spalte A
Dim LZ2 As Long 'lezte Zeile der Spalte B
Dim LZ3 As Long 'lezte Zeile der Spalte C
Dim LZ4 As Long 'letzte Zeile der Spalte D
Dim LZ5 As Long 'letzte Zeile der Spalte E
Dim LZ6 As Long 'letzte Zeile der Spalte F
Dim LZ7 As Long 'letzte Zeile der Spalte G
Dim LZ8 As Long 'letzte Zeile der Spalte H
Dim Blattname As String
'Tabellenblatt "Vorlage" kopieren
i = Sheets.Count
Sheets("Vorlage").Copy After:=Sheets(i)
Worksheets("Basis").Select
SpalteA = "A"
LZ1 = ActiveSheet.Cells(Rows.Count, SpalteA).End(xlUp).Row 'letzte Zeile der Spalte A ermitteln
Sheets(Sheets.Count).Select
ActiveSheet.Name = Worksheets("Basis").Range("A" & LZ1)
Blattname = ActiveSheet.Name
With Worksheets("Basis")
.Range("A" & LZ1).Copy
Worksheets(Blattname).Range("C4").PasteSpecial Paste:=xlPasteValues
End With
End Sup
PS: wie schon gesagt ohne PasteSpecial funktioniert die Prozedur ohne Probleme, sie tut genau das was sie soll. Ich möchte nur die Werte ohne ihre Formatierung kopieren

Kopieren ohne Format - VBA

Forumthread: Kopieren ohne Format - VBA

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Werte ohne Formatierung kopieren in Excel mit VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)