Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

300 Forumthreads zu ähnlichen 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 - 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
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
Anzeige
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
2
7
5
5
3
3
1
3
3
1
3
9
3
7
12
5
2
6
4
3
3
13
6