Kopierfunktion verliert Dezember
21.02.2016 18:12:13
Daniel
ich stehe mal wieder total auf dem Schlauch und hoffe Ihr könnt mir helfen.
Ich habe ein Programm das die folgende Sub aufruft um eine Kopierfunktion auszuführen. Dies funktioniert einwandfrei für die Monate 11 und 12 (stehen im Array4(0-11) mit Array4(11)="12"). auch für die Monate 9-11 funktioniert es ohne Probleme. nur wenn ich 10-12 kopieren will lässt er die 12 einfach aus... keine Fehlermeldung. Bei 11-12 geht's aber wie gesagt, so dass es eigentlich auch nicht an den Einträgen liegen kann.
Sub OneMonthNoDateLimitMulti(ByRef x As Integer, n As Long, i As Integer, lngLast As Long, _
ByRef Array1() As String, ByRef Array2() As String, ByRef Array4() As String, Monat, Monat2, Mandat, wkb2)
Dim y As Long
For x = 0 To 6 'run through Mitarbeiter
n = 4
For y = CLng(Monat) To CLng(Monat2) 'run through Monate
With Sheets(Array4(y - 1))
For i = 6 To lngLast
If .Cells(i, 1).Text = Array1(x) Then 'Prüfe Mitarbeiter in quelle
If .Cells(i, 2).Text = Mandat Then 'Prüfe Mandat in quelle
.Range(.Cells(i, 3), .Cells(i, 9)).Copy '----> Start Date bis Ort
wkb2.Worksheets(Array2(x)).Cells(n, 3).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range(.Cells(i, 12), .Cells(i, 14)).Copy '----> Start Dauer h bis _
Spesen/ÜN
wkb2.Worksheets(Array2(x)).Cells(n, 10).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
n = n + 1
End If
End If
Next i
End With
Next y
Next x
End Sub
Daniel