Thema Datum  Von Nutzer Rating
Antwort
Rot Datei öffnen, deren Name in einer bes. Zelle steht
 13.07.2020 11:12:01 mark123
NotSolved
13.07.2020 15:35:42 Gast28083
Solved

Ansicht des Beitrags:
Von:
mark123		 Datum:
13.07.2020 11:12:01		 Views:
1274		 Rating:
     
Antwort:
  Ja
Thema:
Datei öffnen, deren Name in einer bes. Zelle steht

Hallo Zusammen,

ich habe in einer Excel-Tabelle in einer bestimmten Zelle einen Namen oder eine Nummer stehen. Sagen wir in Zelle A3. An anderer Stelle in dieser Tabelle habe ich ein Image-Steuerelement, in das, mit Hilfe meines Makros, ein Bild eingefügt wird, das in einem bekannten Ordner liegt. Bislang muss ich die Datei im Dialogfenster aber immer noch suchen und auswählen. Ist es möglich die Datei direkt zu öffnen? 

Zum Beispiel steht in der Zelle A3:            123Abc  

Dateipfad würde dann zum Beispiel lauten: C:/Ordner1/OrdnerA/123Abc.jpeg

Kann ich den Dateipfad im Code so angeben, dass sofort die Datei geöffnet wird, die so heißt wie der Inhalt in Zelle A3? Wie müsste ich meinen Code erweitern, dass eine Meldung kommt, wenn die Datei doch nicht im Ablageordner liegt?

Mein Code lautet bisher:

 

Sub Bild()
    ActiveSheet.OLEObjects("Image1").Object.Picture = LoadPicture(BildEinfuegen)
End Sub

Function BildEinfuegen() As String
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName = "Dateipfad"
        .ButtonName = "OK"
        .Title = "Bilddateien ausw?hlen"
        .Show
        If .SelectedItems.Count = 0 Then
            BildEinfuegen = ""
        Else
            BildEinfuegen = .SelectedItems(1)
        End If
    End With
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datei öffnen, deren Name in einer bes. Zelle steht
 13.07.2020 11:12:01 mark123
NotSolved
13.07.2020 15:35:42 Gast28083
Solved