Tabellenname (VBA)

moonlink, Freitag, 22.09.2017, 14:13 (vor 298 Tagen)

Hallo
Ich habe ein Excel Arbeitsmappe mit vielen Tabellenblättern.
Zur besseren übersicht soll der Tabellenname aus dem Wert einer Zelle generiert werden.
Z.B. ich schreibe in Zelle "Pos. 01.02.08" so soll dies zum Tabellenblattnamen werden.
den Code den jetzt verwende funktioniert zwar allerdings bekomme ich eine Fehlermeldung wenn ich ein neues Tabellenblatt öffne da diese Zelle ja noch leer ist.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Name = Cells(3, 8).Value

End Sub

Tabellenname

Martin Asal @, Freitag, 22.09.2017, 20:37 (vor 298 Tagen) @ moonlink

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
If Len(Cells(3, 8).Value) Then
    ActiveSheet.Name = Cells(3, 8).Value
End If
 
End Sub

Martin

Tabellenname

moonlink, Samstag, 23.09.2017, 09:02 (vor 297 Tagen) @ Martin Asal

Hat geklappt besten Dank !:-)

RSS-Feed dieser Diskussion
powered by my little forum