In diesem Arbeits­blatt ist für ein Pro­jekt ver­merkt, an welchem Arbeit­stag ein bes­timmter Mitar­beit­er wieviel Zeit sie oder er dafür aufgewen­det hat. Die Werte wur­den unregelmäßig eingegeben, darum herrscht dort auch ein leicht­es Durcheinan­der. (Der wahre Hin­ter­grund: Die Liste wurde mit Zufall­szahlen aus­ge­füllt und anschließend Als Wert kopiert.)

Das Ziel: Die Liste soll gefiltert wer­den und begin­nend in F1:H1 sollen (unter­halb der Über­schrift) nur die gefilterten Werte kopiert wer­den. Beispiel ein­er Fragestel­lung: Wer hat in den ersten 5 Tagen wie viele Stun­den an dem Pro­jekt gear­beit­et? Es sollen (mit Aus­nahme der Zahlen-For­matierun­gen) die Werte kopiert wer­den, keine Piv­ot-Auswer­tung oder formeltech­nis­che Lösung!

Ach ja, die Spalte D wird nicht aus­gew­ertet. Sie hat ein­er­seits den Zweck Ihnen zu zeigen, dass nicht immer die kom­plette gefilterte Liste kopiert wer­den muss und enthält auch einen kleinen Fin­gerzeig, wie Sie beson­ders arbeit­same Mitar­beit­er (mehr als 8 Stun­den an 1 Tag gear­beit­et) her­vorheben kön­nen.

Plain Excel

Das Ziel ist beschrieben. Und der Weg dort hin hört sich eigentlich ganz ein­fach an, aber pro­bieren Sie es gerne selb­st ein­mal aus … Wir schla­gen diesen Weg vor:

• Erforder­lichen­falls die Auf­stel­lung zu ein­er Liste / Intel­li­gen­ten Tabelle machen (ist in der vorgegebe­nen Datei bere­its geschehen).
• Die ersten drei Spal­ten der Liste ab Zeile 2 markieren. Das geht (bei ein­er Intel­li­gen­ten Tabelle) sehr schön so:
  • Zeigen Sie auf den oberen Rand der Über­schrift in A1:
  

  In ein­er Liste bequem eine Spalte markieren

  • Klick mit der linken Maus­taste.
  • Bei gedrück­ter Maus­taste bis Spalte C ziehen, dann los lassen.
• Arbeits-Tag per Zahlen­fil­ter auf <6 oder <=5 fil­tern.
• Ver­gle­ichen Sie anschließend bitte mit dieser Abbil­dung:

Die gefilterten Dat­en

• F5 oder StrgG. Dort auf Inhalte… Klick­en.
• Im Folge-Fen­ster markieren Sie Nur Sicht­bare Zellen:

Bequem nur sicht­bare Zellen des Bere­ichs auswählen

• Nach dem OK StrgC oder Kopieren.
• Den Fil­ter aus Arbeits-Tag ent­fer­nen, damit F3 sicht­bar wird.
• F3 anklick­en und StrgV oder nach Belieben Ein­fü­gen. Eventuelle Tabellen-For­matierun­gen kön­nen Sie noch ent­fer­nen.

▲ nach oben …

VBA

Das Ganze lässt sich (natür­lich) auch per VBA durch­führen. Das ist aber naturgemäß etwas star­rer, weil die Vari­ablen ja fest gecodete Werte haben und auch nicht „mal so eben” ein einzel­ner Mitar­beit­er gefiltert und kopiert wer­den kann. Daher sind die Ein­satzge­bi­ete dur­chaus dif­feren­ziert zu sehen, wenn auch jede Vorge­hensweise ihre Vorteile hat. So ließe sich leicht per Input­Box die Anzahl der Tage abfra­gen, etc. – Hier bleiben wir bei der oben beschriebe­nen Vor­gabe von den ersten fünf Tagen und hier nun der entsprechende Code:

Sub NurGefilterteKopieren()
   Dim tblRow1 As Integer, lRow As Integer
   Dim tblName As String
   
   tblName = "tbl_Projekt_Zeiten"   'Der Name wurde so (von uns) vergeben
   tblRow1 = Range(tblName).Row     'Erste Zeilennummer muss ja nicht 1 sein
   With ListObjects(tblName)
      lRow = .ListRows.Count + 1    'Wegen der Überschrift
      .Range.AutoFilter Field:=1, Criteria1:="<6"
      Range("A" & tblRow1 - 1 & ":C" & lRow).Copy
      'Filter entfernen, alle wieder anzeigen
      Range("F1").PasteSpecial xlPasteAllExceptBorders
      .Range.AutoFilter Field:=1
   End With
   Columns("F:H").EntireColumn.AutoFit
   Range("F1").Select   'Des Aussehens wegen
End Sub

▲ nach oben …

Hat Ihnen der Beitrag gefallen?
Erleichtert dieser Beitrag Ihre Arbeit?

Dann würde ich mich über einen Beitrag Ihrer­seits z.B.  1,00 € freuen … (← Klick mich!)