Toptorials Tutorials WeblogoLogobild kleinLogobild kleinToptorials Tutorials Weblogo
  • ALLE THEMEN IM ÜBERBLICK
  • YouTube
  • INFOS
    • SITEMAP
    • ÜBER TOPTORIALS
✕
            No results See all results

            If Then Else in Excel VBA

            • Startseite
            • Tutorials Microsoft Office Excel Excel VBA
            • If Then Else in Excel VBA

            If Then Else in Excel VBA

            In diesem Tutorial zeige ich Euch wie Ihr die If then else Anweisung ausfĂŒhren könnt. Das bedeutet soviel wie Wenn Dann Ansonsten. Damit könnt Ihr sogenannte Weichen in Eurem Programmcode schreiben. In der If Then Else Anweisung muss eine von Euch festgelegte Bedingung erfĂŒllt werden damit der nachfolgende Code ausgefĂŒhrt werden kann. Sollte er nicht erfĂŒllt werden, wird die Bedingung einfach ĂŒbersprungen. Mit Else If könnt Ihr alternative Bedingungen hinzufĂŒgen. Der Case Bereich, falls Ihr den verwendet, wird abgearbeitet wenn keine Bedingung zuvor erfĂŒllt wurde.

            Das Startvideo der VBA Tutorial Serie auf YouTube findet Ihr hier

            Die Playlist meiner VBA Tutorial Serie auf YouTube findet Ihr hier

            Achtung:

            Benutzt zum Üben eine separate Tabelle fĂŒr Testzwecke oder eine Kopie des Originals damit Euch keine Daten verloren gehen.

            Video zu diesem Tutorial:

             

            Beispielscript mit der If Then Else Anweisung in Excel VBA

            Im nachfolgenden sehr einfachen Script zeige ich Euch wie Ihr die If Then Else Anweisung innerhalb einer Zeile ausfĂŒhren könnt.
            Nur wenn in Zelle A1 der Wert 1 eingetragen wurde wĂŒrde nach ausfĂŒhren des Codes in Zelle B1 die ausgeschriebene Eins erscheinen.

            Sub IfThenElseTutorial1()
            
                If Range("A1").Value = 1 Then Range("B1").Value = "Eins"
            
            End Sub

            Beispielscript mit der If Then Else ElseIf

            Im zweiten Beispiel verwende ich außer der normalen If Anweisung mit nur einer Bedingung auch die Möglichkeit alternative Bedingungen durch ElseIf.
            Wenn in Zelle A1 eine 1 steht wird der erste If Block ausgefĂŒhrt und es erscheint die ausgeschriebene Eins in Zelle B1. Sollte das nicht der Fall sein wird ĂŒberprĂŒft ob eines der ElseIf Bedinungen erfĂŒllt wird. Wichtig ist zu verstehen dass in diesem Beispiel nur ein einziger Block ausgefĂŒhrt wird. Sollten alle Bedingungen nicht zutreffen wird zumindest der Else Block ausgefĂŒhrt.

            Sub IfThenElseTutorial2()
            
                If Range("A1").Value = 1 Then
                    Range("B1").Value = "Eins"
                    
                ElseIf Range("A1").Value = 2 Then
                    Range("B1").Value = "Zwei"
                    
                 ElseIf Range("A1").Value = 3 Then
                    Range("B1").Value = "Drei"
                    
                Else
                    Range("B1").Value = "Nicht Eins, Zwei, Drei"
                    
                End If
            
            End Sub

            Beispielscript mit verschachteltem If Then Else Block

            In diesem Beispiel habe ich noch zusĂ€tzlich eine If Anweisung in einen ElseIf Block eingebaut, um Euch zu zeigen, dass Ihr so etwas auch verschachteln könnt. NatĂŒrlich lassen sich als Bedingung auch weitere Operatoren benutzen.

            Sub IfThenElseTutorial3()
            
                If Range("A1").Value < 10 Then
                    Range("B1").Value = "Kleiner Zehn"
                    
                ElseIf Range("A1").Value < 100 Then
                    Range("B1").Value = "Kleiner Hundert"
                    
                    If Range("A1").Value = 50 Then
                        Range("B2").Value = "Genau FĂŒnfzig"
                    End If
                    
                 ElseIf Range("A1").Value < 1000 Then
                    Range("B1").Value = "Kleiner Tausend"
                    
                Else
                    Range("B1").Value = "GrĂ¶ĂŸer gleich Tausend"
                    
                End If
                
            End Sub

             

            Das könnte Dich auch interessieren

            • Arbeitsmappe erstellen und speichern in Excel VBA
            • Auf Zellen zugreifen mit Range in Excel VBA
            • Cells und Range kombiniert in Excel VBA
            • Do Loop Schleife in Excel VBA
            • Entwicklertools anzeigen (Microsoft Excel)
            • For Each Schleife in Excel VBA
            • GefĂŒllte Zellen markieren mit und ohne LĂŒcken in Excel VBA
            • Hello World mit Excel VBA programmieren

            Schreibe einen Kommentar Antworten abbrechen

            Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert

            Mehr von mir ĂŒber Excel

            • Übersichts-Liste der Microsoft Excel Tutorials
            • Tutorials ĂŒber Microsoft Excel
            • Excel
            • Excel VBA
            • Alle meine Videos auf YouTube
            • Tutorial Wunsch Liste

            Neue BeitrÀge

            • REGAUS RegulĂ€re AusdrĂŒcke mit vielen Beispielen mit LibreOffice Calc
            • REGEXREPLACE RegulĂ€re AusdrĂŒcke mit vielen Beispielen mit Google Tabellen
            • REGEXEXTRACT RegulĂ€re AusdrĂŒcke mit vielen Beispielen mit Google Tabellen
            • REGEXMATCH RegulĂ€re AusdrĂŒcke mit vielen Beispielen mit Google Tabellen
            • REGEXERSETZEN RegulĂ€re AusdrĂŒcke mit vielen Beispielen mit Excel 365

            Neue Kommentare

            • Erdmann bei Wochentag von einem Datum ausgeben (LibreOffice Calc)
            • Chris bei Tutorial Wunsch Liste
            • Sabine Kniffka bei Tutorial Wunsch Liste
            • Chris bei Nur sichtbare Zellen in LibreOffice Calc summieren
            • Armin bei Tutorial Wunsch Liste

            Schlagwörter – Wolke

            anfĂ€nger Anleitung anpassen ausrechnen auswahlliste Bedingte Formatierung berechnen Calc Datum Download Dropdownliste einfĂŒgen entfernen erstellen Excel FreeOffice Funktion google hinzufĂŒgen Jahresplan Kalender Lernvideo LibreOffice löschen Makro markieren Microsoft OpenOffice PlanMaker programmierung script spreadsheets Sverweis Tabelle tabellen Tutorial VBA Video Wenn Wenn Funktion Word wps spreadsheets Zeilen Zelle Zellen
            KONTAKT   IMPRESSUM    DATENSCHUTZERKLÄRUNG    HAFTUNGSAUSSCHLUSS (Disclaimer)   © copyright TOPTORIALS