Hallo Leute,
ich habe eine Tabelle mit den Spaltenüberschriften A-D unter a steht 1,2,4,2,1 bei B 2,2,2,3,3 bei C a,a,a,b,b und bei D 10,20,10,5,4 jede zahl steht in einer zelle die tabelle beginnt bei C3.
Das Ergebnis von folgenden Programm ist 14.
Function dr1()
s = 2
k = 4
Do While Not s = 0
If Cells(k, 4) = "" Then
s = 0
MsgBox c1
Else
If s = 2 Then
a1 = Cells(k, 5)
s = 1
End If
If Not Cells(k, 5) = a1 Then
MsgBox c1
c1 = 0
a1 = Cells(k, 5)
End If
h = 0
For i = 4 To 3 Step -1
If Cells(k, i) > h Then
h = Cells(k, i)
End If
Next i
c1 = c1 + h
End If
k = k + 1
Loop
End Function
Kann mir vllt. jmd erklären was die schleifen zu bedeuten haben??? ich sehe da 3 Schleifen eine Do While (was bedeutet hier das not??? das die schleife solange läuft bis s=0 ist??), dann so n If Not Teil das ich gar nicht verstehe und dann noch eine FOR schleife mit Zählbedingung..
Wenn mir die obere Funktion wer verständlich und ausführlich erklren kann wäre ich sehr dankbar da ich bald ne Klausur schreiben muss in der gefragt wird was solche Programme asgeben. Komme hier auch nur auf 14 da ich die Tabelle und das Programm ganz einfach in excel eingegebne habe und ausprobiert habe was rauskommt. Leider kann mir keiner meiner Kommilitonene helfen die sind alle im Praxissemester das ich schon habe....
Vielen Dank im Voraus |