Befehlsfolge verkürzen
Karsten
Ich hab u.s. Befehlsfolge konstruiert. Kann mir jemand diese sache Kürzer machen?
Besten Dank.
Gruß
Karsten
If ActiveCell.Offset(0, 0).Value = "Montag" Or ActiveCell.Offset(0, 0).Value = "Dienstag" Or ActiveCell.Offset(0, 0).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 1).Value = "Montag" Or ActiveCell.Offset(0, 1).Value = "Dienstag" Or ActiveCell.Offset(0, 1).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 2).Value = "Montag" Or ActiveCell.Offset(0, 2).Value = "Dienstag" Or ActiveCell.Offset(0, 2).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 3).Value = "Montag" Or ActiveCell.Offset(0, 3).Value = "Dienstag" Or ActiveCell.Offset(0, 3).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 4).Value = "Montag" Or ActiveCell.Offset(0, 4).Value = "Dienstag" Or ActiveCell.Offset(0, 4).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 5).Value = "Montag" Or ActiveCell.Offset(0, 5).Value = "Dienstag" Or ActiveCell.Offset(0, 5).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 6).Value = "Montag" Or ActiveCell.Offset(0, 6).Value = "Dienstag" Or ActiveCell.Offset(0, 6).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 7).Value = "Montag" Or ActiveCell.Offset(0, 7).Value = "Dienstag" Or ActiveCell.Offset(0, 7).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 8).Value = "Montag" Or ActiveCell.Offset(0, 8).Value = "Dienstag" Or ActiveCell.Offset(0, 8).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 9).Value = "Montag" Or ActiveCell.Offset(0, 9).Value = "Dienstag" Or ActiveCell.Offset(0, 9).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 10).Value = "Montag" Or ActiveCell.Offset(0, 10).Value = "Dienstag" Or ActiveCell.Offset(0, 10).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 11).Value = "Montag" Or ActiveCell.Offset(0, 11).Value = "Dienstag" Or ActiveCell.Offset(0, 11).Value = "Mittwoch" _
Or ActiveCell.Offset(0, 12).Value = "Montag" Or ActiveCell.Offset(0, 12).Value = "Dienstag" Or ActiveCell.Offset(0, 12).Value = "Mittwoch" _
Then