Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
212to216
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
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

DO CASE ... gehts auch einfacher ?

DO CASE ... gehts auch einfacher ?
05.02.2003 11:31:13
Nico
Holá,

in einer Angebotsmaske existiert eine Maske mit einem Projektleiterkürzel. Nun gibt es 20 Mitarbeiter und die ganzen CASE Anweisungen blähen den CODE total auf.

wert = ActiveCell.Value
ziel = ActiveCell.Offset(0, -2).Value & ActiveCell.Offset(0, -1).Value & ActiveCell.Offset(0, 0).Value & _
ActiveCell.Offset(0, 1).Value & ActiveCell.Offset(0, 2).Value
Select Case wert

Case 1
MkDir "y:\Angebote\@01-Meyer\" & ziel
Case 2
MkDir "y:\Angebote\@02-Müller\" & ziel

usw.
Kann ich mir diesen ganzen Kram nicht irgendwie vereinfachen indem ich den Ordnernamen z.B. "@01-Meyer" in eine Variable speichere.

Ich hoffe ich habe mich verständlich ausgedrückt.

Danke

Nico




8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Die Frage ist mit einem klaren Jein zu beantworten
05.02.2003 11:48:06
Michael Scheffler

Hallo,

was bringt das? Select Case ist schon das kürzeste.

Gruß

Micha

Re: DO CASE ... gehts auch einfacher ?
05.02.2003 11:50:09
Steffen D

Hi,

tue die pfade in einen Array abspeichern zB:
Dim Dateien() As String
Dateien = Array("y:\Angebote\@01-Meyer\", _
"y:\Angebote\@02-Müller\")

dann kannst die ganze slect case anweisung durch einen Befehl ersetzen:

MkDir Dateien(wert-1) & ziel

wert-1, weil der Index von einem Array von 0 anfängt...

Gruß
Steffen D

Re: DO CASE ... gehts auch einfacher ?
05.02.2003 11:54:13
Michael Scheffler

Hallo,

macht er nicht, wenn Du "Option Base 1" am Anfang in Dein Makro schreibst.

Gruß

Micha


konkret
05.02.2003 11:54:44
Nico

Ich muss im nächsten Schritt prüfen ob der entsprechende Ordner existiert (also z.B. @01-Meyer\& ziel, @02-Müller\& ziel, @03-Schulz\& ziel ...). Wie kann ich diesen Schritt vereinfachen ?

Grüße

Nico

Anzeige
Re: DO CASE ... gehts auch einfacher ?
05.02.2003 11:58:49
Nico

Was ist nunwieder Option Base 1 ???


Re: DO CASE ... gehts auch einfacher ?
05.02.2003 12:10:35
Steffen D

Hi,

wenn du am anfang deines Moduls Option Base 1 hinschreibst,
dann brauchst du nicht wert-1 sondern nur wert zu schreiben..

d.h. so:

MkDir Dateien(wert) & Ziel

Gruß
Steffen

Re: DO CASE ... gehts auch einfacher ?
05.02.2003 12:13:27
nico

Danke, aber nur damit ich es verstehe ... wieso heißt es dann nicht wert+1 ???

Danke

Nico

Re: DO CASE ... gehts auch einfacher ?
05.02.2003 12:24:24
Steffen D

Hast du scho mal die Excel VBA-Hilfe benutzt, da steht es ausführlich drin..

der Index der Datenfelder(Arrays) beginnt dann nicht bei 0 sondern bei 1

Gruß
STeffen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige