Office: If Bedingung mit UND und ODER möglich?

encey · 18. April 2020

Hallo zusammen,

ich benötige ein wenig Hilfe. Ich bin relativ neu im VBA Geschäft. Ich benötige ein Makro, welches mehrer Bedingungen innerhalb einer Spalte überprüft. Bei Erfüllung dieser Bedingungen sollen die Werte der Spalte Q mit 0,5 multipliziert werden und in die nächste freie Spalte (rechts) eingefügt werden. Ich habe mal versucht da was zusammen zu basteln:

Code:

Sub xyz()

Dim LetzteZeile As Long
Dim i As Long

LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To LetzteZeile

If Tabelle1.Cells(i, 9).Value = "A" Or Tabelle1.Cells(i, 9) = "B" _
And Tabelle1.Cells(i, 8).Value "C" And Tabelle1.Cells(i, 15).Value = "1" Or _
Tabelle1.Cells(i, 15).Value = "2" _
Or Tabelle1.Cells(i, 15).Value = "3" _
Or Tabelle1.Cells(i, 15).Value = "4" _
Or Tabelle1.Cells(i, 15).Value = "67" _
Or Tabelle1.Cells(i, 15).Value = "43" _
Or Tabelle1.Cells(i, 15).Value = "62" _
Or Tabelle1.Cells(i, 15).Value = "12" _
Or Tabelle1.Cells(i, 15).Value = "65" And Tabelle1.Cells(i, 20).Value "Ipt" _
Or Tabelle1.Cells(i, 20).Value "tzu" Or Tabelle1.Cells(i, 20).Value "War" Then

Cells(i, 17).Select
Selection.Copy
ActiveCell.Offset(0, 15).Range("A1").Select
ActiveSheet.Paste

End If
Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das mit dem kopieren und einfügen funktioniert(letzte Schritt). Nur die Bedingungen werden nicht berücksichtigt. Ich weiß auch gar nicht ob ich mich da auf dem richtigen Weg befinde.

Ich freue mich über jede Hilfe.

:)

Hajo_Zi · 20. April 2020

fehlen da Klammern um And?

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
änderrn.

Das ist nur meine Meinung zu dem Thema.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Meine Homepage Homeseite - Hajo's Excelseiten

aloys78 · 20. April 2020

Hallo,

Ich freue mich über jede Hilfe.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eigentlich hat Hajo Dir bezüglich der Klammern schon einen Hinweis gegeben.

Die Aktion, die bei Erfüllung aller Bedingungen durchgeführt werden soll, habe ich auf Anhieb nicht verstanden.

Aber nachstehend ein Ansatz, um die Verschachtelung der If-Bedingungen übersichtlich zu lösen (so wie ich sie verstanden habe).
Ungetestet, da Du keine entsprechende Beispiel-Datei zur Verfügung gestellt hattest.
Code:

Dim LetzteZeile As Long
Dim i As Long
LetzteZeile = Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To LetzteZeile
If (Tabelle1.Cells(i, 9).Value = "A" Or Tabelle1.Cells(i, 9) = "B") And (Tabelle1.Cells(i, 8).Value "C") Then
Select Case Tabelle1.Cells(i, 15)
Case Is = "1", "2", "3", "4", "12", "43", "62", "65", "67"
Select Case Tabelle1.Cells(i, 20)
Case Is = "Ipt", "tzu", "War"
' keine Aktion
Case Else

' --> hier Deine Aktion eintragen
End Select
End Select
End If
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

encey · 21. April 2020

Mit der Select Case Methode hat es so geklappt wie ich es mir vorgestellt habe.

Vielen Dank für Eure Hilfe!!!

@Hajo_Zi: Ja stimmt, danke für die Tips. Wie gesagt ich bin relativ neu in dem Makro Geschäft und lerne jeden Tag was neues dazu.*Smilie

Office: If Bedingung mit UND und ODER möglich?

If Bedingung mit UND und ODER möglich?

If Bedingung mit UND und ODER möglich?

If Bedingung mit UND und ODER möglich?

If Bedingung mit UND und ODER möglich? - Similar Threads - Bedingung

XVERWEIS, SVERWEIS: Nur unter bestimmter Bedingung ausgeben, sonst weitersuchen

Zählenwenn mit Bedingungen

Steigung mit Bedingung

Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern

Dynamische Combobox mit zwei Bedingungen

Mehrere Bedingungen und Addition

Anzahl mit bedingungen