Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Befehlsfolge verkürzen

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

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

Betreff
Benutzer
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige