[Party]

Hi leute ich hoff ich bin hier im richtigen Forumbereich hab sonst nicht gwisst wohin damit.

also ich hab eine klein Frage an euch. ist es möglich mittels makro den namen ermitteln den dann per input field eingeben und dann in Powerpoint anzuzeigen.

also das mit der namenaufforderung ist kein problem das hab ich schon rausbekommen:

Dim userName As String

Sub GetStart()
	userName = InputBox(prompt:="Enter your name here", Title:="Input Name")
End Sub

wie mach ich es jetzt aber das es dann in der Powerpoint präsentation angezeigt wird? ich beschäftige mich erst seit heute mit markos desshalb schon mal ein kleines sry für die ganze fragestellung

[Party]

Hab jetzt alles soweit gebaut. Es funktioniert mittlerweile.
nur möchte ich eben noch dass die Auswertung nicht in einem popup fenster kommt sondern direkt ins powerpoint geladen wird. geht das überhaubt?

Dim userName As String
Dim numRight As Integer
Dim numFalse As Integer
Dim ergebniss As Integer

Sub Start()
	
	Dim done As Boolean
	done = False
	While Not done
	userName = InputBox(prompt:="Enter your name", Title:="Input Name")
	If userName = "" Then
	done = False
	Else
		done = True
		End If
		Wend
	
	numRight = 0
	numFalse = 0
	ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Richtig()

	numRight = numRight + 1
	ActivePresentation.SlideShowWindow.View.Next
	
End Sub

Sub Falsch()

	numFalse = numFalse + 1
	ActivePresentation.SlideShowWindow.View.Next
	
End Sub

Sub Auswertung()
	ergebniss = numRight / (numRight + numFalse) * 100
	MsgBox ("Du hast " & numRight & "richtig " & numFalse & " falsch")
	MsgBox ("Du hast" & ergebniss & " %richtig")
	
End Sub

Angehängte Datei(en)

•  Quiz.zip (11,34K)
  Anzahl der Downloads: 139