ich möchte per Makro ein Tabellenblatt erstellen. Das erstellte Tabellenblatt soll anschließend automatisch seine Spaltenbreite an den Text anpassen.
Code des Tabellenblatts:
Sub FuegeBlaetterMitNamenEin()
Dim Bereich As String
Dim Zelle As Range
Dim Tabelle As Worksheet
Bereich = "a1:a24"
With ActiveWorkbook
For Each Zelle In ActiveSheet.Range(Bereich).Cells
Set Tabelle = .Sheets.Add(After:=.Sheets(Sheets.Count))
Tabelle.Name = Zelle.Text
Next Zelle
End With
End Sub
Code Event Makro:
Private Sub Worksheet_Calculate()
ActiveSheet.Unprotect
Columns("A:Z").AutoFit
ActiveSheet.Cells.Locked = False
ActiveSheet.Range("A1:P5").Locked = True
ActiveSheet.Range("A6:A997").Locked = True
ActiveSheet.Range("I6:J997").Locked = True
ActiveSheet.Protect
End Sub
Wie kann ich dieses Event Makro automatisch beim Erstellen neuer Tabellenblätter hinzufügen?
Gruß Christoph