kann mir jemand helfen.
Ich kopiere gefillterte Daten in ein neues Blatt das automatisch erstellt wird.
Sub GefilterteDatenKopieren()
Sheets("Tabelle1").Activate
ActiveCell.CurrentRegion.SpecialCells(xlVisible).Copy
Worksheets.Add After:=Worksheets(Worksheets.Count)
Range("A2").Select
ActiveSheet.Paste
Sheets("Tabelle1").Activate
End Sub
Nun möchte ich das daß neue Blatt wo die Daten eingefügt wurden den Namen der in diesem Blatt in Spalt/Zelle D2 steht bekommt.
Geht sowas? Wo und was muß ich in das bestehende Makro verändern?
Danke Jana