Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If mit 2 bedingungen

Forumthread: If mit 2 bedingungen

If mit 2 bedingungen
scrat
Hallo,
mit dem Code werden in den Spalten 5 bis 8 durch Doppelklick ein Kreuz gesetzt. Jetzt soll bei Doppelklick auf eine Zelle in Spalte 8 alle "X" in Spalte 5, 6 und 7 der selben Reihe auf "" gesetzt werden. Wenn nur in einer Spalte ein kreuz ist funktioniert das auch super. Da aber die Möglichkeit besteht, dass sowohl in Spalte 5 und 6 bzw.7 ein Kreuz ist, wollte ich die Bedingung so setzen dass auch dann beide "X" gelöscht werden, dann bekomm ich aber einen Fehler. Deswegen die Frage wie kann ich das lösen? Muss ich das mit einer Do...Until-Schleife machen oder geht es auh irgendwie mit meinem Ansatz?
Vielen Dank im Voraus für eure Hilfe
Gruß scrat
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row  8 Then Exit Sub
Cancel = True
Target.Value = IIf(Target.Value = "X", "", "X")
Select Case Target.Column
Case 5
If Target.Offset(RowOffset:=0, ColumnOffset:=3) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=3) = ""
End If
Case 6
If Target.Offset(RowOffset:=0, ColumnOffset:=1) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=1) = ""
ElseIf Target.Offset(RowOffset:=0, ColumnOffset:=2) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=2) = ""
End If
Case 7
If Target.Offset(RowOffset:=0, ColumnOffset:=-1) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=-1) = ""
ElseIf Target.Offset(RowOffset:=0, ColumnOffset:=1) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=1) = ""
End If
Case 8
If Target.Offset(RowOffset:=0, ColumnOffset:=-1) = "X" And Target.Offset(RowOffset:=0,  _
ColumnOffset:=-3) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=-1) = "" And Target.Offset(RowOffset:=0,  _
ColumnOffset:=-3) = ""
ElseIf Target.Offset(RowOffset:=0, ColumnOffset:=-3) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=-3) = ""
ElseIf Target.Offset(RowOffset:=0, ColumnOffset:=-2) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=-2) = ""
ElseIf Target.Offset(RowOffset:=0, ColumnOffset:=-1) = "X" Then
Target.Offset(RowOffset:=0, ColumnOffset:=-1) = ""
End If
End Select
End Sub

Anzeige

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

Betreff
Benutzer
Anzeige
AW: If mit 2 bedingungen
24.07.2012 08:34:13
hary
Hallo
Sollte dieser Code nicht ausreichen? 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column  8 Then Exit Sub
Cancel = True
Target.Value = IIf(Target.Value = "X", "", "X")
If Target.Column = 8 Then Cells(Target.Row, 5).Resize(, 3).Clear 'loescht Spalten E-F-G
End Sub

gruss hary
Anzeige
AW: Korrektur
24.07.2012 08:56:42
hary
Hallo nochmal
Hatte ich falsch verstanden. 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column  8 Then Exit Sub
Cancel = True
Target.Value = IIf(Target.Value = "X", "", "X")
Select Case Target.Column
Case 6
Target.Offset(, 1) = IIf(Target.Value = "X", "", "X")
Case 7
Target.Offset(, -1) = IIf(Target.Value = "X", "", "X")
Case 8
Cells(Target.Row, 5).Resize(, 3).Clear
Case Else
End Select
End Sub

gruss hary
Anzeige
AW: Korrektur
24.07.2012 09:47:23
scrat
Vielen Dank für die schnelle Hilfe hary
das es so einfach geht hab ich mit meinen bedingten VBA-Kenntnissen nicht gewusst. Hatte den Resize-Befehl bis jetzt leider nicht gekannt
Der Code ist super, habe lediglich das Clear noch in Value = "" umgeändert damit die restliche Formatierung der Zellen bestehen bleibt.
Gruß
scrat
Anzeige
AW: Korrektur
24.07.2012 09:57:57
hary
Hallo
Wenn das Format erhalten bleiben soll, kannst du auch ClearContents nehmen 

Cells(Target.Row, 5).Resize(, 3).ClearContents

gruss hary
AW: Korrektur
24.07.2012 10:46:44
scrat
Nochmals vielen Dank
;

Forumthreads zu verwandten Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
VBA: Schleife für variable Dia-Daten
Christian

Hallo,
bräuchte ein bischen VBA Unterstützung
Wie bekomme ich es hin, das mein Diagramm immer 20 Datensätze aus einer Liste schrittweise anzeigt.
Beginnt bei Datensatz 1-20, dann 2-21, 3-22 etc
Die Datenreihen im Dia soll sozusagen laufend dargestellt werden
Danke!!!!
08.09.2008 11:15:17
Thread-ID: 1008085
3 Beiträge
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
Anzeige
Makro - einfache VBA Schleife für Excel
pc-doc@k-u-p.de

Hallo VBA MAkro Profis,
programmiere fast nie in VBA mehr Web js, php/mysql,
und brauche eine einfache VBA Schleife für Excel:
Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
Spalte D Zeile für Zeile checken ob
ein Wert in der Zelle steht
und wenn...
20.10.2008 11:51:00
Thread-ID: 1017619
8 Beiträge
Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
VBA mit Schleife-Zählerproblem
ico

Hallo,
leider habe ich den vorherigen Beitrag schon geschlossen aber dennoch ein Problem.
Der nachfolgende Code funktioniert wunderbar, aber leider wird de Zähler n bei jedem durchgang um 2 erhöht....eigentlich sollte dieser doch immer um eins erhöht werden n=n+1 ?
Sub Test2() For...
12.02.2009 17:18:00
Thread-ID: 1050178
4 Beiträge
Anzeige
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge
Anzeige
ZÄHLENWENN() mit mehreren Bedingungen
Kasimir

Hallo Leute,
irgendwie komme ich nicht weiter. Ich möchte eine ZÄHLENWENN()-Funktion mit mehreren Bedingungen erstellen, scheitere aber kläglich daran. Ich möchte eigentlich nur Zählen, wenn in Spalte B und C und D etwas steht. Das Ganze von Zeile 20 bis 269.
Mal als Beispiel, in Zelle...
14.03.2009 14:22:53
Thread-ID: 1060148
4 Beiträge
VBA Schleifenzähler soll für Zelladressierung verw
ocellus

Die Felder einer Range (Matrix) sollen in eine Spalte auf einem neuen Tabellenblatt geschrieben werden.
Mit der Zählerschleife kann ich die richtigen Felder ansteuern
For i = 2 To 20
Cells(i + 1, 1).Select
ich möchte dann einen Verweis auf die Tabelle1!Zeile"1"und Spalte "i" ein...
05.05.2009 17:37:26
Thread-ID: 1073150
4 Beiträge
Wenn Und Funktion mit mehreren Bedingungen
Katja

Hallo Leute,
brauche bei einer Funktion Eure Hilfe.
Spalte F steht die Dienstart, z.B. VD, B, RB usw.
Spalte W steht die Stundenanzahl ohne Pausenabzug
Ich möchte jetzt folgendes berechnen:
WENN(UND(F2="VD";W2 kleiner als 6);W2;WENN(UND(F2="VD";W2 kleiner als 9);W2-0,5;W...
13.07.2009 13:55:40
Thread-ID: 1088213
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA If mit zwei Bedingungen in Excel

Schritt-für-Schritt-Anleitung

Um in Excel VBA einen Code zu erstellen, der mit mehreren Bedingungen arbeitet, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle das entsprechende Arbeitsblatt aus, in dem du den Code einfügen möchtest.

  3. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column <> 8 Then Exit Sub
   Cancel = True
   Target.Value = IIf(Target.Value = "X", "", "X")
   Cells(Target.Row, 5).Resize(, 3).ClearContents ' Löscht Werte in Spalten 5 bis 7
End Sub

  4. Passe bei Bedarf die Bedingungen an, um das gewünschte Verhalten zu erreichen. Du kannst auch die Select Case-Anweisung verwenden, um mehrere Bedingungen zu überprüfen.

Häufige Fehler und Lösungen

  • Fehler: "Typenkonflikt"

    • Lösung: Stelle sicher, dass die Zellen, auf die du zugreifst, die erwarteten Datentypen enthalten.

  • Fehler: "Zugriff auf ein Objekt, das nicht festgelegt wurde"

    • Lösung: Überprüfe, ob der Target-Bereich korrekt definiert ist und ob du auf die richtige Spalte zugreifst.

  • Fehler: Das Löschen funktioniert nicht

    • Lösung: Verwende ClearContents, um nur den Inhalt zu löschen, ohne die Formatierung zu beeinflussen.

Alternative Methoden

Neben der Verwendung von If-Anweisungen kannst du auch diese Methoden in VBA in Betracht ziehen:

  • Do...While-Schleifen: Diese eignen sich gut für komplexere Bedingungen, bei denen du mehrere Zellen in einer Schleife überprüfen möchtest.
  • For Each Schleifen: Nutze diese, wenn du mit einer Sammlung von Zellen arbeiten möchtest.

Beispiel für eine Do...While-Schleife:

Dim i As Integer
i = 5
Do While i <= 8
    If Cells(Target.Row, i).Value = "X" Then
        Cells(Target.Row, i).Value = ""
    End If
    i = i + 1
Loop

Praktische Beispiele

Hier ist ein weiteres Beispiel, das zeigt, wie du mit vba if mit zwei bedingungen arbeiten kannst:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 8 Then
        Cancel = True
        Target.Value = IIf(Target.Value = "X", "", "X")
        If Cells(Target.Row, 5).Value = "X" And Cells(Target.Row, 6).Value = "X" Then
            Cells(Target.Row, 5).Value = ""
            Cells(Target.Row, 6).Value = ""
        End If
    End If
End Sub

In diesem Beispiel wird überprüft, ob sowohl in Spalte 5 als auch in Spalte 6 ein "X" steht. Wenn dies der Fall ist, werden beide "X" gelöscht.

Tipps für Profis

  • Nutze Option Explicit am Anfang deiner Module, um sicherzustellen, dass alle Variablen deklariert werden.
  • Verwende aussagekräftige Namen für Variablen, sodass der Code leichter verständlich bleibt.
  • Kommentiere deinen Code regelmäßig, um die Lesbarkeit zu verbessern, insbesondere wenn mehrere Bedingungen überprüft werden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Bedingungen in einer If-Anweisung kombinieren?
Du kannst And oder Or verwenden, um mehrere Bedingungen zu kombinieren, z.B. If x = 1 And y = 2 Then.

2. Was ist der Unterschied zwischen Clear und ClearContents?
Clear entfernt sowohl den Inhalt als auch die Formatierung einer Zelle, während ClearContents nur den Inhalt löscht, die Formatierung jedoch beibehält.

3. Wie kann ich die Anzahl der Bedingungen erhöhen?
Du kannst eine Select Case-Anweisung verwenden, um mehrere Bedingungen effizient zu überprüfen, oder weitere If-Anweisungen schachteln.

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