Ich habe ein Workbook mit ca 50 Tabellen. Ich möchte jetzt gerne , das wenn in Celle B5 ein Wert steht sich die betreffende Tabelle darin umbenennt, und wenn in B5 nichts steht soll der vorgegebene Name bleiben.
Kann mir jemand helfen.
Danke Fred
Sub tabelleUmbenennen()
For i = 1 To Sheets.Count
If Not IsEmpty(Sheets(i).Cells(5, 2)) Then
Sheets(i).Name = Sheets(i).Cells(5, 2)
End If
Next
End Sub
Gruß
Yusuf
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim X As Long
With ActiveSheet
If Not Intersect(Target, .Range("B5")) Is Nothing And Target.Count = 1 Then
For X = 1 To Worksheets.Count
If Worksheets(X).Name = .Range("B5").Value Then
MsgBox "Blattname ist schon vorhanden"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
Next
If .Range("B5").Value "" Then ActiveSheet.Name = .Range("B5").Value
End If
End With
End Sub