Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Makro, nach action wert eine zeile tiefer einschreiben
#1
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
Antworten Top
#2
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Werte kommen immer aus den gleichen zellen. Die zellen werden nach action geleert.
Gruss
Antworten Top
#4
Hallöchen,

na, dann kannst Du die Vorschläge zu U8 mal ausprobieren Smile
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#5
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


Angehängte Dateien
.xlsm   Spielberichtsbogen.xlsm (Größe: 210,75 KB / Downloads: 0)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste