Gibt es einen VBA Code wo ich Tabellenblätter umbennen kann. Hab etwa 30 Tabellenblätter wo ich immer händisch umbennen muss.
Gruss
Matthias
Sub RenameWorksheets()
Sheets("test").Name = "test"
End Sub
Sub RenameWorksheets()
Sheets("test").Name = "a1"
End Sub
bei a1 will ich jedoch des er die Zeile A1 aus dem jweiligen sheet zieht
Sub umbenennen()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Range("A1") "" Then wks.Name = wks.Range("A1")
Next
End Sub