10.03.2019, 16:08
Hallo André
Beim ersten Makro (Runde abschliessen) konnte ich diese Code Version von Dir einsetzen und funktioniert tadellos. Die Version (With Sheets) ergab bei mir eine Fehlermeldung.
Beim zweiten Makro (Neue Runde starten) klappt es leider noch nicht. Habe ich da noch einen Fehler drin? Beim Debuggen erscheint die Zeile Range("B3"=Range("B3")+1 in gelb.
Beim ersten Makro (Runde abschliessen) konnte ich diese Code Version von Dir einsetzen und funktioniert tadellos. Die Version (With Sheets) ergab bei mir eine Fehlermeldung.
Code:
Sub Runde_abschliessen()
'
' Runde_abschliessen Makro
'
'
Sheets("Daten").Unprotect Password:="Mario"
Sheets("Daten").Range("G8:G11").Copy
Sheets("Daten").Range("A" & Range("B3").Value + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
Sheets("Daten").Protect Password:="Mario"
End Sub
Beim zweiten Makro (Neue Runde starten) klappt es leider noch nicht. Habe ich da noch einen Fehler drin? Beim Debuggen erscheint die Zeile Range("B3"=Range("B3")+1 in gelb.
Code:
Neue_Runde_starten Makro
'
'
Sheets("Daten").Unprotect Password:="Mario"
Range("C7:C10").ClearContents
Range("F7:F10").ClearContents
Range("B3") = Range("B3") + 1
ActiveSheet.Shapes.Range(Array("Button 9")).Select
Selection.OnAction = "Neue_Runde_starten"
ActiveWorkbook.Save
Sheets("Daten").Protect Password:="Mario"
End Sub