Random Antworten aus Zellen
20.09.2022 08:23:59
Steffen
ich komme gerade bei einem Problemchen nicht weiter und wäre für Hinweise dankbar.
Ich habe vor einigen Tagen mal angefangen mit einem Code den ich aus dem Forum (von Nepomuk) habe rumzuspielen und eine Art Chatbot zu basteln.
Jetzt agiert der Chatbot noch relativ simpel, er nimmt aus Tabelle1 A:A Fragen die aus Textbox2 ausgegeben werden und gleicht die Frage mit der Antwort ab die in Zellen B:B hinterlegt sind.
Um das ganze etwas cooler zu gestalten hätte ich gerne das er per zufallsverfahren auch eine Antwort geben kann, ich meine damit das er Antworten nicht nur aus Zellenreihe B:B nimmt sondern auch aus den Zellen daneben C:C, D:D,E:E,F:F er soll immer nur per Zufall dann sich entscheiden eine Zelle auszugeben zwischen B:B bis F:F
Ist das umsetzbar?
Ich habe Onkel Google bereits gefragt und hier auch mal im Forum gestöbert und bisher leider keinen gescheiten Beitrag hierzu gefunden.
Ich poste mal einen Teil vom Code hier rein:
Dim objCell As Range
If TextBox1.TextLength = 0 Then
Application.Speech.Speak "Oh. Du hast anscheinend vergessen deine Frage zu stellen.", SpeakAsync:=True
'Call MsgBox("Bitte einen Suchtext eingeben.", vbExclamation, "Hinweis")
Else
Set objCell = Worksheets("Tabelle1").Columns(1).Find(What:=TextBox1.Text, _
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If objCell Is Nothing Then
TextBox2 = "Darauf habe ich keine Antwort."
Application.Speech.Speak "Tut mir leid, darauf habe ich keine Antwort.", SpeakAsync:=True
Else
TextBox2 = objCell.Offset(0, 1).Value
Application.Speech.Speak TextBox2.Value, SpeakAsync:=True, Purge:=True
Set objCell = Nothing
End If
Steffen