Warum geht dieser VBA-Code nicht?

Kann man keine If-Anweisungen in If-Anweisungen packen oder wieso geht der Code nicht?

Als Fehlermeldung kommt "Else ohne If" und das Else if ganz links am Rand wird markiert.

Bild zum Beitrag

11.01.2023, 23:56

Sub grapheneigenschaften01() 


Dim dbl_x1 As Double 
Dim dbl_x2 As Double 
Dim dbl_x3 As Double 
Dim dbl_x4 As Double 

dbl_x1 = InputBox("Geben Sie den x-Wert an: ") 'Einlesen des x-Wertes der Funktion
dbl_x2 = InputBox("Geben Sie den Funktionswert f(" & dbl_x1 & ") an: ") 'Einlesen des Funktionswertes einer Funktion


MsgBox ("Der Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") liegt auf dem Graphen") 'Ausgabe einer Nachricht, welche einen Punkt auf dem Graphen ausgibt


dbl_x3 = InputBox("Geben Sie den Wert der 1. Ableitung f'(" & dbl_x1 & ") an") ' Einlesen des Wertes der 1. Ableitung


If dbl_x3 < 0 Then 
    MsgBox ("In dem Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist der Graph streng monoton fallend") 
    dbl_x4 = InputBox("Geben Sie den Wert der 2. Ableitung f''(" & dbl_x1 & ") an: ") 


        If dbl_x4 < 0 Then MsgBox ("In dem Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist der Graph rechtsgekrümmt") 
        ElseIf dbl_x4 = 0 Then MsgBox ("Der Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist ein Wendepunkt") 
        Else 
        MsgBox ("In dem Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist der Graph linksgekrümmt") 
        End If 


ElseIf dbl_x3 = 0 Then 
    MsgBox ("Der Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist ein Extremwert") 
    dbl_x4 = InputBox("Geben Sie den Wert der 2. Ableitung f''(" & dbl_x1 & ") an: ") 


        If dbl_x4 < 0 Then MsgBox ("Der Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist ein Hochpunkt und der Graph ist an dieser Stelle rechtsgekrümmt") 
        ElseIf dbl_x4 = 0 Then MsgBox ("Der Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist ein Terrassenpunkt") 
        Else 
        MsgBox ("Der Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist ein Tiefpunkt und der Graph ist an dieser Stelle linksgekrümmt") 
        End If 
        
Else 
    MsgBox ("In dem Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist der Graph streng monoton steigend") 
    dbl_x4 = InputBox("Geben Sie den Wert der 2. Ableitung f''(" & dbl_x1 & ") an: ") 
    
        If dbl_x4 < 0 Then MsgBox ("In dem Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist der Graph rechtsgekrümmt") 
        ElseIf dbl_x4 = 0 Then MsgBox ("Der Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist ein Wendepunkt") 
        Else 
        MsgBox ("In dem Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist der Graph linksgekrümmt") 
        End If
End If 
        
End Sub

Kiboman

11.01.2023, 23:48

Füge das doch bitte nochmal als Code ein, keiner hat lust das abzutippen.

leon1231223423

Fragesteller

11.01.2023, 23:58

Wollte ich vorhin machen. Das sah dann aber so komisch zusammengequetscht aus. Aber anscheinend ist das nur vor dem Senden so. Jetzt passts ja :)

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

daCypher

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Programmiersprache

12.01.2023, 09:47

Wenn ich mich noch richtig erinnere unterscheidet VBA, ob du das ganze if in einer Zeile machst, oder über mehrere Zeilen machst.

Also wenn du z.B. das hier machst:

If dbl_x4 < 0 Then MsgBox ("In dem Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist der Graph rechtsgekrümmt")

dann denkt VBA, dass du das gesamte If in einer Zeile zusammenfasst und und ordnet das ElseIf dann dem übergeordneten If zu.

Also kurz gesagt: Probier mal, ob es funktioniert, wenn du grundsätzlich nach einem "Then" eine neue Zeile anfängst.

leon1231223423

Fragesteller

14.01.2023, 18:49

Das habe ich vorgestern auch noch ausprobiert und es hat funktioniert. Trotzdem danke für deine Antwort, denn sie war goldrichtig.

evtldocha

12.01.2023, 00:45

       MsgBox ("Der Punkt P(" & dbl_x1 & "|" & dbl_x2 & ") ist ein Tiefpunkt und der Graph ist an dieser Stelle linksgekrümmt") 
        End If 
        
Else

Du machst das erste "IF" mit "End If" vor dem Else zu (würde ich jetzt mal auf Anhieb tippen).

Leonmensch

12.01.2023, 07:10

Aber warum? Das macht doch kein Sinn, weil ich ja ein neues if aufgemacht habe ^^

Ähnliche Fragen

C++ if else wird nicht ausgeführt?

Wenn eine Bedingung True ist werden die anderen nicht ausgeführt oder beachtet. Ich habe es auch ohne else versucht aber dann kriege ich mehrere Zeilen ausgegeben. Es sollen 2 Datumsangaben miteinander verglichen werden und es darf nur if else benutzt werden.
Code:

https://pastebin.com/vMcLB56B

...zur Frage

Access Code VBA?

Hey, ich habe ein Textfeld mit dem Namen: txtSuchen , welches folgendes Ereignis, bei Veränderung hat:

Private Sub txtSuchen_Change()

If Me.Dirty Then

DoCmd.RunCommand acCmdSaveRecord

End If

Me.RecordsetClone.FindFirst ("[Produkt] Like '" & Me!txtSuchen.Text & "*'")

If Me.RecordsetClone.NoMatch Then

Me!txtSuchen.SelStart = Len("" & Me!txtSuchen.Text)

Exit Sub

Else

Me.Bookmark = Me.RecordsetClone.Bookmark

Me!txtSuchen.SetFocus

Me!txtSuchen.SelStart = Len("" & Me!txtSuchen.Text)

End If

End Sub

Das Suchfeld ist in einem Formular Namens Hauptmenü, soll aber die Aktion in einem Unterformular Namens InstallationskeysFormular ausführen, der Code funktioniert leider nur dann, wenn man etwas im gleichen Formular suchen möchte, kann mir jemand sagen, wie ich den Code umschreiben müsste, dass er die Aktion in dem Unterformular ausführt?

...zur Frage

VBA ListBox abfragen?

Hallo Leute,

ich habe ein VBA Userform mit einer Listbox und möchte den ausgewählten Eintrag abfragen für eine If-Verzweigung.

Der Code soll folgendes tun:

Wenn z.B der erste Beitrag der Liste ausgewählt, dann ...

Habe es bereits mit If Listbox.Selected(0) = True Then .... versucht, geht aber nicht.

Hat jemand Vorschläge?

Danke im voraus!

Grüße

...zur Frage

Was macht der switch befehl und was sind die vorteile gegen über if else?

4 Vorteile wären toll ich weiß nur das der Code übersichtlicher wird :)

...zur Frage

IF Anweisung mehrere Bedingungen (java)?

Hi, ich würde gerne in die drei If-Anweisungen mehrere Bedingungen packen, aber irgendwie klappt das nicht so richtig, jemand Ideen?

Das Ziel soll sein, die größte aus 3 eingegeben Zahlen zu ermitteln

...zur Frage

Was ist mit diesem Code gemeint?

Was beschreibt der Code?

int z = x % y;
int ergebnis;

if (z != 0)
{
  x -= z;
  ergebnis = x / y;
}
else
{
  ergebnis = x / y;
}

...zur Frage

Fehler im Code?

Hey Leute,

Mir wird im Code andauern der gleiche Fehler rausgeschmissen, kann mir da wer helfen?

Hier der Code:

import java.util.Random;

public class aufgabe14 {
    public static void main(String[] args) {
        Random rand = new Random();
        int target = rand.nextInt(100) + 1;
        int count = 0;
        int maxTries = 10;
        int guess;
        System.out.println("Rate eine Nummer zwischen 1 und 100!");

        do {
            guess = Integer.parseInt(System.console().readLine());
            count++;
            if (guess > target) {
                System.out.println("Du hast zu hoch geraten!");
            } else if (guess < target) {
                System.out.println("Du hast zu niedrig geraten!");
            }
        } while (guess != target && count < maxTries);

        if (guess == target) {
            System.out.println("Du hast die nummer in " + count + " versuchen erraten!");
        } else {
            System.out.println("Du hast versagt die nummer in  " + maxTries + " versuche zu erraten!");
        }
    }
}

...zur Frage

Excel VBA: Tabellenblätter bei gewissen Zellenwert ausblenden?

Hallo Zusammen,

Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

Hier der Code im Worksheet "DieseArbeitsmappe":

Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

Vielen Dank, Michael

...zur Frage

Findet ihr den Taschenrechner gut?

Hey ich habe gerade einfach spontan nach paar Videos Java lernen zum ersten mal mein eigenes Programm erstellen wollen und hab mal versucht einen Taschenrechner der + - / * ausführen kann zu machen, findet ihr den Code ok?

import java.util.Scanner;
public class Calc {
    public static void main (String[] args){
        Scanner scan = new Scanner(System.in);
        int zahl;
        int operation;
        int zahl2;
        int ergebnis = 0;
        int wiederholung = 1;

        while (wiederholung == 1) {

            System.out.println("Tippen sie eine Zahl ein");
            zahl = scan.nextInt();
            System.out.println("Welche Operation möchten sie durchführen? - (0) + (1) / (2) * (3)");
            operation = scan.nextInt();
            if (operation == 0) {
                System.out.println("Mit welcher Zahl möchten sie subtrahieren?");
            } else if (operation == 1) {
                System.out.println("Mit welcher Zahl möchten sie addieren?");
            } else if (operation == 2) {
                System.out.println("Mit welcher Zahl möchten sie dividieren?");
            } else if (operation == 3) {
                System.out.println("Mit welcher Zahl möchten sie multiplizieren?");
            }
            zahl2 = scan.nextInt();
            if (operation == 0) {
                ergebnis = zahl - zahl2;
            } else if (operation == 1) {
                ergebnis = zahl + zahl2;
            } else if (operation == 2) {
                ergebnis = zahl / zahl2;
            } else if (operation == 3) {
                ergebnis = zahl * zahl2;
            }
            System.out.println("Hier ist ihr Ergebnis: " + ergebnis + " ...möchten sie weitere Berechnungen durchführen? ja (1) nein (2)");
            wiederholung = scan.nextInt();
            if (wiederholung == 2) {
                System.out.println("Programm wird beendet");
                break;
            } else if (wiederholung == 1) {
                System.out.println("Super!");
            }
        }

...zur Frage

if-else if wird in map Funktion beides ausgeführt - warum?

Hallo,

in React (NextJS) habe ich eine einfache "if-else if" Anweisung. Eigentlich sollte ja die "else if" Anweisung falls die if Anweisung "true" ist garnicht ausgeführt werden. Aber egal wie ich die Bedingungen umschreibe, es werden immer beide Anweisungen ausgeführt... Kann mir hierbei jemand weiterhelfen?

Hier ist der Code der Komponente:

und das sind die dazugehörigen console.logs:

MFG

...zur Frage

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

...zur Frage

Python Durch eine If Abfrage eine Try except Methode Abbrechen?

Guten Tag oder auch Guten Abend,

Ich habe folgendes Problem, Ich habe in einer try except Methode, eine If-Abfrage drin, alles soweit gut, nun möchte das wenn die If-Abfrage Else ist, das meine try except Abfrage abgebrochen wird. Wie könnte ich das Anstellen?

Code:

Bei print("Abbruch") Soll die Try Methode abgebrochen werden.

...zur Frage

VBA If else then?

Hallo!

Ich möchte ein Tool in VBA erstellen. Basis bildet eine Tabelle, in der Teile gelistet und deren Zustand eingetragen werden sollen. Entsprechend dem Zustand ergibt sich ein Wert von 5EUR doer 10EUR. Soweit habe ich es in VBA schon regeln können, nur soll die Liste beliebig lang werden und ich möchte nicht für die kommenden 300+ Zeilen die If-Else Formel immer aufs neue tippen. Gibt es eine Vereinfachung dafür?

Danke Im Voraus!

...zur Frage

Wie kann ich bei Python die Nullstellen einer Funktion nur dann ausgeben, wenn sie reell sind?

Hallo, muss gerade die oben beschriebene Aufgabe im Anfängerkurs Python lösen. Meine Idee war zu prüfen von welchem Typ die Nullstellen sind und sie dann mit if-else Anweisungen entsprechend ausgeben zu lassen. Kann mir jemand sagen, wo mein Fehler ist?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen