Und nochmals brauche ich Ihre Hilfe!!!
ich füge mit dem Buttom ein neuen Tabellenblatt und will, dass Bereich ("B2:B37") aus "Protokol" mit allen formatierungen ins "Protokol1" kopiert wird
Wie schreibt man dass im Code?
Private Sub cmdNSheet_Click()
Dim i As Integer
Sheets("Dummy").Select
Sheets.Add
ThisWorkbook.Sheets("Dummy").Range("B12") = Worksheets.Count
i = ThisWorkbook.Sheets("Dummy").Range("B12").Value
Sheets(i - 1).Name = "Protokol" & i - 1
Sheets("Protokol").Activate
Sheets("Protokol").Range("B2:H37").Select
Selection.Copy
Sheets(i - 1).Activate
Range("A1").Select
ActiveSheet.Paste
End Sub