|
Hey Leute, habe heute in einer Vorlesung diese Aufgabe hier gestellt bekommen. Ich bin leider total ratlos, wäre suppi wenn mir jemand weiterhelfen kann :* kussi
Aufgabenstellung:
In der Datei S12_Übung_03.xlsm ist ein Makro hinterlegt, das fehlerhaft ist und nicht durchlaufen werden kann. Korrigieren Sie alle Fehler, sodass das Makro sowohl syntaktisch als auch inhaltlich (Es soll ein Countdown dargestellt werden) korrekt ausgeführt werden kann. Kopieren Sie hierzu die Sub-Routine und korrigieren Sie das Makro in der 2. Sub-Routine. Kennzeichnen und erklären Sie in der 1. Sub-Routine die falschen Codezeilen mit einem Kommentar wie dem folgenden: '!!!! Die Variable ist falsch geschrieben, deswegen kann man sie nicht nutzen
Sub:
Sub Finde_den_Fehler_()
Dim Start As Integer
Dim Zähler As Byte
Set Start = Cells(A1)
Do Until Start = ""
Select Case Start
Case "Heute"
Start.Font.Color = RGB(255, 0, 0)
Case "Morgen", "Heute"
Start.Font.Color = RBG(0, 255, 0)
Case Else
Start.Interior.Pattern = Nothing
End Select
Set Start.Value = Start.Offset(1, 0)
Loop Until Start.Offset(1, 0) = ""
For Zähler = 0 To 300 Step -1
'Zahl ausgeben
Start.Value = Zähler
'Angabe ob gerade oder ungerade
If Zähler Mod 2 = 0 Then
Start.Offset(0, 1).Value = "ungerade"
Else
Start.Offset(0, 1).Val = "gerade"
End If
Next Zähler
End Sub
|