Habe unteren Code,der mir nach Abfrage einen gewünschten Sheet löscht.
Es haben alle Sheets die Bezeichnung "R" "R1" bis "R36"
Ist es möglich auch zusätzlich ein löschen von "R1" bis "R36" auf einmal einzugeben ?
Könnte mir Bitte jemand weiterhelfen ?
Gruß Heinz
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Integer
i = Val(InputBox("Welche Runde möchtest du löschen ?"))
If i = 0 Then Exit Sub
If i 36 Then MsgBox "Die Meisterschaft hat nur 36 Runden!": Exit Sub
Sheets("R" & i).Visible = True
Sheets("R" & i).Unprotect
Sheets("R" & i).Range("B3:K13,M2:R15,C18:D29,M17").ClearContents
Sheets("R" & i).Protect
Application.ScreenUpdating = True
End Sub