ich bräuchte mal wieder eure Hilfe.
Ich hab einen Code geschrieben, der in einem Tabellenblatt nach nach dem Wort "Intern" in einer bestimmten Spalte sucht, die entsprechende Zeile ausschneidet und in neues Blatt einfügt. Jetzt möchte ich diesen Code erweitern, dass er in allen Blättern sucht und die Liste im Blatt "Intern" entsprechend erweitert.
Weiß jemand wie ich den Code erweitern kann? Es fehlt bestimmt noch ein Zähler von Tabellenblatt 2 bis letztes und eine Suche nach der letzten gefüllten Zelle im Blatt "Intern"
Vielen lieben Dank!
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Private Sub cmd_Intern_Click()
With Worksheets("test") '