Automatische Benennung der Tebellenblätter
17.01.2007 13:19:24
Cornelis
Ich habe vor einiger Zeit bereits mal eine Hilfestellung erhalten: Es geht darum, dass der Name eines Tebellenblattes automatisch mit einer Zelle ("O3", siehe Code) in dieser Arbeitsmappe verküpft ist: Folgender VBA-Code funktioniert:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Sh.Range("O3")) Is Nothing Then
On Error Resume Next
Sh.Name = Sh.Range("O3").Value
If Err.Number > 0 Then
MsgBox Err.Description, vbCritical, "Fehler " & Err.Number
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End If
End Sub
Mein Problem ist nun, dass der Wert nicht automatisch in die Zelle "O3" geschrieben wird, sondern dieser anhand einer Formel automatisch generiert wird: "O3=WENN(Uebersicht!$B$11="";"";Uebersicht!$B$11)". Wenn ich nun im Tabellenblatt "uebersicht" in der Zelle B11 den Wert ändere, wird dieser zwar in die Zelle "O3" übernommen, aber der Name des Tabellenblattes wird nicht automatisch aktualisiert - ist dies möglich, kann mir jemand weiterhelfen?
Besten Dank!
Gruss, Cornelis