Hallo Leute,
bin ein blutiger VBA Anfäger und hänge gerade daran 4 verschiedene Integer Zahlen (Punktestände) auf den größten zu prüfen.
Da ich es mit array nicht geschafft habe dachte ich daran alle einzeln zu vergleichen, da geht jedoch mit meiner Schleife nicht.
Die sieht in etwa so aus
If intScore1 > intScore3 Then
ActivePresentation.Slides(59).Shapes("GewinnerShape").TextFrame.TextRange.Text = strName1
Else
If intScore1 > intScore4 Then
ActivePresentation.Slides(59).Shapes("GewinnerShape").TextFrame.TextRange.Text = strName1
Außerdem will er mein
ActivePresentation.SlideShowWindow.View.GotoSlide (59)
nicht akzeptieren und mekert das "there is currently no slide show view for this presentation"
Vielen Dank schonmal für eure Hilfe,
Gruß Julius
|