Gibt es eine Möglichkeit einen Befehl in VBA noch zu ergänzen?

Question

Wieder mal ich, Guten Morgen,

möchte mir jemand bei dieser Lösung helfen?

das ist der Befehl den ich gerne erweitern möchtefür die Ansage? 'Checkout; 999 = Checkout If Cells(1, lngSpalte).Value = "Checkout" Then Start_Ansage (999)

es Soll noch der Zusatz aus Zelle NI3 zugefügt weden das ist es =NS2&" "&NS3&" "&NS4&" "&NS5&" "&NS6

 

hierbei soll der Name und die Anzahl der Würfe die gebraucht wurden mit angesagt werden. Es ist der Wert aus Spalte 378v Zelle NI3

Gruß Adde

Answer 1

Da mir leider keiner helfen konnte habe ich selbst eine Lösung erstellt. Hat etwas gedauert aber ich bin zufreden.

Folgendes habe ich gemacht: Habe eine Formel erstellt. Dies ist sie:=INDEX(NX1:NX101;LC4-1) und in VBA habe ich folgendes erweitert. 'Name der abzuspielenden Datei Ermittenln
strSounddatei = lngWurf & ".mp3"
Application.Speech.Speak Range("LA3").Value. Habe die Zelle LA3 =PQ4. nun funktioniert es was ich wollte

Gruß Adde