Forum des VBA-Tutorials

Tabellenname (VBA)

moonlink, Freitag, 22. September 2017, 14:13 (vor 84 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. September 2017, 20:37 (vor 83 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. September 2017, 09:02 (vor 83 Tagen) @ Martin Asal

Hat geklappt besten Dank !:-)

RSS-Feed dieser Diskussion
powered by my little forum