|
Vielen Dank für den Hinweis. Ein Problem ist halt, dass sich der Code auf den Ursprungsnamen der Sheets bezieht, also Fund I-V. Wenn ich dann die Inputs ändere nachdem die Sheets bereits neue Namen haben, sucht der Code quasi nach den Tabs "Fund I" etc. findet sie aber nicht, da sie schon einen neuen Namen haben. Gibt es da eine bessere Lösung?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C11")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund I").Name = Range("C11").Value
End If
If Not Intersect(Target, Range("C12")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund II").Name = Range("C12").Value
End If
If Not Intersect(Target, Range("C13")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund III").Name = Range("C13").Value
End If
If Not Intersect(Target, Range("C14")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund IV").Name = Range("C14").Value
End If
If Not Intersect(Target, Range("C15")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
Sheets("Fund V").Name = Range("C15").Value
End If
End Sub
|