Hallo Experten !
Ich habe eine Formel von hier bekommen.
Hier die Formel:

Private Sub CommandButton2_Click()
Dim lngLetzteSpalte As Long
lngLetzteSpalte = Cells(11, Columns.Count).End(xlToLeft).Column
Range("J3:J11").Copy Destination:=Cells(3, lngLetzteSpalte + 1)
lngLetzteSpalte = Cells(13, Columns.Count).End(xlToLeft).Column '--wozu ??
Range("J13:J16").Copy Destination:=Cells(13, lngLetzteSpalte + 1)
Cells(1, lngLetzteSpalte).Resize(2, 1).Interior.Color = xlNone '--loescht gruen
Cells(1, lngLetzteSpalte + 1).Resize(2, 1).Interior.Color = vbGreen '--setzt gruen

With Range(Cells(3, 10), Cells(999, Cells(3, Columns.Count).End(xlToLeft).Column - 1)).Cells
.Formula = .Value
End With
End Sub

Diese Formel soll die Formel die In den Zellen J3:J11 und J13:J16 in die nachfolgende Spalte übertragen und in der vorherigen Spalte die Formel löschen und nur Werte hinterlassen. Bisher habe ich eigentlich nur für die Spalte K getestet. Doch gestern habe ich weitere Spalten versucht diese mit der Formel mittels Commond-Button zu befüllen.
Spalte K geht.................doch die weiteren Spalten übernehmen die Formeln nicht mehr.
Ich habe die Datei dazugehänt um dies zu veranschaulichen. Das ganz hat eigentlich den Sinn, mein System nicht zu überlasten, da ansonst die Einträge immer immens lange dauern. Kann mir bitte wieder mal wer helfen, die Formel hinzubekommen.
Danke im voraus
chris58

Hier die Datei:
https://www.herber.de/bbs/user/171683.zip