Code Worksheet_Change autom. in neues WS einfügen
23.01.2007 13:51:12
Peter
Von http://www.kmbuss.de/Excel-CD/vba-codes.htm#5 habe ich folgenden Code übernommen:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
Range("a2").Select
End If
If Target = Range("A1") Then ActiveSheet.Name = Target
End Sub
Diesen Code habe ich in jedes Arbeitsblatt eines Workbooks kopiert, so dass nun automatisch der Blattname immer aus der Zelle A1 übernommen wird (falls ein Eintrag vorhanden).
Nun möchte ich sicherstellen, dass die auch passiert, wenn eine neue Tabelle eingefügt wird.
Ist dies machbar und wenn ja, wie?
Danke für ein gelegentliches Feedback.
Gruss, Peter