VBA: Evaluate mit Laufzeitfehler 13

    Dim wksLeib As Worksheet
Dim wksOber As Worksheet
Dim rng As Range
Dim r As String
Dim s As String
Dim Info1 As String
Set wksLeib = Worksheets("Saal_Obergeschoss")
Set wksOber = Worksheets("Obergeschoss_Einteilung")
Set rng = wksLeib.Range("A1:AP35")
If Intersect(rng, Target) Is Nothing Then Exit Sub
If Target.Column > 42 Then Exit Sub
If Target.Row > 32 Then Exit Sub
If Target.Count > 4 Then Exit Sub
r = ActiveCell.Address
s = ActiveCell.Value
Info1 = Evaluate("=IF(INDEX('Obergeschoss_Einteilung'!B:B,MATCH(" & r & ",'Obergeschoss_Einteilung'!A:A,0))=""F"",""FIXIERT:   "",IF(INDEX('Obergeschoss_Einteilung'!B:B,MATCH(" & r & ",'Obergeschoss_Einteilung'!A:A,0))=""R"",""RESERVIERT:   "",""""))&INDEX('Obergeschoss_Einteilung'!C:C,MATCH(" & r & ",'Obergeschoss_Einteilung'!A:A,0))")