Aktives Tabellenblatt kopieren
12.12.2006 19:45:28
Gisela
ich möchte das aktive Tabellenblatt kopieren.
Mit meinen bescheidenen Kenntnissen habe ich jetzt ein Makro, mit dem ich ein namentlich genanntes TB kopiere (im Makro Juli2007. Das funktioniert (Dank des Archivs in diesem Forum).
Was muss ich ändern, damit immer das aktuelle TB kopiert wird?
Sub TBKopieren()
If ActiveSheet.Name <> "juli2007" Then Exit Sub
Application.EnableEvents = False
Dim shjuli2007, shSheet As Worksheet
Dim strNeuerName As String
Set shjuli2007 = ActiveSheet
strNeuerName = Left(shjuli2007.Range("B4").Value, 30)
If strNeuerName = "" Then strNeuerName = "neue Daten"
For Each shSheet In ThisWorkbook.Sheets
If shSheet.Name = strNeuerName Then
Application.EnableEvents = True
Exit Sub
End If
Next
shjuli2007.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = strNeuerName
'Altdaten übernehmen
[BU9:BY33].Copy
[E9].PasteSpecial (xlPasteValues)
[E2].Select
[J9:BS33].ClearContents
[C3].Select
Application.EnableEvents = True
End Sub
Vielen Dank für jede Hilfe
Gisela
Anzeige