Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, ich bin leider ein Anfänger in VBA, muss jetzt allerdings eine Aufgabe mit VBA lösen. Ich möchte in einer Tabelle und da in einer bestimmten Spalte nach einem Begriff suchen und wenn dieser Begriff in der Zeile auftaucht, diese Zeile in ein 2. Tabellenblatt (gleiche Datei) kopieren. In diesem Tabellenblatt ist die 1. Zeile die Überschrift so dass erst ab der 2. Zeile eingefügt werden soll. Das ganze soll so lange laufen, bis alle Zeilen der Spalte in Tabelleblatt 1 durchsucht wurden. Mein bisheriger Code: Sub Suche() x = Cells(Rows.Count, 1).End(xlUp).Row j = 0 d = 0 For i = 1 To x 'Dim a As Variant a = 0 If Cells(i, 3) = "Eis" Then ' a = Cells(i, 5).CompleteRow a = Cells(i, 3).Row Rows(a).Select Selection.Copy Sheets("Tabelle3").Select ' ActiveSheet.Cells(j, 1) = a d = d + 1 Range("A", 1).Select ' Rows(j).Select ActiveSheet.Paste End If Next End Sub Die Spalte, die durchsucht werden soll ist die 3. Was ich noch bräuchte, wäre dass der Suchbegriff "Eis" nicht fest hinterlegt ist im VBA-Code sondern aus einer Zelle auf Tabellenblatt 1 ausgelesen werden kann. Ich weiß, dass es schwierig ist (zumindest für micht). Haben auch schon viele Lösungen im Internet nachgeschaut und herumgebastelt, aber es klappt einfach nicht. Vielen Dank für eure Hilfe schon im voraus! Viele Grüße

Hallo Hugo,

warum Makro, bnutze doch Autofilter und kopiere nach Autofilter nur den sichtbaren Bereich.

Gruß Hajo

Hi Hajo,

danke für deine Hilfe. Allerdings soll das Suchwort in einer Zelle des Tabellenblatts 1 stehen, dieses auslesen und dann danach suchen.

Grüße

Hallo Hugo,

Link zur Datei Autofilter in Zelle Suchwert

Gruß Hajo

Hi Hajo,

vielen Dank. Das ist super!

Viele Grüße

• letzte beschriebene Zeile kopieren VBA
• jede 5 Zeile aus .txt Datei in Excel kopieren
• Excel, suche nach Wert in einer Zelle und Kopieren des Wertes der 24.Zeile darunter
• Daten aus 20 excel dateien in eine excel datei kopieren mit einem vba script
• VBA EXCEL Zeile löschen