Befehlsfolge verkürzen

Karsten

Hallo...
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

AW: Befehlsfolge verkürzen

13.07.2009 15:12:30

David

Hallo Karsten,
es würde helfen, zu wissen, was du damit erreichen willst.
Technisch gesehen, lässt sich das kürzen, aber manchmal gibt es auch ganz andere Lösungsansätze.
Gruß
David

...siehe Case-Anweisung ? owT

13.07.2009 16:00:48

robert

AW: Befehlsfolge verkürzen

13.07.2009 17:05:44

Helmut

Option Explicit

Sub test()
Dim myCounter As Long
Dim myText As String
For myCounter = 0 To 12
myText = myText & ActiveCell.Offset(0, myCounter).Value
Next myCounter
MsgBox myText
If InStr(myText, "Montag") + InStr(myText, "Dienstag") + InStr(myText, "Mittwoch") Then
MsgBox "drin"
Else
MsgBox "nicht drin"
End If
End Sub

Befehlsfolge verkürzen

Forumthread: Befehlsfolge verkürzen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Befehlsfolge verkürzen

Forumthread: Befehlsfolge verkürzen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread