Befehlsfolge verkürzen

Forumthread: 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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Befehlsfolge verkürzen

13.07.2009 13: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 14:00:48

robert

AW: Befehlsfolge verkürzen

13.07.2009 15: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

Beliebteste Forumthreads (12 Monate)

Forumthread: Befehlsfolge verkürzen

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

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread