Vielen Dank und schönen Gruß Thomas
Geschrieben am: 23. 2003 16:20:02
Hi Thomas,
hast immer noch nicht gerafft gel? Ohne dass Du uns sagst, was Du für Quelle hast, tasten wir hier im Dunkel. Bitte versuch genauer zu sein
Excel-Beispiele zum Thema " Mehrere Bedingungen bei VBA eine Anweisung"
Suche über mehrere Tabellen
Mehrere Schaltflächen für ein Makro
Suchbegriff über mehrere Tabellenblätter suchen.
Excel Vba If Mehrere Bedingungen Test
Einer der meist aufgerufensten Artikel hier auf Excel Lernen ist Excel Wenn Dann. Was wir in diesem Einführungs-Artikel nicht besprochen haben, sind UND/ODER Bedingungen. Stellen Sie sich vor wir wollen den Bonus eines Verkäufers errechnen, der mehrere Bedingungen gleichzeitig erfüllen muss um den Bonus zu bekommen. Hier hilft die Excel UND Funktion. Excel UND/ODER Funktion
Beide Funktionen können mit der WENN Funktion kombiniert werden. Sie beginnen erst mit der WENN Funktion und dann als Prüfung wird UND/ODER verwendet. =UND(Wahrheitswert1; Wahrheitswert2;etc)
Geben Sie mehrere Bedingen ein, die alle wahr sein müssen um die Prüfung in der WENN Funktion zu bestehen. Wahrheitswert1 kann zum Beispiel "C5<=100" sein, d. h. die Zelle C5 muss kleiner oder gleich 100 sein. =ODER(Wahrheitswert1; Wahrheitswert2;etc)
Ähnlich wie bei UND geben Sie hier mehrere Bedingungen ein, aber nur eine muss wahr sein. Ein Beispiel hierzu wäre ein Bonus der ausbezahlt wird wenn entweder der Umsatz ODER der Profit über einem bestimmten Wert liegt.
Excel Vba If Mehrere Bedingungen File
Sub IfGoTo ()
If IsError() Then
Goto Absprung
'Irgendein Code
Absprung:
Zeilen löschen wenn eine Zelle leer ist
Mit Ifs und Schleifen können Sie testen, ob eine Zelle leer ist und in dem Fall die gesamte Zeile löschen. Sub ZeileLoeschenWennZelleLeer()
Dim Cell As Range
For Each Cell In Range("A2:A10")
If = "" Then
If MessageBox Ja / Nein
Mit VBA MessageBoxen können Sie den Benutzer auffordern, aus mehreren Optionen auszuwählen. Die Ja/Nein Message Box fordert den Benutzer auf, Ja oder Nein zu wählen. Sie können eine Ja/Nein Message Box zu einer Prozedur hinzufügen, um den Benutzer zu fragen, ob er die Prozedur fortsetzen möchte oder nicht. Sie verarbeiten die Eingabe des Benutzers mit einer If-Anweisung. Hier ist die Ja/Nein-Meldungsbox in der Praxis:
Sub MsgBoxVariable()
Dim antwort As Integer
antwort = MsgBox("Willst Du fortfahren? ", vbQuestion + vbYesNo)
If antwort = vbYes Then
MsgBox "Ja"
MsgBox "Nein"
VBA If, ElseIf, Else in Access VBA
Die Anweisungen If, ElseIf und Else funktionieren in Access VBA genau so wie in Excel VBA.
Dank und Gruß, Thomas
Betrifft: Toll: "funzt das nich! " von: Andreas Walter
Geschrieben am: 23. 2003 15:19:26
Die Fehlermeldung "funzt das nich! " hilft nicht sehr. sollte m. E. gehen - weiss aber nicht wo die Grenze ist. Post mal genau was nicht funktioniert und die genaue Fehlermeldung
Alternativ
select case
case "qwe", "wer", "ret" usw. Betrifft: AW: Toll: "funzt das nich! " Geschrieben am: 23. 2003 15:36:47
Hier das Script:
Sub KillTheDaughter()
Dim Bereich, zelle
Set Bereich = Range("Source! A1:Z20000")
For Each zelle In Bereich
If = "CSG COMPUTER SERVICE GMBH" Or = "DVO DATENVERARBEITUNGS-SERVICE GMBH" Or = "IBB INFORMATIONSSYSTEME" Or = "IBM FORSCHUNGSLABORATORIUM" Or = "IBM KLUBRESTAURANT V. GOLTSIOS" Or = "IT-SERVICES AND SOLUTIONS GMBH" Or = "SERCON GMBH" Or = "SERCON SERVICE-KONZEPTE FUER" Or = "SERCON SERVICE -KONZEPTE FUER INFOR" Or = "SERCON WIESBADEN SERVICE-KONZEPTE" Then
Shift:=xlUp
End If
Next
End Sub
Leider tötet er nur die ersten beiden (cgs und dvo), die anderen bleiben alle stehen.