VBA - PasteSpecial und selektierte Spalt
10.02.2021 11:36:27
Phillip
ich habe eine wahrscheinlich sehr einfache Frage.
Folgenden Code habe ich bereits zusammengesucht und dieser funktioniert auch soweit:
Private Sub CommandButton1_Click()
Dim ende As Long
Dim zelle As Range
If IsError(Evaluate("Tabelle1!A1")) Then
Worksheets.Add after:=Worksheets("Tabelle1")
End If
ende = Worksheets("Tabelle1").UsedRange.Rows.Count
For Each zelle In Worksheets("Tabelle1").Range("B3:B" & ende)
If Not IsEmpty(zelle) Then
zelle.EntireRow.Copy Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").UsedRange. _
SpecialCells(xlLastCell).Row + 1, 1)
End If
Next zelle
End Sub
Ich habe nur noch zwei Wünsche:
Statt
zelle.EntireRow.Copy Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").UsedRange.SpecialCells(xlLastCell).Row + 1, 1)
".EntireRow" sollen lediglich die Spalten A, B & C kopiert werden und dann auch nur die Werte und nicht die Formeln.
Mit ".PasteSpecial xlPasteValues" habe ich es schon versucht, aber ich weiß nicht, wo ich das in der Codezeile einbauen muss.
Vielleicht weiß ja jemand, wie diese Zeile modifiziert werden muss.
Ich bedanke mich und wünsche einen schönen Wintertag. :)
Liebe Grüße
Phillip