ich benoetige Eure Hilfe. Ich moechte mehrere Tabellenblaetter umbenennen, der Name setzt sich aus 2 Zelleninhalten zusammen. Das funktioniert bereits, jedoch entstehen Zeichenketten ueber 32, was dann nicht mehr zulaessig ist fuer den Tabellenblattnamen. Da sich der Name aus einer 8stelligen Zahl und einem Namen zusammensetzt, moechte ich nur die letzten 4 Zeichen der Zahl kopieren. Nur wie geht das?
Code:
For Each ws2 In Worksheets
If ws2.Range("A1").Value "" Then
ws2.Range("c3").Value = ws2.Name
End If
Next
For Each ws2 In wkb.Worksheets
If ws2.Range("A1").Value "" Then
ws2.Name = ws2.Name & "_" & ws2.Range("A3").Value
ws2.Cells.EntireColumn.AutoFit
End If
Next ws2
Schon mal vielen Dank fuer Eure Hilfe!
VG Philipp