Die nachfolgende Auggabe wird ja wohl ausgeführt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Then ActiveSheet.Name = Target
End Sub
Aber, wenn ich den nachfolgenden Befehl anfüge, bekomme ich bei Private Sub Worksheet_Change(ByVal Target As Excel.Range) einen Fehler angezeigt.
Wie kombiniere ich beide Private Sub Worksheet_Change(ByVal Target As Excel.Range) Befehle?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) <> "E5" Then Exit Sub
On Error GoTo fehler
ActiveSheet.Name = ActiveSheet.Name & ", " & [E5]
Exit Sub
fehler:
MsgBox "Ungültiger Blattname"
End Sub
Eine Frage an wissende. Für meiner einer, im Moment noch unlösbar. Bin am verzweifeln. Kann mir jemand helfen?
Gruß Ralf