Office: Zeilen mit bestimmten Wert in andere Tabelle (VBA Makro)

Hallöchen,
ich stehe aktuell vor folgendem Problem:
Wir haben ein Excel Makro, das über die Zeiterfassung alle Mitarbeiter und ihre Stunden in verschiedenen Positionen auflistet. Eine abgespeckte Version der daraus kommenden Daten sieht man unter "rd_Stunden". Dort stehen eigentlich über 100 Mitarbeiter drin.
Für mich sind aber nur die Daten der Verlader interessant.
Da wir das bis jetzt immer alles manuell gefiltert und rüber kopiert haben, dachte ich, man könne das mit einem weiteren Makro so hinkriegen, dass die Tabelle in "rd_stunden" so gefiltert wird, dass nur Verlader angezeigt werden und diese kompletten Zeilen dann in das Blatt "Verlader" mit eingefügt werden.
In dem Blatt "Verlader" ist zu sehen wir die Tabelle die benötigt wird dann im Endeffekt aussehn müsste.

Das Ziel ist es, dass ich im Blatt "Daten Eingabe" auf die Schaltfläche drücke und er mir die zuvor gezogenen Daten aus dem Blatt "rd_stunden" auf Verlader filtert und die Daten dann ins Blatt "Verlader" mit in die Tabelle einfügt.
Die Formel in Spalte E sollte auch bis zum Ende heruntergezogen werden.

Da ich aktuell noch mit Makro Aufzeichnen arbeite, funktioniert das alles nicht so wirklich , könntet ihr mir da eventuell unter die Arme greifen?


Ich hoffe, das war einigermaßen verständlich erklärt.

MfG

 

Benutze Autofilter und Kopiere den sichtbaren Bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.

 

Hi,

das kannst du mit folgendem Makro realisieren:

Code:

Sub Filtern()
    Dim lngErste As Long
    Dim lngAnzahl As Long
    'erste freie Zeile
    lngErste = Worksheets("Verlader").ListObjects("Tabelle2").DataBodyRange.Columns(1).Rows.Count + 2
    With Worksheets("rd_stunden").ListObjects("Tabelle1")
        'nach "Verlader" filtern
        .Range.AutoFilter Field:=1, Criteria1:="Verlader"
        'Anzahl an gefilterten Zeilen ermitteln
        lngAnzahl = .DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
        'sichtbare Zellen kopieren
        .DataBodyRange.SpecialCells(xlCellTypeVisible).Copy
        'Werte einfügen in erste freie Zelle Spalte B
        Worksheets("Verlader").Cells(lngErste, 2).PasteSpecial Paste:=xlValues
        'Autofilter zurücksetzen
        .Range.AutoFilter Field:=1
    End With
    With Worksheets("Verlader")
        'in Spalte A Datum eintragen
        .Range(.Cells(lngErste, 1), .Cells(lngErste + lngAnzahl, 1)) = Date
    End With
End Sub

---

 

Funktioniert einwandfrei.
Danke dir Beverly :)