Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Registerblattname automatisch ändern | Herbers Excel-Forum


Betrifft: Registerblattname automatisch ändern von: Christian Wendker
Geschrieben am: 17.01.2010 01:43:42

Hallo Spezilisten!
Habe ein Problem mit den Registerblattnamen. Ich habe auf der ersten Registerkarte eine Liste mit Namen und möchte jetzt die folgenden Registerkarten nach diesen Namen benennen. Außerdem sollen diese sobald ich einen Namen in der Liste ändere automatisch mit geändert werden.
Wer kann mir helfen?
Vielen Dank schon mal.
Christian

  

Betrifft: AW: Registerblattname automatisch ändern von: Hajo_Zi
Geschrieben am: 17.01.2010 08:54:54

Hallo Christian,

benutze das Change Ereignis der Tabelle.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then
        Worksheets(Target.Row).Name = Target
    End If
End Sub

Ich habe jetzt keine Fehlerbehandlung eingebaut.

GrußformelHomepage


  

Betrifft: AW: Registerblattname automatisch ändern von: Beverly
Geschrieben am: 17.01.2010 10:41:20

Hi Christian,

hier noch ein erweiterter Code, damit kein Fehler ausgelöst wird falls der Blattname bereits existiert:

Option Explicit
Dim strTarget As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 And Target.Count = 1 Then
        Application.EnableEvents = False
        On Error Resume Next
        Worksheets(Target.Row).Name = Target
        On Error GoTo 0
        If Application.CountIf(Columns(1), Target) > 1 Then
            MsgBox "Ein Tabellenblatt mit dem Namen '" & Target & "' gibt es bereits"
            Target = strTarget
            Target.Select
        End If
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then strTarget = Target
End Sub

GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Registerblattname automatisch ändern von: Christian Wendker
Geschrieben am: 18.01.2010 12:39:40

Vielen Dank,
das klappt hervorragend.


Beiträge aus den Excel-Beispielen zum Thema "Registerblattname automatisch ändern"