Clever-Excel-Forum

Seiten: 1 2 3 4

[attachment=14363]Hallo liebe Excelfreunde,

mit Hilfe hier aus dem Forum, hab ich es doch glatt hinbekommen, mir eine Filmdatenbank mit Usermaske zum Aufruf der Filme
zu erstellen.
Soweit ist sie schon fast fertig. :)

Jetzt möchte ich gerne, das bei Suche oder Auswahl meines Films in der Userform, mir das passende Cover zum Film angezeigt wird.
Die Cover speichere ich in einem Verzeichnis auf der Festplatte "Filmcover"

Wie ich das automatisiert wieder als VBA-Code umsetze ist für mich natürlich wieder Neuland um bitte euch dringend um Hilfe?

In der userform "BluRayListe", gibt es dort eine Image-Box, in der ich im VBA-Editor wenigstens schon mal ein Bild einfügen konnte, um euch zu zeigen,
wie ich mir das vorstelle.

Ist das umsetzbar? Reicht es, wenn ich dich Cover in einem Verzeichnis sammle und man kann sie von dort aus, per Code passend zu dem Film anzeigen?

Ich hoffe weiterhin auf professionelle Hilfe von euch,

Gruß MdeJong

Hallo

hier auf Arbeit kann und darf ich deine Datei nicht laden
aber da ich die ja schon kenne.... Wink

das könnte mit diesem Code innerhalb deines Suchbuttons funktionieren

beachte aber dass die Filmcover genau so heißen müssen wie der Film
sonst findet es das Cover nicht

Code:
Dim strPath As String

    strPath = "D:\Filmcover"

    Image1.Picture = LoadPicture(strPath & "\" & TextBox19.Text & ".jpg")

in meinem Test befindet sich der Ordner Filmcover auf Laufwerk D
das Filmcover muss dann so heißen wie der Text in Textbox19 --> deutsch. Filmname
auch das Format des Covers muss angepasst werden, in meinem Test .jpg

MfG Tom

Hi Rom, :05:

ich habs mir gedacht, das du dir schon Gedanken darüber gemacht hast.....war ja in meinen letzten Mappen nicht zu übersehen. ;)
Ich bin auch bei der Arbeit und kann den Code erst später ausprobieren. Angel

Konnte gerade in der Mittagspause mein neues Thema hier anschlagen. :)

Vielen Dank für deine schnelle Hilfe.
Ich gebe heute Abend Infos....wie ich das hinbekommen habe. Blush

Gruß
Michael

Hallo

hier noch mit Fehlerbehandlung falls das Cover nicht gefunden wird

Code:
   Dim strPath As String

    strPath = "D:\Filmcover"

    Image1.Picture = Nothing

    On Error Resume Next

    Image1.Picture = LoadPicture(strPath & "\" & TextBox19.Text & ".jpg")

    On Error GoTo 0

MfG Tom

An welcher Stelle in dem Such-Code sollen die Zeilen?
Ich habe jetzt ein festes Bild zur Anschauung dort hineingepackt, da muss mit Sicherheit wieder raus? :)

Hi Michael,

du solltest nicht unnötig zum Antworten den Zitierbutton nutzen, sondern den weiter unten angeordneten Antwortbutton.
Zitieren bitte nur dann, wenn es für die Antwort notwendig ist.

Hallo

das könnte so passen

Code:
Private Sub CommandButton1_Click()

    Dim c As Range

    Dim strSuche As String

    Dim strPath As String

    strPath = "D:\Filmcover"    'Pfad anpassen

    Image1.Picture = Nothing

    strSuche = InputBox("Filmname eingeben", "Filmsuche")

    If strSuche <> "" Then

        With Sheets("BluRay-Liste")

            Set c = .Columns(2).Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)

            If Not c Is Nothing Then

                TextBox20.Value = .Cells(c.Row, 1).Value

                TextBox18.Value = .Cells(c.Row, 3).Value

                TextBox16.Value = .Cells(c.Row, 4).Text

                TextBox14.Value = .Cells(c.Row, 5).Value

                TextBox17.Value = .Cells(c.Row, 6).Value

                TextBox13.Value = .Cells(c.Row, 7).Value

                TextBox15.Value = .Cells(c.Row, 8).Value

                TextBox12.Value = .Cells(c.Row, 9).Value

                TextBox10.Value = .Cells(c.Row, 10).Value

                TextBox11.Value = .Cells(c.Row, 11).Value

                TextBox21.Value = .Cells(c.Row, 14).Value

                ListBox1.AddItem .Cells(c.Row, 12).Value

                On Error Resume Next

                Image1.Picture = LoadPicture(strPath & "\" & TextBox19.Text & ".jpg")

                On Error GoTo 0

                'und so weiter und sofort

            Else

                MsgBox "Film nicht gefunden"

            End If

        End With

    End If

End Sub

MfG Tom

Hi Tom,

ich bin sicher, das ich den Film richtig benannt habe .
Deinen Code hinter suchbutton, doch es geht nicht

Grß
Michael

Hey....geht doch...nur beim weiter wechseln auf dem spin behält er das Bild bei
Und ich glaube,das der Code sich TextBox18 zum Vergleicht Filmname und Name .jpg Datei
Muss denn in 18 das gleiche wie in 19 stehen?

Seiten: 1 2 3 4

MdeJong

Crazy Tom

MdeJong

Crazy Tom

MdeJong

Zwergel

MdeJong

Crazy Tom

MdeJong

MdeJong