|
Hallo Forum,
Ich habe eine Excel-Datei mit mehreren Reitern, in welchen Wert aus TextBox9.Value in Spalte C vorkommen kann.
Nun möchte ich alle Zeilen in Spalte C in allen Tabellenblättern meiner Datei durchsuchen und wenn dieser Wert gefunden wird,
dann sollten die Werte A:C von dieser Zeile auf das Tabellenblatt "Tabelle2" kopiert werden.
Mit meinem jetzigen Code wird nur einmal ein Eintrag kopiert und nicht weiter.
Könnte mir jemand bitte helfen?
LG
Natalie
Dim ws As Worksheet
Dim rng As Range
For Each ws In ActiveWorkbook.Worksheets
Set rng = Range("C:C").Find(What:=TextBox9.Value, LookAt:=xlWhole)
rng.EntireRow.Copy
Worksheets("Tabelle2").Range("A:C").PasteSpecial Paste:=xlPasteAll
Next 'ws
|