Gruss
Moe
Sub Sheetname()
For i = 1 To Worksheets.Count
Sheets(i).Range("a3").Value = Sheets(i).Name
Next i
End Sub
und wie muss man das anstellen, dass beim Einfügen eines neuen Blattes sofort der Name in diesem Blatt in A3 steht und bei Änderung auch aktualisiert wird?
Gruß
Peter
Private Sub Workbook_NewSheet(ByVal Sh As Object)
call sheetname
End Sub
variante 2
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
call sheetname
End Sub
Sub Sheetname()
For i = 1 To Worksheets.Count
Sheets(i).Range("a3").Value = Sheets(i).Name
Next i
End Sub
ich kann das im Moment (für Version 9) nicht testen aber Workbook_SheetChange wird in Version 10 nicht ausgelöst beim Ändern eines Blattnamens.
Gruß
Peter
PS: bin immer noch Peter... und lerne gerne aus gegebenen Antworten
ich denke laut der Forums-Faq benutzen wir keine Nicknamen?
Böser Junge ...
Marcus
das ganze geht auch ohne VBA, und zwar mit der Formel:
=RECHTS(ZELLE("dateiname";$A$1);LÄNGE(ZELLE("dateiname";$A$1))-SUCHEN("]";ZELLE("dateiname";$A$1);1))
Die aktualisiert sich dann auch automatisch. In neue Blätter müsste die Formel dann einmal kopiert werden.
Gruß, Yvonne