Befehl evt. verkürzen

Forumthread: Befehl evt. verkürzen

24.05.2007 12:35:00

Lena

Hallo...
habe eine lange Liste untenstehender Befehle.
Mich würde interessieren, ob man das Ganze noch kürzer gestalten kann.
If ActiveCell = "AAA" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\AAA.mct"
End If
If ActiveCell = "BBB" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\BBB.mct"
End If
usw.
Danke für Eure Antworten
Gruß
Lena

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Befehl evt. verkürzen

24.05.2007 12:49:50

Armin
AW: Befehl evt. verkürzen

24.05.2007 12:49:55

Rudi
AW: Befehl evt. verkürzen

24.05.2007 12:59:00

Rudi
AW: Befehl evt. verkürzen

24.05.2007 23:44:06

Daniel

AW: Befehl evt. verkürzen

24.05.2007 12:49:50

Armin

Hallo Lena,
diese Frage hatten wir diese Woche schon des öfteren von Dir.
Also was soll das?
Gruß Armin

AW: Befehl evt. verkürzen

24.05.2007 12:49:55

Rudi

Hallo,
du hast doch schon einen Vorschlag von mir bekommen.
Set wshShell = CreateObject("WScript.Shell")
brauchst du nur 1x an den Anfang des Codes zu schreiben.
Weiter kannst du den Pfad durch eine Variable ersetzen.
Am Anfang des Progs:
Const strPfad as string ="C:\Programme\Musicator\Mus40E\"
und der Aufruf der Datei:
If ActiveCell = "BBB" Then
wshShell.Run strPfad &"BBB.mct"
Weiter solltest du dich von der If-Abfrage verabschieden und mit Select Case arbeiten:
Select Case Activecell.Value
Case "BBB": wshShell.Run strPfad &"BBB.mct"
Case "AAA": wshShell.Run strPfad &"AAA.mct"
Case "DDD": wshShell.Run strPfad &"DDD.mct"
Case "EEE": wshShell.Run strPfad &"EEE.mct"
End Select
Ist übersichtlicher und kürzer.
Ich empfehle aber trotzdem weiterhin meinen ersten Vorschlag.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Befehl evt. verkürzen

24.05.2007 12:59:00

Rudi

Hallo,
siehe https://www.herber.de/forum/messages/871663.html
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Befehl evt. verkürzen

24.05.2007 23:44:06

Daniel

Hallo
die kürzeste Version (allderdings ohne irgendewelche Prüfungen und sicherheitsabfragen wäre:
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\" & Activecell.value & ".mct"
Klappt mit diesen Beiden Zeilen für beliebig viele Fälle.
Das der Code nur läuft, wenn eine entsprechende Zelle gelickt wurde, musst du allerding anders sicherstellen.
Gruß, Danile

Beliebteste Forumthreads (12 Monate)

Forumthread: Befehl evt. verkürzen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread