Ich möchte einen Zellenwert in eine andere Zelle kopieren, aber ich möchte den Wert in einer Variablen behalten, damit ich ihn gemäß den Anforderungen verwenden kann.

Es folgt der Code, den ich ausprobiert habe:

Private Sub CommandButton1_Click()
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
For x = 1 To NumRows
    a= Cells(x, 1).Value.Copy
    Cells(x, 2).Value= a.PasteSpecial
Next
End Sub