Sub KopierenAlsWert_1()
Range("n2").Copy
Range("a2").PasteSpecial xlPasteValues
Range("n3").Copy
Range("a3").PasteSpecial xlPasteValues
Range("n4").Copy
Range("a4").PasteSpecial xlPasteValues
End Sub
Es geht darum. ich habe eine Mitgliederliste und möchte den Wert der entsprechenden Zelle in der Spalte n kopieren und nur den Wert in die entsprechende Zelle der Spalte a kopieren. dabei soll die Routine jeweils bei einer neuen Zeile wenn dort Daten eingegeben werden wiederholen. und auch nur für die neuen Spalten, die Werte der Spalten dafür sollen beibehalten werden, es geht nämlich darum, dass ich die Werte in die Spalte a schreiben möchte um bei einer Sortierung den _Wert des Mitgliedes beibehalte.Also es wird jedem Mitglied eine Nummer zugeordnet, die er ein Leben lang behält, auch wenn er austritt. Der Wert muss kopiert werden, da sonst die Nummer bei einer alphabetischen Sortierung der Mitgliederliste die Nummern nicht beibehalten werden.