Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1640to1644
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild neu geladen

Bild neu geladen
25.08.2018 11:57:10
marta
Hallo zusammen
In meiner Userform werden Bilder/Image angezeigt.
Der Bildpfad steht in einer Tabelle.
Über ein Button wird der Bilder Explorer geöffnet und wähle ein Bid aus.
Den Pfad schreib er mir dann in ein TextBox7. So weit so gut.
Wenn ich jetzt auf Speichern Button drücke schreibt er mir das auch in die dementsprechende Zelle.
Jetzt soll aber auch das neue Bild neu geladen werden.
Das neue Bild wird jetzt nur neu geladen wenn ich die Userform schließe und neu starte.
Gibt es eine Möglichkeit über den Speicher Button das Bild gleich neu zu Laden?
Bitte um Hilfe
Hier ist meine Beispiel Datei:
https://www.herber.de/bbs/user/123548.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild neu geladen
25.08.2018 12:19:55
Nepumuk
Hallo Marta,
einfach so:
Private Sub CommandButton8_Click()
    Dim Pfad As Variant
    Pfad = Application.GetOpenFilename("Alle Grafiken (*.bmp;*.gif;*.jpg), *.bmp;*.gif;*.jpg")
    If Pfad <> False Then
        TextBox7 = Pfad
        Set Image1.Picture = LoadPicture(Filename:=Pfad)
    Else
        Set Image1.Picture = Nothing
        MsgBox "Nichts ausgewählt!"
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Bild neu geladen
25.08.2018 12:40:31
marta
Hallo
Danke für die schnelle Antwort. Dein Code funktoniert perfekt :-).
Aber die Listbox will da nicht so mitspielen. Wenn ich dann zwischen verschieden Namen wähle.
Wird immer noch das alte bild angezeigt.
Was muß ich ändern damit die Listbox diese änderung auch annimmt?
Vorschläge erwünscht
Gruß Marta
AW: Bild neu geladen
25.08.2018 12:56:23
Nepumuk
Hallo Marta,
teste mal:
Private Sub CommandButton8_Click()
    Dim Pfad As Variant
    Pfad = Application.GetOpenFilename("Alle Grafiken (*.bmp;*.gif;*.jpg), *.bmp;*.gif;*.jpg")
    If Pfad <> False Then
        TextBox7 = Pfad
        Set Image1.Picture = LoadPicture(Filename:=Pfad)
        With ListBox1
            .List(.ListIndex, 1) = Pfad
        End With
    Else
        Set Image1.Picture = Nothing
        MsgBox "Nichts ausgewählt!"
    End If
End Sub

Private Sub ListBox1_Click()
    Dim strFile As String
    Dim lZeile As Long
    
    With ListBox1
        If .ListIndex > -1 Then
            'Prüfen ob Bild vorhanden
            If .List(.ListIndex, 1) <> "" Then
                strFile = Dir(.List(.ListIndex, 1), vbNormal)
                If strFile <> "" Then
                    Image1.Picture = LoadPicture(.List(.ListIndex, 1))
                Else
                    Image1.Picture = LoadPicture("")
                    MsgBox "Das Bild '" & .List(.ListIndex, 1) & "' wurde nicht gefunden!", vbInformation
                End If
            Else
                Set Image1.Picture = Nothing
            End If
        End If
    End With
    
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    TextBox7 = ""
    If ListBox1.ListIndex >= 0 Then
        lZeile = 2
        Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
            
            If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
                
                TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
                TextBox2 = Tabelle1.Cells(lZeile, 2).Value
                TextBox3 = Tabelle1.Cells(lZeile, 3).Value
                TextBox4 = Tabelle1.Cells(lZeile, 4).Value
                TextBox5 = Tabelle1.Cells(lZeile, 5).Value
                TextBox6 = Tabelle1.Cells(lZeile, 6).Value
                TextBox7 = Tabelle1.Cells(lZeile, 7).Value
                
                Exit Do
                
            End If
            
            lZeile = lZeile + 1
            
        Loop
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Bild neu geladen
25.08.2018 13:13:36
marta
Hallo
Danke funktioniert alles super :-).
Ein großes Lob für die schnelle Antwort.
Gruß Marta

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige