Stammtisch: Wir schaffen 8888 Seiten! (1000, 1337, 2222, 3333, 4444, 5555, 6666 & 7777 geschafft)

ger_brian

Zitat von 91er

Haha wie peinlich ....BWL

Wieso peinlich?^^
Ist halt nunmal Bestandteil des Studiengangs Wirtschaftsinformatik

91er

Zitat von ger_brian

Wieso peinlich?^^
Ist halt nunmal Bestandteil des Studiengangs Wirtschaftsinformatik

Haha wie peinlich... Wirtschaftsinformatik

hangman

Zitat von 91er

Haha wie peinlich... Wirtschaftsinformatik

so true...

ger_brian

Deppen...alle beide -.-

**Mimi84**

entscheidungstheorien
Maximax, minimax,laplace, hurwicz und savage niehans,

unternehmensformen
personengesellschaften (ohg, kg), kapitalgesellschaften (GmbH, Ag)

steuerliche grundlagen
gay!

produktlebenszyklen
auch gay

ger_brian

haha
Mimi84:
ebenfalls gay :D:D
komm heut abend mal ts ich sag dir was drankam

**Mimi84**

Schick mir die Klausur einfach mal rüber
Nimm dir ein Blanko mit.

Ich schreib ich 5 Wochen mein Abschlussexamen in BWL. Muss langsam mal lernen...

ger_brian

Geht net...die werden schon personalisiert mit matrikelnummer drauf ausgeteilt^^

Mobber

Zitat von Mimi84

entscheidungstheorien
Maximax, minimax,laplace, hurwicz und savage niehans,

unternehmensformen
personengesellschaften (ohg, kg), kapitalgesellschaften (GmbH, Ag)

steuerliche grundlagen
gay!

produktlebenszyklen
auch gay

Bitte hör auf mit dieser Anti Kai Einstellung!

**Mimi84**

Haha, wir konnten uns immer welche abziehen

**[Ger]Liquid**

Dann tu halt so als ob du ne gespaltene Persönlichkeit hast und deshalb zwei brauchst..
Benötige des auch, so kann ich mich auf mein Studium vorbereiten..

hangman

brian, dürft ihr mit buntstiften auf die klausur malen?

KeksSs

Dayum falscher rechenweg in der Arbeit

Sent from my GT-I9100 using Tapatalk

Coban

Spoiler anzeigen

Code

Sub Vokabeltrainer()
Dim Vokabel1 As String
Dim PUNKTE As Single
PUNKTE = 0


Vokabel1 = InputBox("Was heisst " & Range("B1") & " auf Englisch?")


If Vokabel1 = Range("A1").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A1") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B2") & " auf Englisch?")
If Vokabel1 = Range("A2").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A2") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B3") & " auf Englisch?")
If Vokabel1 = Range("A3").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A3") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B4") & " auf Englisch?")
If Vokabel1 = Range("A4").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A4") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B5") & " auf Englisch?")
If Vokabel1 = Range("A5").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A5") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B6") & " auf Englisch?")
If Vokabel1 = Range("A6").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A6") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B7") & " auf Englisch?")
If Vokabel1 = Range("A7").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A7") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B8") & " auf Englisch?")
If Vokabel1 = Range("A8").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A8") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B9") & " auf Englisch?")
If Vokabel1 = Range("A9").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A9") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B10") & " auf Englisch?")
If Vokabel1 = Range("A10").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A10") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B11") & " auf Englisch?")
If Vokabel1 = Range("A11").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A11") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B12") & " auf Englisch?")
If Vokabel1 = Range("A12").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A12") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B13") & " auf Englisch?")
If Vokabel1 = Range("A13").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A13") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B14") & " auf Englisch?")
If Vokabel1 = Range("A14").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A14") & " !"
End If




Vokabel1 = InputBox("Was heisst " & Range("B15") & " auf Englisch?")
If Vokabel1 = Range("A15").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A15") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B16") & " auf Englisch?")
If Vokabel1 = Range("A16").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A16") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B17") & " auf Englisch?")
If Vokabel1 = Range("A17").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A17") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B18") & " auf Englisch?")
If Vokabel1 = Range("A18").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A18") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B19") & " auf Englisch?")
If Vokabel1 = Range("A19").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A19") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B20") & " auf Englisch?")
If Vokabel1 = Range("A20").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A20") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B21") & " auf Englisch?")
If Vokabel1 = Range("A21").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A21") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B22") & " auf Englisch?")
If Vokabel1 = Range("A22").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A22") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B23") & " auf Englisch?")
If Vokabel1 = Range("A23").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A23") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B24") & " auf Englisch?")
If Vokabel1 = Range("A24").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A24") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B25") & " auf Englisch?")
If Vokabel1 = Range("A25").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A25") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B26") & " auf Englisch?")
If Vokabel1 = Range("A26").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A26") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B27") & " auf Englisch?")
If Vokabel1 = Range("A27").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A27") & " !"
End If


Vokabel1 = InputBox("Was heisst " & Range("B28") & " auf Englisch?")
If Vokabel1 = Range("A28").Value Then
MsgBox "Richtig"
PUNKTE = PUNKTE + 1
Else
MsgBox "Ihre Antwort ist leider falsch. Die richtige Antwort ist " & Range("A28") & " !"
End If


MsgBox "Sie haben " & PUNKTE & " von 28 Punkten erreicht! Dies sind " & PUNKTE / 28 * 100 & " %"










End Sub

Alles anzeigen

Hat wer ne Ahnung, wie das als Schleife ausgegeben werden kann ^^?

hangman

für den anfang ein while(true) um alles. kannst dann noch an ne variable hängen, die z.b. auf ALT+X umgesetzt wird.

Awesome

nur 3 stunden schule gehabt !
YEAH

Coban

Zitat

für den anfang ein while(true) um alles. kannst dann noch an ne variable hängen, die z.b. auf ALT+X umgesetzt wird.

Dankö probier ich nachher

Coban

Rtl punkt 12 is ja so lächerlich...

Headnut

Das Erkennst du jetzt erst?

Awesome

css mal wieder installiert und bisschen surfen ♥

Benutzer online in diesem Thema