erstes Tabellenblatt per klick löschen

Forumthread: erstes Tabellenblatt per klick löschen

21.06.2016 12:21:43

Rene

Hallo VBA Profis
wie kann ich erreichen dass per klick das erste tabellenblatt (d.h das ganz links) aus dem Register gelöscht wird und gleichzeitig ein neues Blatt inkl. Formatierung aus Vorlage hinten angehängt wird.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: erstes Tabellenblatt per klick löschen

21.06.2016 12:25:14

Matthias
AW: erstes Tabellenblatt per klick löschen

21.06.2016 12:25:46

ChrisL

AW: erstes Tabellenblatt per klick löschen

21.06.2016 12:25:14

Matthias

Hallo

Application.DisplayAlerts = False
Sheets(1).Delete
Sheets.Add After:=Sheets(Sheets.Count)
Application.DisplayAlerts = True

Gruß Matthias

AW: erstes Tabellenblatt per klick löschen

21.06.2016 12:25:46

ChrisL

HI René

Sub t()
Application.ScreenUpdating = False
Worksheets("Vorlage").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "neuer Name"
On Error Resume Next
Application.DisplayAlerts = False
Worksheets(1).Delete
Application.DisplayAlerts = True
End Sub

cu
Chris

erstes Tabellenblatt per klick löschen

Forumthread: erstes Tabellenblatt per klick löschen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread