Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
872to876
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Befehl evt. verkürzen

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
Anzeige
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

Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige