Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Dann mit mehreren Bedingungen

Forumthread: Wenn Dann mit mehreren Bedingungen

Wenn Dann mit mehreren Bedingungen
04.09.2018 08:00:49
Armin
Moin zusammen,
Stück weit peinlich ist es mir ja schon.
Aber ich steh hier wie ein Ochs vorm Berg und komm nicht voran.
Ich möchte wenn zwei Bedingungen zutreffen das sich eine Eingabebox öffnet und ich was eintragen kann.
Irgendwie hab ich mir aber eine Endlosschleife gebaut. 

For i = 8 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 8) >= 1000 And Cells(i, 14)  201612 Then
sPSP = Application.InputBox(Prompt:="PSP Element eingeben", Title:="Abfrage", Type:=2)
ActiveCell.Value = sPSP
End If
Next i

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Dann mit mehreren Bedingungen
04.09.2018 09:14:35
ransi
Hallo,
Wie startest du die Prozedur?
Was soll passieren wenn beide Bedingungen=Wahr? Wenn dann immer die ActiveCell beschrieben werden soll machts wenig sinn...
Ransi
AW: Wenn Dann mit mehreren Bedingungen
04.09.2018 09:56:51
Armin
Moin Ransi,
also das Konstukt Drumherum sieht so aus 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrExit
Dim c As Range
Dim mPSP As String
Dim mCostCenter As Double
Const myCol = 10 'Eingabespalte anpassen!
mPSP = Worksheets("Hilfstabellen").Range("F2")
mCostCenter = Worksheets("Hilfstabellen").Range("E2")
If Not Intersect(Target, Me.Columns(myCol)) Is Nothing Then
Application.EnableEvents = False
For Each c In Intersect(Target, Me.Columns(myCol))
If IsEmpty(c.Offset(, 4)) And IsEmpty(c.Offset(, 7)) Then
c.Offset(, 4).Value = IIf(IsEmpty(c), Empty, mCostCenter)                                  _
'Kostenstelle setzen
If c.Offset(, -2) >= 1000 Then c.Offset(, 5).Value = IIf(IsEmpty(c), Empty, mPSP)          _
'PSP Element stzen
c.Offset(, 7).Value = IIf(IsEmpty(c), Empty, Application.UserName)                         _
'Bearbeiter setzen
End If
Next
End If
'For i = 8 To Cells(Rows.Count, 1).End(xlUp).Row
'If Cells(i, 8) >= 1000 And Cells(i, 14)  201612 Then
'    sPSP = Application.InputBox(Prompt:="PSP Element eingeben", Title:="Abfrage", Type:=2)
'    ActiveCell.Value = sPSP
'End If
'Next i
aufräumen:
Application.EnableEvents = True
Exit Sub
ErrExit:
'Fehlerbehandlung
Resume aufräumen
End Sub
Gruß aus Hamburg
Armin
Anzeige
AW: Wenn Dann mit mehreren Bedingungen
04.09.2018 19:05:04
Robert
Hallo Armin,
wenn die Bedingungen erfüllt sind und die Eingaben in der Messagebox in die aktive Zelle geschrieben wurden, musst Du die For-Schleife beenden, sonst läuft sie weiter bis zur letzten Zelle der Spalte A: 
For i = 8 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 8) >= 1000 And Cells(i, 14)  201612 Then
sPSP = Application.InputBox(Prompt:="PSP Element eingeben", Title:="Abfrage", Type:=2)
ActiveCell.Value = sPSP
Exit For
End If
Next i
Gruß
Robert
Anzeige
AW: Wenn Dann mit mehreren Bedingungen
05.09.2018 07:50:52
Armin
Moin Robert,
das hat es leider nicht so ganz gebracht.
Weil er ja diese Schleife immer wieder startet sobald ich eine Änderung im Blatt vornehme.
Ich glaub ich hab den Part komplett verkehrt eingehängt.
AW: Wenn Dann mit mehreren Bedingungen
05.09.2018 16:20:41
Robert
Hallo Armin,
wann soll die For-Schleife denn startendenn starten? Wenn die Änderung im Blatt in der Spalte J statt findet? Dann müsste der Teil innerhalb des If-Blocks 
If Not Intersect(Target, Me.Columns(myCol)) Is Nothing Then
End If

gesetzt werden.
Gruß
Robert
Anzeige
AW: Wenn Dann mit mehreren Bedingungen
06.09.2018 09:19:51
Armin
Moin Robert,
also wenn ich in (*i,J) etwas eintrage wird in (i,N) und (i,O) die mCostCenter und mPSP eingetragen und in (i,Q) den Namen des Eintragenden.
Wenn sich nun in (i,N) die Kostenstelle ändert und der eingetragene Wert in (i,H) >= 1000 € ist dann muss in (i,H) ein neues PSP eingetragen werden.
Gruß
Armin
*i = aktuelle Zeile
P. S.: Eine Datenbanklösung ist in Arbeit. Aber lange noch nicht Einsatzbereit.
Anzeige
AW: Wenn Dann mit mehreren Bedingungen
06.09.2018 10:47:09
Robert
Hallo Armin,
verstehe ich das richtig? In dem Change-Ereignis sollen 2 Schleifen laufen. Die erste, wenn Änderungen in der Spalte J eingegeben wurden. Dann werden in Deinem Makro die Spalten N (Kostenstelle), O (PSP) und Q (Namen) befüllt.
In einer zweiten Schleife soll dann geprüft werden, ob in der Spalte N die Kostenstelle geändert wird. Ich gehe mal davon aus, Änderungen aufgrund der ersten Schleife sollen dabei nicht berücksichtigt werden. Diese hätte man ja innerhalb der ersten Schleife abfangen können.
Für manuelle Änderungen in der Spalte N kannst Du anstelle Deiner auskommentierten For-Schleife folgende einfügen: 
'Bei Änderungen in Spalte N  neues PSP in Spalte H falls H >= 1000
If Not Intersect(Target, Me.Columns(14)) Is Nothing Then
For Each c In Intersect(Target, Me.Columns(14))
If c.Offset(, -6) >= 1000 Then  'falls  Spalte H größer/gleich 1000 MsgBox anzeigen
c.Offset(, -6) = Application.InputBox(Prompt:="PSP Element eingeben", Title:="Abfrage", _
Type:=2)
End If
Next
End If

Damit wird geprüft, ob in Spalte N was eingetragen wurde und in der Spalte H ein Wert größer/gleich 1000 steht. In dem Fall erscheint eine entsprechende Eingabemöglichkeit (Inputbox).
Gruß
Robert
Anzeige
AW: Wenn Dann mit mehreren Bedingungen
06.09.2018 11:35:13
Armin
Hi Robert,
Suuuuuuuper. Genauso.
Nur bei den Spalten bin wohl etwas durcheinander gekommen.
Bitte entschuldige aber das ist ja die kleinste Hürde.
'Bei Änderungen in Spalte N  neues PSP in Spalte O falls H >= 1000
If Not Intersect(Target, Me.Columns(14)) Is Nothing Then
For Each c In Intersect(Target, Me.Columns(14))
If c.Offset(, -6) >= 1000 Then 'falls  Spalte H größer/gleich 1000 MsgBox anzeigen
c.Offset(, 1) = Application.InputBox(Prompt:="PSP Element eingeben", Title:="Abfrage",  _
_
Type:=2)
End If
Next
End If

Danke Dir vielmals.
Gruß aus Hamburg
Armin
Anzeige
Gerne und Danke für die Rückmeldung (owT)
06.09.2018 14:01:27
Robert
AW: Wenn Dann mit mehreren Bedingungen
04.09.2018 10:36:49
Armin
.
;

Forumthreads zu verwandten Themen

WENN-Funktion: Zellen ausschneiden / abändern
Sascha

Hallöchen,
ich habe 2 Listen, in der linken stehen offene Beträge mit Rechnungsnummer und vorraussichtlichem Zahlungsdatum, in der rechten stehen die selben Daten, nur sollen Sie dort nur angezeigt werden, wenn Sie erledigt sind.
Zwischen beiden Zeilen sind Kontrollkästchen, die mit der...
27.12.2008 07:22:23
Thread-ID: 1035343
20 Beiträge
Wenn Funktion mit mehreren Argumenten
Britta

Hallo Zusammen,
im moment steh ich total aufm Schlauch, ich habe mit Funktionen lange nicht gearbeitet und bekomme es grade nicht so recht hin.
Also hier das Ding: ich habe eine Tabelle in der in B2 eine Eingabe erfolgt, diese kann nur 16 oder 18 sein, sollte es anders sein, soll ein F...
07.03.2009 09:41:28
Thread-ID: 1057522
11 Beiträge
Anzeige
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Leere Zellen löschen wenn
walli

Hallo Fachfrauen u. Männer,
ich möchte gern zellen löschen wenn beide Spalten Leerzellen sind.
Beispiel:
In an D5 u. E5 stehen zahlen
D6 u. E6 stehen keine zahlen dann bitte beide also d+E nnach oben schieben
siehe Beispiel Mappe:
https://www.herber.de/bbs/user/62422...
14.06.2009 14:16:37
Thread-ID: 1081380
24 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
Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
Summewenn über mehrere Werte
Jim

Hallo,
Ich bin neu hier :)
Sonntag Abend arbeiten zu müssen ist doch ziemlich anstregend, und ich komme einfach nicht weiter.
Es gibt 3 Spalten, eine mit Artikelnummern (A), eine mit Farben (B) und eine mit Mengen (C).
mit Hilfe von Summewenn bekomme ich in einer vierten Spalte...
15.11.2009 19:26:36
Thread-ID: 1117416
8 Beiträge
summieren und multiplizieren über mehrere Spalten | Herbers Excel-Forum
Murat
Hallo, komme net weiter....
wie schreibe ich folgende Formel
=summe(A1:H1)*Z1
=summe(A2:H2)*Z2
=summe(A3:H3)*Z3
...
...
...
=summe(A2379:H2379)*Z2379
in eine Zelle?
Danke im voraus
Gruß
murat
24.01.2010 15:15:44
Thread-ID: 1132459
3 Beiträge
SUMMEWENN über mehrere Tabellenblätter
Wolf

Hallo, kann ich denn die Formel SUMMEWENN über mehrere Tabellenblätter anwenden?
Der Eintrag der Daten, mit denen abgeglichen werden soll, sind über eine selbst zu erstellende Liste mittels eines Klappmenüs auszuwählen.
Damit es nicht allzu abstrakt ist: Es handelt sich um ein Raumbuch...
10.02.2010 11:54:52
Thread-ID: 1137344
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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