Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler finden
 27.01.2023 11:40:40 Bitze127
NotSolved
27.01.2023 11:53:13 Gast64867
NotSolved
29.01.2023 10:31:48 Bitze127
NotSolved
29.01.2023 18:01:26 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Bitze127		 Datum:
27.01.2023 11:40:40		 Views:
788		 Rating:
     
Antwort:
  Ja
Thema:
Fehler finden

Hallo zusammen,

im nachfolgenden VBA-Code sind Fehler enthalten. Könnt ihr mir diese aufdecken?
Ist eine Abgabe für die Uni....

Sub

    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

 

Beste Grüße.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler finden
 27.01.2023 11:40:40 Bitze127
NotSolved
27.01.2023 11:53:13 Gast64867
NotSolved
29.01.2023 10:31:48 Bitze127
NotSolved
29.01.2023 18:01:26 ralf_b
NotSolved