Makro, nach action wert eine zeile tiefer einschreiben

[JJürgen]

Hallo,

ich habe mir ein Makro aufgezeichnet das so funktioniert wie ich es gerne hätte, aber das Problem ist nach jedem auslösen der action soll  der Neue Wert eine zeile tiefer eingetragen werden und der der lezte Wert soll erhalten bleiben. jetzt werden die werte in B,C,D21 geschrieben die erhalten und die nächsten in B,C,D22 und das max 50 mal

Sub Wechsel1()
'
' Wechsel1 Makro
'

'
    Sheets("Tabelle5").Select
    ActiveSheet.Unprotect
    Range("U8").Select
    Selection.Copy
    Range("C21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("U9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("G14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G9:P9").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("G7").Select
    Selection.ClearContents
    Range("D10").Select
    Selection.ClearContents
    Sheets("Tabelle5").Select
    Range("G16").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
End Sub


Gruss und einen Dank vorab

[schauan]

Hallöchen,

kommen z.B. die Daten für C21, 22, 23 usw. immer aus U8 oder geht es in Spalte U auch jedes mal tiefer? kommt der neue Eintrag jeweils ans Ende aller Einträge einer Spalte oder steht darunter irgendwo noch mehr?

Wenn nix mehr steht könntest Du z.B. bei gefüllter Zelle C20 dann C21 usw. ermitteln mit

Cells(rows,count,3).end(xlup).offset(1,0)

Programmieren tust Du dann statt

Range("C21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Cells(rows,count,3).end(xlup).offset(1,0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

oder besser noch

Cells(rows,count,3).end(xlup).offset(1,0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

oder noch kürzer

Cells(rows,count,3).end(xlup).offset(1,0).PasteSpecial Paste:=xlPasteValues

oder ohne Copy

Cells(rows,count,3).end(xlup).offset(1,0).Value = Range("U8").Value

[JJürgen]

Werte kommen immer aus den gleichen zellen. Die zellen werden nach action geleert.
Gruss

[schauan]

Hallöchen,

na, dann kannst Du die Vorschläge zu U8 mal ausprobieren

[JJürgen]

Hallo schauan, kein Durchblick hab mal die datei beigepackt.
Makro ist auf Button Wechsel Aufnahme Spieler 2.
kannst du bitte mal testen und mir das umstellen

Gruss Jürgen