ich habe folgende Problem (siehe https://www.herber.de/bbs/user/118819.xlsm)
Ich habe zwei Reiter in einer Excel. Der zweite ("MA") beinhaltet Daten über Mitarbeiter (Spalten A:L).
Im zweiten Reiter "Übersicht" soll man in Zelle B1 ein Stichwort eingetragen können und per Knopfdruck ein VBA starten, was automatisch die Tabelle "MA" nach dem Stichwort durchsucht und sämtliche Zeilen in die Übersicht kopiert. Dabei ist es ein Problem, dass die Suchworte mehrfach vorkommen.
Mit meinen limitierten VBA Kenntnissen habe ich unten stehenden Code zustande gebracht. Dieser durchsucht allerdings nur einzelne Spalten.
Die Vorstellung wäre ein Code, der automatisch die gesamte Tabelle durchsucht, alle Zeilen kopiert und Duplikate automatisch entfernt.
Die letzten Stunden habe ich mich schon an der Erstellung eines Code mit der Range.Find Methode in Verbindung mit Copy and Paste versucht, bin aber gescheitert.
Ist hier jemand der mir diesbezüglich einen Tip geben könnte/ mich helfen könnte?
Danke im Voraus
VG
Robert
Sub Zeilekopieren()
Dim a As Long
Dim b As Long
Dim n As Long
With Sheet3
b = .UsedRange.Rows.Count
n = 1
For a = 2 To b
If InStr(.Cells(a, 5).Value, Sheet1.Cells(1, 2)) > 0 Then
.Rows(a).Copy Destination:=Sheet1.Rows(n + 3)
n = a + 1
End If
Next a
End With
End Sub
Private Sub CommandButton1_Click()
Worksheet("Übersicht").Range("A4:F250").ClearContents
Call Zeilekopieren
End Sub