Folgendes Problem : Ich habe eine „If - Then Schleife“ mit 2 Bedingungen zu verschachteln.
Die 1. Bedingung ist durch 2 Datumsgrenzen festgelegt und mit „And“ verbunden.
Die 2. Bedingung sind mehrere Zahlen die mit „Or“ verknüpft sind.
Jetzt habe ich das Problem, dass nach der 1 Bedingung ein „And“ kommt und die restliche Bedingung durch „or“ verschachtelt ist. Dadurch ist keine Abgrenzung vorhanden und VBA akzeptiert nur die 2 Bedingung und ignoriert die 1. Bedingung. Gibt es eine Möglichkeit mit Klammern zu arbeiten?
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, -3).Value >= DatwertC And ActiveCell.Offset(0, -2).Value ActiveCell.Value = FN(1, 1) Or ActiveCell.Value = FN(2, 1) Or ActiveCell.Value = FN(3, 1) Or ActiveCell.Value = FN(4, 1) Or ActiveCell.Value = FN(5, 1) Or ActiveCell.Value = FN(6, 1) Or ActiveCell.Value = FN(7, 1) Or ActiveCell.Value = FN(8, 1) Or ActiveCell.Value = FN(9, 1) Or ActiveCell.Value = FN(10, 1) Or _
ActiveCell.Value = FN(11, 1) Or ActiveCell.Value = FN(12, 1) Or ActiveCell.Value = FN(13, 1) Or ActiveCell.Value = FN(14, 1) Or ActiveCell.Value = FN(15, 1) Or ActiveCell.Value = FN(16, 1) Or ActiveCell.Value = FN(17, 1) Or ActiveCell.Value = FN(18, 1) Or ActiveCell.Value = FN(19, 1) Or ActiveCell.Value = FN(20, 1) Or _
ActiveCell.Value = FN(21, 1) Or ActiveCell.Value = FN(22, 1) Or ActiveCell.Value = FN(23, 1) Or ActiveCell.Value = FN(24, 1) Or ActiveCell.Value = FN(25, 1) Or ActiveCell.Value = FN(26, 1) Or ActiveCell.Value = FN(27, 1) Or ActiveCell.Value = FN(28, 1) Or ActiveCell.Value = FN(29, 1) Or ActiveCell.Value = FN(30, 1) Or _
ActiveCell.Value = FN(31, 1) Or ActiveCell.Value = FN(32, 1) Or ActiveCell.Value = FN(33, 1) Or ActiveCell.Value = FN(34, 1) Or ActiveCell.Value = FN(35, 1) Or ActiveCell.Value = FN(36, 1) Or ActiveCell.Value = FN(37, 1) Or ActiveCell.Value = FN(38, 1) Or ActiveCell.Value = FN(39, 1) Or ActiveCell.Value = FN(40, 1) _
Then
Selection.EntireRow.Copy
Sheets(Profitcenter).Select
ActiveSheet.Paste
Danke im vorraus
Carsten