es werden immer unterschiedliche Zellen jeweils einer Zeile zum Kopieren ausgewählt.
Wird dann der CB betätigt, soll in der dazugehörigen Spalte J der Text "erledigt" erscheinen.
Wie muss der Code erweitert werden ?
Private Sub CommandButton1_Click() 'kopieren
Set Auswahl = Selection
UserForm1.Show
End Sub
MfG Dirk