Jump to content

Empfohlene Beiträge

Hi!

ich mach grad ein Struktogramm zum üben, allerdings steh ich vor nem problem:

Else-If - wie sieht das in nem struktogramm aus?!

die anweisung wäre in etwa so:


For Bedingung

   If Bedinung

      Anweisung 1 und 2

   Else

      If Bedinung

         If Bedinung

            If Bedinung

               Anweisung 1 und 2

            Else

               Bedinung 3 und 4

            End If

         End If

      ElseIf Bedingung

         Anweisung

      ElseIf Bedingung

         Anweisung 1 und 2

      End If

   End If

Next For   

Naja und unten bei den Else-If komm ich nimmer weiter ;)

Verwende Structorizer.

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

und nenn ich den dann auch else-if oder wieder nur if?

//edit:

vielleicht kann das mal einer durchsehen auf richtigkeit.

geschrieben in vba für excel. das makro trägt einen wert "H" in leere zellen ein, die tabelle ist ein wochenplan. samstag und sonntag sind grau markiert, hier keine eintragung. feiertage sind ebenfalls grau, auch keine eintragung. die zeilen mit wert a, b, c oder d in spalte 3 erhalten ebenfalls keinen wert. nach einer kalenderwoche wird eine zeile nach unten gesprungen. ist die letzte zeile gefüllt und das blattende noch nicht erreicht, wird oben wieder begonnen.

quelltext:


Public Sub fuellen()

On Error GoTo Err_Handler


Dim lngCalc As Long

Dim i, zeile, spalte As Integer


lngCalc = Application.Calculation

Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False

Application.EnableEvents = False


zeile = ActiveCell.Row

        For spalte = ActiveCell.Column To Cells(10, Columns.Count).End(xlToLeft).Column

            If zeile = Bereich_Ende + 1 Then

                zeile = Bereich_Anfang

                spalte = spalte - 1

            Else

                If Cells(zeile, spalte).Interior.ColorIndex = 2 Then

                    If Cells(zeile, spalte).Value = "" Then

                        If Cells(zeile, 3).Value = "a" Or Cells(zeile, 3).Value = "b" Or Cells(zeile, 3).Value = "c" Or Cells(zeile, 3).Value = "d" Then

                            zeile = zeile + 1

                            spalte = spalte - 1

                        Else

                            Cells(zeile, spalte).Value = "H"

                            Cells(zeile, spalte).Interior.ColorIndex = 41

                            'zeile = zeile + 1     ' Wenn der Hut TÄGLICH wechseln soll, einfach diese Zeile aktivieren

                        End If

                    End If

                ElseIf Weekday(Cells(10, spalte).Value) = vbSunday Then

                    zeile = zeile + 1

                ElseIf Cells(zeile, spalte).Interior.ColorIndex <> 2 And Cells(zeile, spalte).Interior.ColorIndex <> 15 Then

                    zeile = zeile + 1

                    spalte = spalte - 1

                End If

            End If

        Next

Application.Calculation = lngCalc

Application.EnableEvents = True

Application.ScreenUpdating = True

Err_Handler:

   If Err.Number Then MsgBox Err.Description, vbCritical, Err.Number

End Sub

mein diagramm dazu:

subhutfuellenus2.jpg

bearbeitet von Cleriker

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

1.geschachteltes if

if(...)

{

...

}else (){

if(){

....

}

}

2. if else

if(...)

{

...

}else if (){

...

}

diese beiden if kommen zu dem gleichen ergebnis ein else if ist nur ein verküsrzte schreib weise von einem geschachtelten if else.

also muss im Struktogramm das if im else fall sein.

mfg

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Clear editor

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.


Fachinformatiker.de, 2019 SE Internet Services

fidelogo_small.png

if_icon-6-mail-envelope-closed_314900.pnSchicken Sie uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App


Get it on Google Play

Kontakt

Hier werben?
Oder senden Sie eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...

Wichtige Information

Fachinformatiker.de verwendet Cookies. Mehr dazu in unserer Datenschutzerklärung