Office: (Office 365) Mehrfache Auswahl mit FileDialog

Helfe beim Thema Mehrfache Auswahl mit FileDialog in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, Ich bin blutiger Anfänger in VBA, muss mich aber irgendwie durch ein betriebliches Problem durchwurschteln. Das klappt ganz gut bis ich... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von a2_the_K, 18. Mai 2021.

  1. a2_the_K Neuer User

    Mehrfache Auswahl mit FileDialog


    Hallo zusammen,
    Ich bin blutiger Anfänger in VBA, muss mich aber irgendwie durch ein betriebliches Problem durchwurschteln. Das klappt ganz gut bis ich jetzt hierdrauf gestossen bin:

    In einem Formular lässt sich über 3 Buttons ein Bild auswählen und dem Bild eine Bezeichnung per TextBox zuordnen:

    Private Sub Button_Pic1_Click()
    ' Bild 1 hinzufügen und anzeigen
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    Application.FileDialog(msoFileDialogOpen).Show
    Dim myPath1 As String
    myPath1 = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Button_Pic1.Picture = LoadPicture(myPath1)

    End Sub

    Private Sub Button_Pic2_Click()
    ' Bild 2 hinzufügen und anzeigen
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    Application.FileDialog(msoFileDialogOpen).Show
    Dim myPath2 As String
    myPath2 = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Button_Pic2.Picture = LoadPicture(myPath2)

    End Sub

    Private Sub Button_Pic3_Click()
    ' Bild 3 hinzufügen und anzeigen
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    Application.FileDialog(msoFileDialogOpen).Show
    Dim myPath3 As String
    myPath3 = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Button_Pic3.Picture = LoadPicture(myPath3)

    End Sub


    Nun sollen diese Bilder als Hyperlink in einem Tabellenblatt abgelegt werden, wenn der Nutzer das Formular über eine weitere Schaltfläche bestätigt:

    Sub Button_Rep_Click()

    'Bilder einfügen
    Dim sh As Worksheet
    Set sh = Sheets("Bericht")
    Dim i As Long
    i = sh.Range("A" & Rows.Count).End(xlUp).Row + 1


    sh.Cells(i, 5) = Me.Text_Pic1.Value
    Dim myPath1 As String
    myPath1 = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Dim ipath1 As String
    ipath1 = "C:\TEST\" & Me.Text_Pic1 & ".jpg"
    FileCopy myPath1, ipath1
    sh.Cells(i, 5).Activate
    ActiveCell.Hyperlinks.Add anchor:=Selection, Address:=ipath1, TextToDisplay:=Me.Text_Pic1.Value
    sh.Cells(i, 5).Deactivate

    sh.Cells(i, 6) = Me.Text_Pic2.Value
    Dim myPath2 As String
    myPath2 = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Dim ipath2 As String
    ipath2 = "C:\TEST\" & Me.Text_Pic2 & ".jpg"
    FileCopy myPath2, ipath2
    sh.Cells(i, 6).Activate
    ActiveCell.Hyperlinks.Add anchor:=Selection, Address:=ipath2, TextToDisplay:=Me.Text_Pic2.Value
    sh.Cells(i, 6).Deactivate

    sh.Cells(i, 7) = Me.Text_Pic3.Value
    Dim myPath3 As String
    myPath3 = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
    Dim ipath3 As String
    ipath3 = "C:\TEST\" & Me.Text_Pic3 & ".jpg"
    FileCopy myPath3, ipath3
    sh.Cells(i, 7).Activate
    ActiveCell.Hyperlinks.Add anchor:=Selection, Address:=ipath3, TextToDisplay:=Me.Text_Pic3.Value

    'Informationen der UserForm in das Tabellenblatt eintragen
    sh.Cells(i, 1).Value = RepForm.Text_Date3.Value
    'sh.Cells(i,2).Value = Hier Funktion für KW aus dem Datum ergänzen
    'sh.cells(i,3).Value = Hier Funktion für Wochentag aus dem Datum ergänzen
    sh.Cells(i, 4).Value = RepForm.TextBox_Rep.Value


    End Sub

    Das klappt soweit ganz gut, aber es wird in allen 3 Hyperlinks auf das letzte Bild verlinkt, also bei 3 Bildern auf Pic3 oder bei 2 Bildern auf Pic2.

    Hat da jemand eine schnelle Lösung für mich parat?

    Vielen Dank schon im Voraus!
     
    a2_the_K, 18. Mai 2021
    #1
  2. Exl121150 Erfahrener User
    Hallo,

    in der beiliegenden Excel-Datei habe ich eine Userform eingefügt, die mit dem blauen Button im Arbeitsblatt "Bericht" aufgerufen werden kann ("Benutzerformular anzeigen").

    In dieser befinden sich 3 Buttons "Button_Pic1", "Button_Pic2" und "Button_Pic3" und daneben jeweils eine Textbox.

    Klickt man auf einen dieser Buttons, erscheint der Dateidialog mit dem Verzeichnisinhalt des Verzeichnisses, in dem sich diese Excel-Datei befindet. Zur Zeit ist der Dateifilter so eingestellt, dass *.jpg, *.bmp und *.gif-Dateien angezeigt werden und zwar im Detailansichtsmodus des Verzeichnisses.
    Bei Klick auf Button "Öffnen" wird der Grafikinhalt im geklickten Button "Button_PicX" angezeigt und der Dateipfad in der Textbox daneben.
    Bei Klick auf Button "Abbrechen" erscheint in der Textbox "--Abbruch--"

    Klickt man zum Abschluss auf den 4. Button "BilderBericht", werden
    1) die in den vorigen Buttons gespeicherten Grafikdateien in das Verzeichnis "C:\TEST\" kopiert,
    2) ferner im Arbeitsblatt "Bericht" in der ersten freien Zeile in
    Spalte E, F und G Hyperlinks auf die Dateien in C:\TEST\ eingefügt,
    Spalte A der Inhalt der Textbox neben dem Button "Bilderbericht" (Datum: Format TT.MM.JJJJ) eingefügt,
    Spalte B die Kalenderwoche dieses Datums eingefügt,
    Spalte C der Wochentag dieses Datums eingefügt,
    Spalte D der Inhalt der Textbox unterhalb der Datumstextbox eingefügt.

    Geschlossen kann diese Userform bei Klick auf das Kreuzchen in der rechten oberen Ecke.
     
    Exl121150, 18. Mai 2021
    #2
  3. a2_the_K Neuer User
    Hallo Exl121150,

    vielen vielen Dank für die schnelle Antwort, das funktioniert ganz wunderbar!!!

    Nur eine kleine Bitte hätte ich noch:
    Momentan werden immer 3 Hyperlinks angelegt, auch wenn nur ein Bild eingetragen wird. Hättest du da auch eine Lösung für?

    Vielen Dank nochmals!!
     
    a2_the_K, 19. Mai 2021
    #3
  4. Exl121150 Erfahrener User

    Mehrfache Auswahl mit FileDialog

    Hallo,

    in der beiliegenden Datei habe ich dir das eingebaut: Sobald ein Bildbutton nicht benutzt wird oder dieser mit Abbruch verlassen wird, wird dieser bei der Eintragung ins Arbeitsblatt "Bericht" übergangen.

    Wird das Formular aufgerufen, wird die Datums-Textbox mit dem heutigen Datum vorbesetzt, ferner die Textbox für die Berichtsbezeichnung mit "Neuer Bericht". Weiters werden alle Bilder aus den Bildbuttons entfernt.

    Machst du einen Doppelklick in den grauen Bereich des Formulars (jedoch außerhalb eines Buttons bzw. einer Textbox), wird ebenfalls das im vorigen Absatz Gesagte ausgeführt.
     
    Exl121150, 20. Mai 2021
    #4
Thema:

Mehrfache Auswahl mit FileDialog

Die Seite wird geladen...
  1. Mehrfache Auswahl mit FileDialog - Similar Threads - Mehrfache Auswahl FileDialog

  2. Automatisches Starten von Video oder Audio

    in Microsoft PowerPoint Hilfe
    Automatisches Starten von Video oder Audio: Ich habe in einer Präsentation für eine Touchscreen-Präsentation ein Video in einer Folie mit automatischen Start eingebaut. In der Präsentation wird mit Link beliebig oft zu einer Anfangsmaske...
  3. Auflösen oder Löschen von mehrfach vorhandenen Kontakten

    in Microsoft Outlook Tutorials
    Auflösen oder Löschen von mehrfach vorhandenen Kontakten: Auflösen oder Löschen von mehrfach vorhandenen Kontakten Outlook für Microsoft 365 Outlook 2019 Outlook 2016 Outlook 2013 Outlook 2010 Outlook 2007...
  4. Ein Formular mehrfach öffnen

    in Microsoft Access Hilfe
    Ein Formular mehrfach öffnen: Hallo alle zusammen, könntet ihr mir bitte helfen? Ich habe ein Suchformular wie im Anhang erstellt. Wenn ich auf den "Weiter-Button" klicke, kann ich jedesmal nur ein Formular (frmKundenkontakt)...
  5. Datensätze aussortieren bei mehrfacher (WENN/DANN) Beziehung

    in Microsoft Excel Hilfe
    Datensätze aussortieren bei mehrfacher (WENN/DANN) Beziehung: OFFICE365 Hallo Zusammen, Ich bin leider nicht sonderlich begabt was das Thema Excel angeht. Jetzt stehe ich vor folgendem Problem: Ich habe eine Liste mit 40.000 Zeilen. In Spalte A...
  6. Office mehrfach Lizenzen

    in Sonstiges
    Office mehrfach Lizenzen: Hallo Community, Vorweg, sollte so ein Beitrag schon bestehen und beantwortet sein, bitte um Entschuldigung. Leider konnte ich mein Anliegen auch nicht bei Google finden. Aber jetzt zu...
  7. verweis bei mehrfach vorkommenden Suchkriterien

    in Microsoft Excel Hilfe
    verweis bei mehrfach vorkommenden Suchkriterien: Hallo alle. Ich komme mit folgendem Problem leider nicht weiter. Ich habe eine Tabelle. Spalte A: Spalte B: Spalte C Spalte D etc. Namen...
  8. Mehrfache Kalendereinträge

    in Microsoft Outlook Hilfe
    Mehrfache Kalendereinträge: Hallo, ich bekomme über Outlook regelmäßig Popup-Meldungen zu Geburtstagen, leider häufig bis zu 4 mal den gleichen Eintrag. Bei näherem Hinsehen sehe ich, dass diese aus unterschiedlichen...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden