Das Programm ist ein Trainingsplan, ich möchte jetzt, das wenn die tatsächlich gemachten Wiederholungen abweichen man per Button den Plan ändern kann.
Es soll also nach der Übung gesucht werden und die werte dann ersetzt werden.
ist dieses ersetzen so möglich?
Do While Cells(5 + O, 1) ""
Set eintragen = Worksheets("Übungen").Range("A1:A30").Find(what:=Worksheets("Training").Cells(5 + O, 1))
For M = 1 To 8
eintragen.Offset(0, M).Value = Worksheets("Training").Cells(5 + O, 1).Offset(N, 2)
eintragen.Offset(0, 1 + M).Value = Worksheets("Training").Cells(5 + O, 1).Offset(N, 3)
N = N + 1
M = M + 1
Next M
O = O + 4
Loop
Es wird einfach nichts geschrieben, und ich steh grad auf der Leitung