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

ger_brian · 14. Februar 2012

91er schrieb:

Haha wie peinlich ....BWL

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

91er · 14. Februar 2012

ger_brian schrieb:

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

Haha wie peinlich... Wirtschaftsinformatik

hangman · 14. Februar 2012

91er schrieb:

Haha wie peinlich... Wirtschaftsinformatik

so true...

ger_brian · 14. Februar 2012

Deppen...alle beide -.-

**Mimi84** · 14. Februar 2012

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

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

steuerliche grundlagen
gay!

produktlebenszyklen
auch gay

ger_brian · 14. Februar 2012

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

**Mimi84** · 14. Februar 2012

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 · 14. Februar 2012

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

Mobber · 14. Februar 2012

Mimi84 schrieb:

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

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

steuerliche grundlagen
gay!

produktlebenszyklen
auch gay

Alles anzeigen

Bitte hör auf mit dieser Anti Kai Einstellung!

**Mimi84** · 14. Februar 2012

Haha, wir konnten uns immer welche abziehen

**[Ger]Liquid** · 14. Februar 2012

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 · 14. Februar 2012

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

KeksSs · 14. Februar 2012

Dayum falscher rechenweg in der Arbeit

Sent from my GT-I9100 using Tapatalk

Coban · 14. Februar 2012

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 · 14. Februar 2012

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 · 14. Februar 2012

nur 3 stunden schule gehabt !
YEAH

Coban · 14. Februar 2012

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 · 14. Februar 2012

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

Headnut · 14. Februar 2012

Das Erkennst du jetzt erst?

Awesome · 14. Februar 2012

css mal wieder installiert und bisschen surfen ♥

Teilen