Ich würde gerne in jedem dieser Schleifen ein neues Arbeitsblatt erstellen, für j=1 ist dies erfüllt, jedoch geht es für j=2 usw nicht mehr.. Kann mir hierbei jemand Helfen?
Vielen Dank
Sub Timesheetsbefüllen()
Dim i As Integer
Dim j As Integer
For j = 1 To 20
For i = 2 To 1000
If Worksheets("Einz").Cells(i, 10).Value = Worksheets("Personalnummermap").Cells(j, 1) Then
If Worksheets("Einz").Cells(i, 8).Value = "1" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- Oktober") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(Rows.Count, "A").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(Rows.Count, "F").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(Rows.Count, "G").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(Rows.Count, "D").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- Oktober"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(2, 2) = Tabelle25.Cells(j, _
_
2).Value & "- Oktober"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(Rows.Count, "A").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(Rows.Count, "F").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(Rows.Count, "G").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Oktober").Cells(Rows.Count, "D").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "2" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- November") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(Rows.Count, "A").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(Rows.Count, "F").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(Rows.Count, "G").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(Rows.Count, "D").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- November"
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(2, 2) = Tabelle25.Cells(j, _
_
2).Value & "- November"
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(Rows.Count, "A").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(Rows.Count, "F").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(Rows.Count, "G").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- November").Cells(Rows.Count, "D").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "3" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- Dezember") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(Rows.Count, "A").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(Rows.Count, "F").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(Rows.Count, "G").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(Rows.Count, "D").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- Dezember"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(2, 2) = Tabelle25.Cells(j, _
_
2).Value & "- Dezember"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(Rows.Count, "A").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(Rows.Count, "F").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(Rows.Count, "G").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Dezember").Cells(Rows.Count, "D").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "4" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- Januar") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(Rows.Count, "A").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(Rows.Count, "F").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(Rows.Count, "G").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(Rows.Count, "D").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle26.Cells(j, 2).Value & " - Januar"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(2, 2) = Tabelle25.Cells(j, 2) _
_
.Value & "- Januar"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(Rows.Count, "A").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(Rows.Count, "F").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(Rows.Count, "G").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Januar").Cells(Rows.Count, "D").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "5" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- Februar") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(Rows.Count, "A").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(Rows.Count, "F").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(Rows.Count, "G").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(Rows.Count, "D").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- Februar"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(2, 2) = Tabelle25.Cells(j, _
_
2).Value & "- Februar"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(Rows.Count, "A").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(Rows.Count, "F").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(Rows.Count, "G").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Februar").Cells(Rows.Count, "D").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "6" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- März") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(Rows.Count, "A").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(Rows.Count, "F").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(Rows.Count, "G").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(Rows.Count, "D").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- März"
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(2, 2) = Tabelle25.Cells(j, 2). _
_
Value & "- März"
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(Rows.Count, "A").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(Rows.Count, "F").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(Rows.Count, "G").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- März").Cells(Rows.Count, "D").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "7" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- April") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(Rows.Count, "A").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(Rows.Count, "F").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(Rows.Count, "G").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(Rows.Count, "D").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- April"
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(2, 2) = Tabelle25.Cells(j, 2). _
_
Value & "- April"
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(Rows.Count, "A").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(Rows.Count, "F").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(Rows.Count, "G").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- April").Cells(Rows.Count, "D").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "8" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- Mai") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(Rows.Count, "A").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(Rows.Count, "F").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(Rows.Count, "G").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(Rows.Count, "D").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- Mai"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(2, 2) = Tabelle25.Cells(j, 2). _
_
Value & "- Mai"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(Rows.Count, "A").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(Rows.Count, "F").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(Rows.Count, "G").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Mai").Cells(Rows.Count, "D").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "9" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- Juni") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(Rows.Count, "A").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(Rows.Count, "F").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(Rows.Count, "G").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(Rows.Count, "D").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- Juni"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(2, 2) = Tabelle25.Cells(j, 2). _
_
Value & "- Juni"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(Rows.Count, "A").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(Rows.Count, "F").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(Rows.Count, "G").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juni").Cells(Rows.Count, "D").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "10" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- Juli") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(Rows.Count, "A").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(Rows.Count, "F").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(Rows.Count, "G").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(Rows.Count, "D").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- Juli"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(2, 2) = Tabelle25.Cells(j, 2). _
_
Value & "- Juli"
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(Rows.Count, "A").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(Rows.Count, "F").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(Rows.Count, "G").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- Juli").Cells(Rows.Count, "D").End(xlUp). _
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "11" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- August") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(Rows.Count, "A").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(Rows.Count, "F").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(Rows.Count, "G").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(Rows.Count, "D").End( _
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- August"
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(2, 2) = Tabelle25.Cells(j, 2) _
_
.Value & "- August"
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(Rows.Count, "A").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(Rows.Count, "F").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(Rows.Count, "G").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- August").Cells(Rows.Count, "D").End(xlUp). _
_
Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
ElseIf Worksheets("Einz").Cells(i, 8).Value = "12" Then
If WorksheetExists(Tabelle25.Cells(j, 2).Value & "- September") Then
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(Rows.Count, "A").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(Rows.Count, "F").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(Rows.Count, "G").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(Rows.Count, "D").End( _
_
xlUp).Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
Else
Set nws = ThisWorkbook.Worksheets.Add
nws.Name = "neu"
Worksheets("Timesheet").Range("A1:J92").Copy _
Destination:=Worksheets("neu").Range("A1")
Worksheets("neu").Name = Tabelle25.Cells(j, 2).Value & "- September"
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(2, 2) = Tabelle25.Cells(j, _
_
2).Value & "- September"
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(Rows.Count, "A").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 12).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(Rows.Count, "F").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 5).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(Rows.Count, "G").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 4).Value
Worksheets(Tabelle25.Cells(j, 2).Value & "- September").Cells(Rows.Count, "D").End(xlUp) _
_
.Offset(1).Value = Worksheets("Einz").Cells(i, 14).Value
End If
End If
End If
Next i
Next j
End Sub