folgenden Code habe ich geschrieben, und bekomme nun oben genannte Fehlermeldung und find wird unterlegt.
Was muß ich ändern?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Wert As String
Call Auswertung
Worksheets("Auswertung").Range("A1").Value = ActiveSheet.Cells(64, 5).Value
Wert = ActiveSheet.Cells(64, 5).Value
Worksheets("Auswertung").Range("B6").FormulaR1C1 = Left(Right(Wert, Find("Gesamtauswertung: _
", Wert, 1) + 5), Find("%", Right(Wert, Find("Gesamtauswertung: ", Wert, 1) + 5)) - 1)
End Sub
Danke für die Hilfe
Gruß