der folgende Code muss geändert werden, ich brauche nicht das Zählen der Worksheet, sondern
1. jedes Worksheet soll geprüft werden ob im Namen am Ende der String "2018" steht
2. Wenn ja soll der code ausgeführt werden, wenn nein das nächste Worksheet überprüfen.
Leider weiß ich nicht wie das umzusetzen ist. DANKE
Sub Springerhinzu()
Dim wbook As Workbook
Set wbook = ThisWorkbook
Dim i As Long
Dim WS_Count As Integer
WS_Count = ThisWorkbook.Worksheets.Count
For i = 4 To WS_Count
Sheets(i).Select
If range("C24").Value "PufferSpringer" Then
Rows("24:24").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
range("E25:AT35").Select
Selection.Cut
range("E24").Select
ActiveSheet.Paste
range("B24").Select
ActiveCell.FormulaR1C1 = "Puffer Springer"
range("C24").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-8]C="""","""",SUM(R[-19]C[9]:R[-19]C[16])*ZeitwertSpringer)"
range("B25").Select
ActiveWindow.SmallScroll Down:=3
range("C27").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(SUM(R[-7]C:R[-3]C,R[-1]C),0)"
range("C28").Select
End If
Next i
End Sub