PasteSpecial Problem
03.11.2015 15:57:13
Christian
nach langer Zeit des hilfreichen "mitlesens" und adaptieren von genannten Lösungsvorschlägen bin ich nun nicht drumherum gekommen mich hier anzumelden und meine eigene Frage zu stellen.
Ich habe eine Datei mit mehreren Tabellenblättern. Ein Blatt dient als Gesamtübersicht während die anderen mit Daten befüllt werden. Anschliessend werden diese per Makro in die Gesamtübersicht übernommen und in der Quelltabelle gelöscht.
Hierbei ist es wichtig, dass nur Eingaben übernommen werden, die in Spalte "L" ein "Ja" haben. Anschliessend sollen per Knopfdruck alle Zeilen, die in Spalte "L" ein "Ja" haben in die Gesamtübersicht kopiert werden.
Meine Krux ist nun, dass der Code Funktioniert. Ich möchte aber nur die Werte kopieren, nicht die Formate etc. Also versuchte ich es mit ".PasteSpecial". Aber egal wie und wo ich es einbaue... es kommt immer zum Fehler.
Meine Bitte an die Community wäre, dass mir jemand zeigen könnte, wie ich im nachfolgenden Code ".PasteSpecial" einbauen kann.
Außerdem möchte ich beim Löschen der Daten im Quelldatenblatt (User 1) Leerzeilen unterbinden - die Zeilen dürfen aber nicht hart gelöscht werden (Es ist ein Arbeitsbereich von 100 Zeilen definiert und beim löschen würde dieser um die gelöschten Zeilen reduziert - Formatierung ginge ebenfalls verloren).
Anbei mein Code:
-----------------------------------------------------------
Private Sub CommandButton2_Click()
Dim i As Long
With Sheets("User 1")
For i = .Cells(Rows.Count, "L").End(xlUp).Row To 2 Step -1
If .Cells(i, "L") Like "Ja" Then
.Rows(i).Copy Sheets("Gesamtübersicht").Cells(Sheets("Gesamtübersicht").Cells(Rows. _
Count, "J").End(xlUp).Row + 1, "A")
.Rows(i).Clear
End If
Next
End With
Unload Me
End Sub
Ich danke euch vorab für eure Hilfe und freue mich auf eine Antwort.
Gruß
Christian