Tabellenblätter nach Zellinhalt benennen II
Ich habe auf Eurer Homepage ein Makro gefunden, das die Tabellenblätter nach dem Inhalt einer bestimmten Zelle benennt (Webcode 26556). Euer Makro funktioniert allerdings nicht, wenn die entsprechende Zelle mehr als 31 Zeichen enthält. Ich habe das Makro so ergänzt, dass nur die ersten 31 Zeichen des Zellinhaltes verwendet werden.
Dieser aufmerksame Leser bezieht sich auf das Makro, das im Webcode 26556 aufgeführt ist. Herzlichen Dank für die Zusendung der Erweiterung:
---------------------------
Sub Namen_anpassen_alle()
Sheets(1).Select
B = ActiveSheet.Index
For Each w In Worksheets
Sheets(B).Activate
n = [b4].Value
t = Len(n)
If t >= 32 Then
tx = Left(n, 31)
Else
tx = n
End If
On Error Resume Next
w.Name = tx
B = B + 1
Next w
Sheets(1).Select
End Sub
---------------------------
Laden Sie die PCtipp-App kostenlos auf Ihr Smartphone und bleiben Sie auf dem Laufenden.
![]()
Windows 7
Windows 2000
Windows XP
Windows Vista
Linux
Mac
Sicherheit
Internet
Office
Multimedia
Spiele
Hardware
Windows9x/NT
Mobile
Sonstiges
![]()
