AW: Arbeitstage je Mitarbeiter zählen
27.05.2014 08:48:16
UweD
Hallo
hier die Datei mit den angepassten Formeln und auch dem angepasstem Makro.
Auf select kann in den meisten Fällen verzichtet werden....
Die Zielzelle des ersten Einfügens musst du ggf noch anpassen....
https://www.herber.de/bbs/user/90861.xlsm
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