Danke im Voraus
Sub Blatt_kopieren_Namen_löschen()
Dim Q As Worksheet 'Q wie Quelle
Dim N As Name
ActiveSheet.Copy 'nach eine Sheet-Copy ist das aktive Sheet immer die neue
For Each N In ThisWorkbook.Names
If N.RefersToRange.Parent.Name = ActiveSheet.Name Then N.Delete
Next
End Sub
VG
Dim TBNeu As Worksheet
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Set TBNeu = ActiveSheet 'Das Neue
With TBNeu
Union(.Range("AA"), .Range("BB")).ClearContents
End With
LG UweDDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen