Tabellenblätter per Makro umbenennen

Hallo zusammen...
ich sollte ein Reporting aufstellen, das möglichst automatisiert erstellt werden kann. Dazu möchte ich das die Namen der Tabellenblätter durch ein Makro automatisch benannt werden, je nachdem welchen Namen ich in einem Zellenbereich (hier in Spalte C) errechnet habe. Allerdings sollte das Makro auch ein zusätzliches Sheet erstellen falls ich in diesem Bereich mittendrin einen neuen Namen einfüge und am Ende einen anfüge. Dazu habe ich Codematerial gefunden, kann aber mit meinem begrenztem Know How noch nicht soviel anfangen..
' Benennen von Tabellenblättern nach den Inhalten eines Bereichs.

Public Sub BlattnamenNachBereich()
    Const namenBereich As String = "Datumeingabe!C4:C6"
    Dim z As Range, nr As Integer
    nr = 1
    For Each z In Range(namenBereich) 'Worksheets("Datumeingabe").Range("C4:C6").Cells
        Worksheets(nr).name = z.Value
        nr = nr + 1
    Next
End Sub

und:
'Tabellenblatt automatisch benennen lassen bei SheetChange


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B3")) Is Nothing Then _
Sh.Name = Target.Value
End Sub

Kann ich mit diesem Code etwas anfangen? Was müsste denn angepasst werden so dass ich meine Wünsche/ Anforderungen abdecken kann?
https://www.herber.de/bbs/user/86229.xlsm
Vielen lieben Dank für Eure Hilfe und Tipps! :-)
Liebe Grüsse
Nik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Benamsen() Dim wrk As Workbook Dim sht As Worksheet Set wrk = ThisWorkbook For Each sht In wrk.Worksheets If sht.Name = "Controll" Or sht.Name = "Controll Center" Then Else sht.Name = sht.Cells(11, 3).Value End If Next End Sub

Hallo Nik
Wenn du es von der Berechnung in C3:C100 abhängig nachen willst, hast du das flasche Ereigniss.
Versuch mal sowas:
' **********************************************************************
' Modul: ThisWorkbook Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

Dim myNewSheet As Worksheet
Dim Zelle As Range
Dim appAlerts As Boolean
On Error Resume Next
If Sh Is Sheets("Controll Center") Then
    appAlerts = Application.DisplayAlerts
    For Each Zelle In Sh.Range("C3:C100") 'Anpassen
        Set myNewSheet = Worksheets.Add(after:=Sheets(Sheets.Count))
        myNewSheet.Name = Zelle.Text
        If Err > 0 Then 'Blatt gibt es schon, üngültiger Name oder Ähnliches...
            Err.Clear
            Application.DisplayAlerts = False
            myNewSheet.Delete
            Application.DisplayAlerts = appAlerts
        End If
    Next
End If

End Sub

ransi

Sub Sheets_benennen() Dim myNewSheet As Worksheet Dim Zelle As Range Dim appAlerts As Boolean On Error Resume Next If Sh Is Sheets("Controll Center") Then appAlerts = Application.DisplayAlerts For Each Zelle In Sh.Range("C3:C100") 'Anpassen Set myNewSheet = Worksheets.Add(after:=Sheets(Sheets.Count)) myNewSheet.Name = Zelle.Text If Err > 0 Then 'Blatt gibt es schon, üngültiger Name oder Ähnliches... Err.Clear Application.DisplayAlerts = False myNewSheet.Delete Application.DisplayAlerts = appAlerts End If Next End If End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenblätter per Makro umbenennen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread