Herbers Excel-Forum - das Archiv

Aktives Tabellenblatt kopieren

Bild

Betrifft: Aktives Tabellenblatt kopieren
von: Gisela

Geschrieben am: 12.12.2006 19:45:28
Hallo zusammen,
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
Bild

Betrifft: ActiveSheet.Copy After:=Sheets(Sheets.Count) o.w.T
von: ramses
Geschrieben am: 12.12.2006 19:49:50
...
Bild

Betrifft: Vielen Dank und liebe Grüße; o.T.
von: Gisela
Geschrieben am: 12.12.2006 20:44:33
o
 Bild
Excel-Beispiele zum Thema "Aktives Tabellenblatt kopieren"
Während der Laufzeit aktives Modul löschen Spalte A mehrer Mappen in UserForm und aktives Blatt
Ausgblendetes Fenster ein- und aktives Fenster ausblenden Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln