Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Benötige Hilfe bei Fehler im Code!
#1
Hallo liebe Excelgemeinde,


benötige mal wieder eure Hilfe bei einen Code:

Code:
Private Sub ListBox1_Click()                                'Listbox Auswahl
Dim sSearch As String
Dim rngID As Range
Dim Bild  As Object
Dim strFile As String
CommandButton6.Visible = True
CommandButton4.Visible = True
If ListBox1.ListCount > 1 Then

    sSearch = ListBox1.List(ListBox1.ListIndex, 0) 'Der ausgewählte Listeneintrag an die Variable übergeben
    Set rngID = ThisWorkbook.Sheets("Datenbank").Columns("A:A").Find(What:=sSearch, LookAt:=xlWhole, LookIn:=xlValues) 'In Spalte A nach dem Wert in der Variable suchen und festhalten
    If Not rngID Is Nothing Then 'Wenn nicht nicht gefunden
        strFile = ThisWorkbook.Path & "\" & "bilder datenbank" & "\" & rngID.Value & ".jpg"
           If Dir(strFile) <> "" Then
            On Error GoTo fehler

            Set Bild = LoadPicture(ThisWorkbook.Path & "\" & "bilder datenbank" & "\" & rngID.Value & ".jpg")
            Image1.Picture = Bild
            Image1.Visible = True
            Image1.PictureSizeMode = 3 'Bildgöße apassen
            i = rngID.Row
fehler:
        If Err Then MsgBox "Kein Bild oder Bild fehlerhaft! Bitte Bild des Artikels" & " " & rngID.Value & " " & "prüfen!"
        On Error GoTo 0
        Else
            Set Bild = LoadPicture(ThisWorkbook.Path & "\" & "bilder datenbank" & "\" & "keinBild" & ".jpg")
            Image1.Picture = Bild
            Image1.Visible = True
            Image1.PictureSizeMode = 3 'Bildgöße apassen
            i = rngID.Row
        End If

    Else
        MsgBox sSearch & " wurde nicht gefunden."
    Exit Sub
    End If                                                  ' Auswahl
   End If
   i = ListBox1.ListIndex + 2
   'Beep
   With ThisWorkbook.Sheets("Datenbank")
   TextBox4.Text = .Cells(i, 1).Value       'A
   TextBox3.Text = .Cells(i, 2).Value       'B
   TextBox1.Text = .Cells(i, 3).Value       'C
   TextBox2.Text = .Cells(i, 4).Value       'D
   TextBox5.Text = .Cells(i, 5).Value       'E
   TextBox6.Text = .Cells(i, 6).Value       'F
   TextBox7.Text = .Cells(i, 7).Value       'G
   TextBox8.Text = .Cells(i, 8).Value       'H
   TextBox9.Text = .Cells(i, 9).Value       'I
   TextBox10.Text = .Cells(i, 10).Value     'J
   TextBox11.Text = .Cells(i, 11).Value     'K
   TextBox12.Text = .Cells(i, 12).Value     'L
   TextBox13.Text = .Cells(i, 13).Value     'M
   TextBox14.Text = .Cells(i, 14).Value     'N
   TextBox15.Text = .Cells(i, 15).Value     'O
   TextBox16.Text = .Cells(i, 16).Value     'P
   TextBox17.Text = .Cells(i, 17).Value     'Q
   TextBox17.Value = Format(TextBox17.Value, "####0.00 €")
   TextBox18.Text = .Cells(i, 18).Value     'R
   TextBox18.Value = Format(TextBox18.Value, "####0.00 €")
   TextBox19.Text = .Cells(i, 19).Value     'S
   TextBox19.Value = Format(TextBox19.Value, "####0.00 €")
   TextBox20.Text = .Cells(i, 20).Value     'T
   TextBox20.Value = Format(TextBox20.Value, "####0.00 €")
   TextBox21.Text = .Cells(i, 21).Value     'U
   TextBox22.Text = .Cells(i, 22).Value     'V
   TextBox23.Text = .Cells(i, 23).Value     'W
   TextBox24.Text = .Cells(i, 24).Value     'X
   TextBox25.Text = .Cells(i, 25).Value     'Y
   TextBox26.Text = .Cells(i, 26).Value     'Z
   TextBox27.Text = .Cells(i, 27).Value     'AA
   TextBox28.Text = .Cells(i, 28).Value     'AB
   TextBox29.Text = .Cells(i, 29).Value     'AC
   TextBox30.Text = .Cells(i, 30).Value     'AD
   TextBox31.Text = .Cells(i, 31).Value     'AE
   TextBox32.Text = .Cells(i, 32).Value     'AF
   TextBox33.Text = .Cells(i, 33).Value     'AG
   TextBox34.Text = .Cells(i, 34).Value     'AH
   TextBox35.Text = .Cells(i, 35).Value     'AI
   TextBox36.Text = .Cells(i, 36).Value     'AJ
   TextBox37.Text = .Cells(i, 37).Value     'AK
   'TextBox38.Text = Cells(i, 38).Value     'AL
   TextBox39.Text = .Cells(i, 39).Value     'AM
   TextBox39.Value = Format(TextBox39.Value, "####0.00 €")
   TextBox40.Text = .Cells(i, 40).Value     'AN
   TextBox40.Value = Format(TextBox40.Value, "####0.00 €")
   TextBox41.Text = .Cells(i, 41).Value     'AO
   TextBox41.Value = Format(TextBox41.Value, "####0.00 €")
   TextBox42.Text = .Cells(i, 42).Value     'AP
   TextBox42.Value = Format(TextBox42.Value, "####0.00 €")
   'TextBox43.Text = Cells(i, 43).Value     'AQ
   'TextBox44.Text = Cells(i, 44).Value     'AR
   'TextBox45.Text = Cells(i, 45).Value     'AS
   'TextBox46.Text = Cells(i, 46).Value     'AT
   Label60.Caption = .Cells(i, 47).Value
   Label57.Caption = .Cells(i, 48).Value
   ControlsOnlyView
   'TextBox4.Enabled = False
   'CommandButton6.Visible = False
   'CommandButton4.Visible = False
   End With
End Sub
Mit diesem Code ist es mir möglich in einer Userform durck klicken in der Listbox1 Artikelnummer auszuwählen und die entsprechenden Daten dazu in die Userform zu holen und das dazugehörige Bild wird jeweils geladen! Solange ich in Listbox zwischen den ARtikeln hin und her klicke funktioniert es einwandfrei. Wenn ich aber mal auf das Bild das geladen ist klicke und dann wieder ein anderer Artikel in der Listbox auswähle, dann werde zwar die Daten dazu geladen jedoch das Bild ändert sich dann nicht mehr! Irgendwo ist da ein Fehler im Code und ich komme nicht drau wo!?

Vielleicht hat jemand eine Idee?


Vielen Dank
LG
Alexandra
Antworten Top
#2
Hallo zusammen,


habs hinbekommen:

habe noch ein :

image1.Enable = False

am Anfang des Codes eingefügt und nun funktioniert es!


Vielen Dank
VG
Alexandra
Antworten Top
#3
Hallo Alexandra,

ändert sich das, wenn Du zusätzlich diese Zeile einfügst?

Code:
Image1.Enabled = False

Gruß Uwe
Antworten Top
#4
Hallo Uwe,


schau mal auf die Uhrzeit wo wir geschrieben haben :)


Vielen Dank für dein Vorschlag, wie du in mein Post sehen kannst war das genau das richtige!


Danke
VG
Alexandra
Antworten Top
#5
Hallo Alexandra,

das ist Timing. :21:

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • cysu11
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste