Hallo André, vielen Dank für Deinen Input. Leider funktioniert bei mir immer noch nicht alles wunschgemäss. Den folgenden Code habe ich auf den Button "Runde abschliessen" hinterlegt und funktioniert soweit, dass die Werte so kopiert werden wie ich es möchte.
Code:
Sub Runde_abschliessen()
'
' Runde_abschliessen Makro
'
'
Sheets("Daten").Select
Range("G8").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("G9").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("G10").Select
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("G11").Select
Selection.Copy
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Spieltabelle").Select
Range("B4").Select
Application.CutCopyMode = False
End Sub
Beim zweiten Button "Neue Runde starten" ist folgender Code hinterlegt:
Code:
Sub Neue_Runde_starten()
'
' Neue_Runde_starten Makro
'
'
Range("C7").Select
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents
Range("C10").Select
Selection.ClearContents
Range("F7").Select
Selection.ClearContents
Range("F8").Select
Selection.ClearContents
Range("F9").Select
Selection.ClearContents
Range("F10").Select
Selection.ClearContents
Range("B3") = Range("B3") + 1
Range("F12").Select
ActiveSheet.Shapes.Range(Array("Button 9")).Select
Selection.OnAction = "Neue_Runde_starten"
Range("C7").Select
ActiveCell.FormulaR1C1 = "100"
Range("C8").Select
ActiveCell.FormulaR1C1 = "70"
Range("C9").Select
ActiveCell.FormulaR1C1 = "0"
Range("C10").Select
ActiveCell.FormulaR1C1 = "0"
Range("F7").Select
ActiveCell.FormulaR1C1 = "1"
Range("F8").Select
ActiveCell.FormulaR1C1 = "2"
Range("F9").Select
ActiveCell.FormulaR1C1 = "3"
Range("F10").Select
ActiveCell.FormulaR1C1 = "4"
Range("C7").Select
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents
Range("C10").Select
Selection.ClearContents
Range("F7").Select
Selection.ClearContents
Range("F8").Select
Selection.ClearContents
Range("F9").Select
Selection.ClearContents
Range("F10").Select
Selection.ClearContents
Range("B3").Select
ActiveWorkbook.Save
End Sub
Der funktioniert soweit auch (obwohl man diesen sicherlich auch noch kürzen könnte)
Ab der zweiten Runde beginnt nun aber mein hauptsächliches Problem welches nach wie vor nicht gelöst ist.
Nämlich, dass die mittlerweile gelöschten Daten aus Runde 1 (durch drücken des Button "Neue Runde starten" im Sheet "Daten" G8 bis G11) nun die neuen Daten aus Runde 2 enthalten. Welche wiederum kopiert werden sollten aber diesmal von G8 auf A3; G9 auf B3; G10 auf C3; G11 auf D3.
Und so ginge es weiter; nach Runde 3 müssten die Werte in A4 bis D4, etc. etc. etc.
Ich lade meine aktuelle Dateiversion nochmals hoch und hoffe, dass ihr die Geduld mit mir nicht verliert...
Vielen Dank für Eure bisherigen Inputs und ein schönes Wochenende
Mario (Kempes)