ein freundliches Forummitglied hat mir ein hilfreiches Makro gesendet. Leider weiß ich nicht wie ich ein Makro einbinden kann, bin (leider) nur ein Formelfreak. Wie gehe ich vor um folgendes Makro lauffähig zu machen? Es geht darum den Tabellenblattnamen automatisch aus einer Zelle zu erstellen.
Folgenden Code in das Klassenmodul der Tabelle (Der Name der Tabelle wird in A1 angenommen):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Range("A1").Value <> "" Then ActiveSheet.Name = Range("A1").Value
End Sub
Vielen Dank
Gruß Wolfgang