Jeder Kollege (Spalte F - 6Stamm-Nr) fertigt jeden Tag mehrere Aufträge, daher ist
einfaches Zählen nicht möglich.Brauche nur Anzahl Arbeitstage pro Kollege
für diesen Monat. Beispiel-File ist anbei. 90780.txt
Herzlichen Dank im Vorraus + Gruß Uwe
A | B | C | D | E | F | G | H | I | J | K | |
1 | Datum | TR | TE | St | Rückm.-Nr. | Mitarbeiter | Mitarbeiter | ||||
2 | 01.04.2014 | 5,5 | 11 | 48998853 | 13705 | 13705 | 12 | ||||
3 | 01.04.2014 | 5,5 | 20 | 48998853 | 13906 | 13906 | 11 | ||||
4 | 01.04.2014 | 20 | 4,9 | 28 | 48992315 | 5000514 | 5000514 | 15 | |||
5 | 01.04.2014 | 7,8 | 19 | 48709760 | 14092 | 14092 | 15 | ||||
6 | 01.04.2014 | 20 | 5,3 | 13 | 48567688 | 5000514 | 13783 | 16 | |||
7 | 01.04.2014 | 17 | 4,9 | 18 | 48731642 | 5000514 | 14212 | 13 | |||
8 | 01.04.2014 | 37 | 5,5 | 16 | 48925591 | 13906 | |||||
9 | 01.04.2014 | 37 | 5,9 | 16 | 48926970 | 13906 | |||||
10 | 01.04.2014 | 56 | 6,6 | 14 | 48834644 | 14092 |
verwendete Formeln | ||
Zelle | Formel | Bereich |
J1 | =F1 | |
J2 | {=WENN(SUMME(ZÄHLENWENN(F$1:F$999;J$1:J1))>=ANZAHL2(F$1:F$999);"";INDEX(F:F;VERGLEICH(1;(ZÄHLENWENN(J$1:J1;F$1:F$999)=0)*(F$1:F$999<>"");0)))} | $J$2 |
K2 | =WENN(J2<>"";SUMME(N(HÄUFIGKEIT(A2:A999*(F2:F999=J2);A2:A999*(F2:F999=J2))>0))-1;"") |
Sub GK_Drucken()
' GK_DRUCKEN Makro
' Makro am 31.01.2012 von Uwe aufgezeichnet
' Tastenkombination: Strg+h
Sheets("Monat").Select
Application.Run "makro_ErsteLeereZelle"
ActiveSheet.Unprotect
Selection.AutoFilter Field:=6, Criteria1:="13705" Wie ändern mit ?BOX
Selection.AutoFilter Field:=8, Criteria1:=""
Range("I6:J1000").Select
Selection.Copy
Sheets("GK-Formular").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D8").Select
Sheets("Monat").Select
Range("G6:G1000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GK-Formular").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E8").Select
Sheets("Monat").Select
Range("B6:B1000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("GK-Formular").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B8").Select
Sheets("Monat").Select
Range("B1000").Select
Application.CutCopyMode = False
Range("C1000").Select
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=6
Application.Run "makro_ErsteLeereZelle"
Range("B1000").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Sheets("GK-Formular").Select
Range("B8").Select
ActiveWorkbook.Save
End Sub
Option Explicit
Sub GK_Drucken()
' GK_DRUCKEN Makro
' Makro am 31.01.2012 von Uwe aufgezeichnet
' Tastenkombination: Strg+h
Dim F1 As Long, F2 As Long
With Sheets("Monat")
Application.Run "makro_ErsteLeereZelle"
F1 = InputBox("Filter1", "Daten filtern", "13705")
F2 = DateValue(InputBox("Ab Datum", "Daten filtern", "14.04.2014"))
Sheets("GK-Formular").Rows("8:1000").ClearContents
.Unprotect
.Cells.AutoFilter Field:=6, Criteria1:=F1
.Cells.AutoFilter Field:=8, Criteria1:=""
.Cells.AutoFilter Field:=1, Criteria1:=">=" & F2
.Range("I6:J1000").Copy
'Zielzelle anpassen; hier gewählt A8
Sheets("GK-Formular").Range("A8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
.Range("G6:G1000").Copy
Sheets("GK-Formular").Range("D8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
.Range("B6:B1000").Copy
Sheets("GK-Formular").Range("E8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
.ShowAllData
Application.Run "makro_ErsteLeereZelle"
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
.EnableSelection = xlUnlockedCells
End With
Sheets("GK-Formular").Activate
Range("B8").Select
ActiveWorkbook.Save
End Sub
Gruß UweD