Kopieren Tabellenblatt

Sub NeuesBlatt() ActiveSheet.Copy After:=Sheets(Worksheets.Count) On Error Resume Next 'Falls Blattname bereits existiert ActiveSheet.Name = "2019" & Sheets.Count Range("G1").Value = Range("G1").Value + 1 Dim FirstRow& Dim Last_Row& FirstRow = 10 Last_Row = ActiveSheet.Rows(ActiveSheet.UsedRange.Rows.CountLarge).Row Rows(FirstRow).Resize(Last_Row).Delete 'statt Select -> Delete zum L?schen ActiveSheet.Rows(9).Hidden = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
das stimmt dann aber nicht mit deiner Eingangsforderung überein.
dass der aktuelle Name des Tabellenblattes (ist immer das Jahr) plus 1 Jahr als neuer Name verwendet wird
Wenn du so das Blatt mit dem Namen 2018 kopierst, dann bekommst du 2020 als Blattname des neuen Blattes. Zudem ist das On Error nicht so berauschend, ein Blatt wird dir dann trotzdem angelegt.

Sub NeuesBlatt()
Dim loBlattname As Long, ws As Worksheet
Dim boVorhanden As Boolean
loBlattname = CLng(ActiveSheet.Name)
For Each ws In ThisWorkbook.Worksheets
If ws.Name = loBlattname + 1 Then
MsgBox "Fehler, das Blatt existiert bereits."
boVorhanden = True
Exit For
End If
Next ws
If Not boVorhanden Then
ActiveSheet.Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = loBlattname + 1
End If
End Sub

Gruß Werner

Sub NeuesBlatt() If MsgBox("Wirklich ein neues Jahr hinzufügen?", vbYesNo) = vbYes Then ActiveSheet.Copy after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Range("G1").Value + 1 * 1 Range("G1").Value = Range("G1").Value + 1 End If End Sub

Sub NeuesBlatt() 'Blattschutz freigeben ActiveSheet.Unprotect Password:="" 'Arbeitsblatt kopieren und neu benenenen, Name aus Zelle G1 des aktiven Blattes plus 1 ActiveSheet.Copy after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Range("G1").Value + 1 * 1 Range("G1").Value = Range("G1").Value + 1 'Zeilen ab Zeile 10 l?schen FirstRow = 10 Last_Row = ActiveSheet.Rows(ActiveSheet.UsedRange.Rows.CountLarge).Row Rows(FirstRow).Resize(Last_Row).Delete 'Zelle AN1 nach unten kopieren ActiveSheet.Range("AN1:AN1500").FillDown 'Zeile 9 ausblenden ActiveSheet.Rows(9).Hidden = True 'Blattschutz aktivieren ActiveSheet.Protect Password:="" End Sub

Sub TabAuswahl() Dim BoVorhanden As Boolean Dim WsTabelle As Worksheet For Each WsTabelle In Worksheets If WsTabelle.Name = "Tabelle1" Then BoVorhanden = True Exit For End If Next WsTabelle If BoVorhanden Then 'vorhanden Else 'nicht vorhanden End If End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread