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