Ich möchte einen Fragebogen erstellen, wo man eine Antwort in eine Zelle schreibt und das _ Programm sieht das bestimmte Zeichenfolgen vorhanden sind und mir in einer anderen Zelle zB eine 1 ausgibt. Mein Ansatz funktioniert, jedoch möchte ich den ein wenig anders haben. Hier mein Ansatz:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [n59] = "Temperaturabweichung von 20°C" Then
Range("a150").Value = "1"
Else
Range("a150").Value = ""
End If
End Sub
Was mich daran nur stört ist, dass die Leute nicht immer die selbe Antwort schreiben. Deswegen wäre eine Funktion wie =WENN(ISTFEHLER(FINDEN("emperaturabweichung";n59));"";"1")
Somit kann man die Groß und kleinschreibung vernachlässigen und nen ewig langen Text als Antwort schreiben, hauptsache man bekommt das Schlüsselwort "emperaturabeichung". Die Finden-Funktion kann ich nicht nehmen, da ich nachher noch die einsen mit =Summe() addieren muss.
Danke schonmal für die Antwort