Tabellenname aus einer Zelle
30.04.2020 20:17:53
Werner
das folgende Makro funtioniert zwar aber wenn die Zelle A2 leer ist kommt eine Fehlermeldung.
Wie müßte ich das Makro umstellen um die Fehlermeldung zu verhintern.
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As String
Zelle = "A2"
ActiveSheet.Name = ActiveSheet.Range(Zelle).Text
End Sub
Viele Grüße
Werner