Abgesehen davon, dass VBA auch Neuland für mich ist, hat die Schule gerade erst wieder angefangen und ich bin komplett raus was das Thema betrifft..
Aufgabe ist folgende:
Das Struktogramm ist erstmal nicht so wichtig, mir geht es jetzt nur um das Programm selbst.
Sub Kilometergeld()
Dim km As Integer
Dim ausgabe As String
km = InputBox("Geben Sie die gefahrenen km ein!")
If km = 0 Then Exit Sub
Select Case km
Case Is = 100
ausgabe = MsgBox("Das Kilometergeld beträgt km * 0,08 ")
Case Is > 300
ausgabe = MsgBox("blabla")
Case Is > 500
Exit Sub
End Select
End Sub
Ich weiß nicht wie man die Kilometerzahl mit den entsprechenden Werten multipliziert. Weiterhin bin ich mir nichtmal sicher, ob das mit den Variablen alles so korrekt ist.
Bin für jede Hilfe dankbar!
Grüße,
Mark