Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.01.2025 15:43:28
Formel per Makro in Zelle schreiben - Dezimalzahl-Problem?
13.01.2025 15:00:57
Von Userform richtig eintragen lassen
13.01.2025 14:43:38
Datei vom Explorer aktivieren und
13.01.2025 11:57:00
Dropdown Menüs farblich hervorheben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verschachtelte IF-Anweisungen

Kategorie
Fallunterscheidung
Tags
#bedingungen #case-umschaltung #if-anweisungen
Relevante Fragen
Anzeige
Verschachtelte IF-Anweisungen
Nicole
Hallo alle zusammen,
meine IFs funktionieren, solange ich das ELSE auskommentiert habe, da alle hintereinander stehen. Stelle ich das ELSE mit herein, ist alles rot!!. Wie verschachtele ich richtig, so dass das ELSE nur zum Tragen kommt, falls keine der anderen IFs ein Ergebnis liefert?
For n = 0 To Zeilen - 1
Set Z1 = Range("B7").Offset(n, 10)
Set Z2 = Range("B7").Offset(n, 11)
Set Z3 = Range("B7").Offset(n, 7)
Set Z4 = Range("B7").Offset(n, 9)
If Z2 = "" Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbWhite
End If
If Z3 = "" Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbWhite
End If
If Z3 = "A" Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbWhite
End If
If Z3 = "V" And Format(Z1, "yyyyMM") = Z2 Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbGreen
End If
If Z3 = "G" And Format(Z4, "yyyyMM") = Z2 Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbGreen
' Else
' Z2.Offset(0, 1).Value = "nicht OK"
' Z2.Offset(0, 1).Interior.Color = vbRed
End If
Next n
Vielen Dank für die Hilfe im voraus.
Nicole
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Verschachtelte IF-Anweisungen
15.12.2009 11:40:44
Philipp
So vielleicht
Sub test()
For n = 0 To Zeilen - 1
Set Z1 = Range("B7").Offset(n, 10)
Set Z2 = Range("B7").Offset(n, 11)
Set Z3 = Range("B7").Offset(n, 7)
Set Z4 = Range("B7").Offset(n, 9)
If Z2 = "" Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbWhite
Else
Z2.Offset(0, 1).Value = "nicht OK"
Z2.Offset(0, 1).Interior.Color = vbRed
End If
Select Case Z3
Case ""
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbWhite
Case "A"
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbWhite
Case "G"
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbGreen
Case Else
Z2.Offset(0, 1).Value = "nicht OK"
Z2.Offset(0, 1).Interior.Color = vbRed
End Select
Next n
End Sub

Anzeige
AW: Verschachtelte IF-Anweisungen
15.12.2009 14:15:25
Nicole
hab mir auch schon gedacht, mit CASE zu arbeiten, aber was mach ich mit den 2fach-Bedingungen? In CASE kann ich ja nicht mit AND arbeiten oder?
Ich brauche ja als CASE:
If Z3 = "V" And Format(Z1, "yyyyMM") = Z2 Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbGreen
End If
Die Zelle muss also ein V enthalten und das Datum einer anderen Zelle muss gleich dem Datum einer 3. Zelle sein. Wie geht das?
Anzeige
AW: Verschachtelte IF-Anweisungen
15.12.2009 14:15:25
Nicole
hab mir auch schon gedacht, mit CASE zu arbeiten, aber was mach ich mit den 2fach-Bedingungen? In CASE kann ich ja nicht mit AND arbeiten oder?
Ich brauche ja als CASE:
If Z3 = "V" And Format(Z1, "yyyyMM") = Z2 Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbGreen
End If
Die Zelle muss also ein V enthalten und das Datum einer anderen Zelle muss gleich dem Datum einer 3. Zelle sein. Wie geht das?
Anzeige
einfach nach CASE das IF
15.12.2009 14:25:55
Björn
Hallo Nicole,
Du baust das Teil mit CASE auf und nach CASE = "V" bringst Du in der nächsten Zeile Deine If-Bedingung.
Müsste in etwas so aussehen (nicht getestet!!!):

Case = "V"
If Format(Z1, "yyyyMM") = Z2 Then
Z2.Offset(0, 1).Value = "OK"
Z2.Offset(0, 1).Interior.Color = vbGreen
End If
Gruß
Björn B.
Anzeige
AW: einfach nach CASE das IF
15.12.2009 15:48:20
Nicole
super, danke, funktioniert. Für spätere Interessenten hier der Code (ein wenig abgespeckt). Abgefragt wird, was in einer Spalte Z3 steht und zusätzlich werden noch zwei Datumswerte miteinander verglichen, von dem einer ein Textformat hat:
Dim bereich As Range, Z1 As Range, Z2 As Range
Dim Zeilen As Long, n As Long
Set bereich = Range("B7").CurrentRegion
Zeilen = bereich.Rows.Count
For n = 0 To Zeilen - 1
Set Z1 = Range("B7").Offset(n, 10) 'Datum 1
Set Z2 = Range("B7").Offset(n, 11) 'Datum als Text
Set Z3 = Range("B7").Offset(n, 7) 'Abgleichszelle z.B. Sportarten
Select Case Z3
Case ""
Z2.Offset(0, 1).Value = "keine Sportart vorhanden"
Z2.Offset(0, 1).Interior.Color = vbWhite
Case "Squash"
If Z2 = "" Then
Z2.Offset(0, 1).Value = "kein Textdatum"
Z2.Offset(0, 1).Interior.Color = vbWhite
Else
Z2.Offset(0, 1).Value = "Squash ist da"
Z2.Offset(0, 1).Interior.Color = vbGreen
End If
Case "Laufen"
If Z2 = "" Then
Z2.Offset(0, 1).Value = "kein Textdatum"
Z2.Offset(0, 1).Interior.Color = vbWhite
Else
If Format(Z1, "yyyyMM") = Z2 Then
Z2.Offset(0, 1).Value = "Laufen ist da"
Z2.Offset(0, 1).Interior.Color = vbGreen
Else
Z2.Offset(0, 1).Value = "die Datumswerte stimmen nicht überein"
Z2.Offset(0, 1).Interior.Color = vbRed
End If
End If
Case Else
Z2.Offset(0, 1).Value = "nicht OK"
Z2.Offset(0, 1).Interior.Color = vbRed
End Select
Next n
Anzeige

Forumthreads zu verwandten Themen

VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Verschachtelte Schleife mit IF Anweisungen
Kalle

https://www.herber.de/bbs/user/58957.xls
Hallo,
wer kann mir bei folgendem Problem helfen? Da ich ein blutiger VBA-Anfänger bin, sind alle meine bisherigen Versuche bereits im Ansatz gescheitert. Daher bitte ich euch um eure Hilfe! Sollte jemand einen Programmcode schreiben, bitte ich...
01.02.2009 01:59:54
Thread-ID: 1045816
3 Beiträge
Anzeige
VBA Schleife für Sperranweisung
Marc

Hallo zusammen.
In meiner Tabelle A, B, C, D (à 10 Zeilen) soll die jeweiligeSpalte gesperrt werden wenn in der Überschrift ein X steht.
Das soll heißen:
Wenn A1 = X dann sperre A2:A10
Wenn A1 = "" dann lass A2:A10 entsperrt
https://www.herber.de/bbs/user/71912.xls
Mit d...
14.10.2010 11:57:03
Thread-ID: 1182382
3 Beiträge
VBA Code If Schleife
Dirk

Hallo Forum,
ich habe in einem Makro die Anweisung stehen ein Dateifenster zu öffnen:
"Application.Dialogs(xlDialogOpen).Show"
Jetzt möchte ich eine If-Schleife beschreiben, die eintreten soll, wenn jemand den Button "Abbrechen" in diesem Dialog drückt. Wie muss der Code für den Fal...
08.02.2013 13:53:23
Thread-ID: 1298353
4 Beiträge
VBA: Mehrere If-Abfragen über Schleife?
Jana

Hi zusammen!
Ich habe (mal wieder) ein Problem und hoffe, dass ihr mir weiterhelfen könnt.
Ich habe zwei Tabellen:
Die obere Tabelle zeigt die verfügbaren Kapazitäten von vier Lagern, in die Produkte eingelagert werden können.
In der unteren Tabelle sind Liefermengen von Produk...
02.05.2013 13:03:18
Thread-ID: 1311355
9 Beiträge
Anzeige
VBA - Dreifache Schleife
Markus

Hallo zusammen,
ich bin wieder an einem Punkt angekommen, wo man den Baum vor lauter Bäumen nicht mehr sieht, glaube ich zumindest. Vielleicht sieht ja jemand von euch den Baum bzw. das Brett vor meinen Kopf.
Folgende Ausgangslage.
Ich habe eine Tabelle in der immer wieder neue Date...
31.03.2014 12:58:22
Thread-ID: 1355534
4 Beiträge
VBA excel Makro If-Schleife kürzen,if>30,rot mark
braun

Guten Morgen,
ich habe folgende zwei Makros erstellt:
Sub Makro15_Differenzen_markieren() 'Markiert Zellen rot, wenn Differenzen > 30 ActiveSheet.Select 'Startzeile startzeile = 3 'Spalte die geprüft wird Spalte = 83 startzeile2 = 3 Letzte_Zeile = Range(Cells(65536, Spalte), Cells(65...
09.12.2014 11:38:16
Thread-ID: 1396958
7 Beiträge
VBA Hilfe bei If-Schleife, finde Fehler nicht
braun

ub Makro()
Application.ScreenUpdating = False
Sheets(1).Select
Sheets.Add After:=Sheets(1)
Sheets(2).Name = "test"
Sheets(1).Select
Rows("1:2").Select
Selection.Copy
Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste
Sheets(1).Select
'Startzeil...
10.12.2014 11:54:32
Thread-ID: 1397202
5 Beiträge
verschachtelte for-schleifen und End-Funktionen
dave

Hallo :)
ich habe folgendes Problem:
Mein Datensatz besteht aus X-Zeilen und pro Zeile gibt es eine variable Anzahl an Spalten die befuellt sind.
Nun moechte ich mit 2 for-schleifen jede zeile durchgehen und jeweils alle mit Text befuellten spalten in einer Zelle zusammenfassen....m...
21.06.2016 07:56:04
Thread-ID: 1500011
7 Beiträge
VBA If-Schleife nächste leere Zeile
Gesa

Hallo zusammen,
ich habe mir mit Hilfe dieses Forums schon viel beigebracht, aber aktuell komme ich nicht weiter.
Ich habe im Hintergrund ein userform programmiert und möchte nun das, wenn bestimmte Checkboxen/Textboxen/Optionsbutton ausgewählt/gefüllt sind, mein Wert aus dem Sheet "Pre...
28.01.2018 18:59:55
Thread-ID: 1605459
8 Beiträge
VBA Sumif(s) mehrere Spalten(Schleifen)
Andreas

Hallo liebes Forum,
ich habe eine VBA-Herausforderung die ich im Moment nicht lösen kann und die mein Makro ziemlich langsam macht.
Durch den Durchlauf mit Haltpunkten habe ich herausgefunden, dass folgende Codes mein Makro sehr langsamm macht.
Jetzt kommt die Schleife um für jede Z...
23.03.2018 09:53:20
Thread-ID: 1615942
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige