|
Hallo Zusammen,
ich habe bei einem Formular noch ein kleines Problem und hoffe ihr könnt mir helfen.
Ich möchte dass über einen CommandButton der Explorer geöffnet wird und dann ein Bild ausgewählt werden kann, welches in eine bestimmte Zelle kopiert wird. Aktuell wird beim Command Button lediglich der Explorer geöffnet und man muss sich den entsprechenden Pfad suchen. Das Bild wird auch nur in die gerade aktive Zelle kopiert.
Aktueller Cod für Explorer öffnen:
Private Sub CommandButton2_Click()
'Bild einfügen
ActiveSheet.Unprotect
Application.Dialogs(xlDialogInsertPicture).Show
End Sub
Der Pfad ist variabel und würde sich wie folgt zusammensetzten:
"V:\" & Left(Range("m10").Value, 2) & "0000\" _
& Left(Range("m10").Value, 4) & "00\" _
& Left(Range("m10").Value, 6) & "\" _
& Range("m10").Value _
& "\_fertigung\RT_MB"
Wobei in der Zelle „M10“ eine Nummer steht die zum Beispiel 171800-15.
Wäre echt super wenn ihr mir weiter helfen könnt und ich hoffe ich habe alle Informationen angefügt die relevant sind.
Schöne Grüße
Christian
|