Makro ergänzen
13.07.2020 09:45:01
Christian
Ich habe eine Excel-Datei vererbt bekommen in der ein Makro ein Tabellenblatt kopiert und Inhalt löscht und einen neuen Namen vergibt.
Nun bekomme ich die Meldung, dass dieser Name schon existiert.
Das Tabellenblatt ist ausgeblendet.
Kann man in dieses Makro integrieren, dass das Tabellenblatt eingeblendet und auch gelöscht wird?.
Der Bisherige Code:
Sub NeueWoche()
' NeueWoche Makro
ActiveSheet.Select
ActiveSheet.Copy After:=Sheets(ActiveSheet.Name)
Set wsSheetTemp = ActiveSheet
strName = Range("L2")
wsSheetTemp.Name = strName
Range("L2").Select
Selection.Copy
Range("L2").Select
Selection.Copy
Range("K2:K4").Select
ActiveSheet.Paste
Range("E9:F31").Select
Selection.ClearContents
Range("H9:N16").Select
Selection.ClearContents
Range("H20:N22").Select
Selection.ClearContents
Range("H26:N33").Select
Selection.ClearContents
Range("F9").Select
End Sub