Bild in Userform einfügen und löschen

[heros22]

Hallo zusammen,

ich habe mal wieder ein kleines Problem,

und zwar versuche ich in einer Userform mit Hilfe von zwei buttons und einem ImageFeld Bilder auszuwählen welche dann angezeigt werden was auch funktioniert.
ich benutze dafür folgenden code

Code:

Private Sub cmdBild_Click()
Dim varBild As Variant
varBild = Application.GetOpenFilename("Bilder (*.jpg), *.jpg")
If Not varBild = False Then
 Image1.Picture = LoadPicture(varBild)
End If


End Sub
Private Sub cmdBildloeschen_Click()
Image1.Picture = LoadPicture("")
End Sub

jetzt hätte ich nur gerne das der Link zu dem Bild in einer Tabelle eingetragen wird das ich diesen in anderen Userformen von dort aus auch verwenden kann.
Aber wie stelle ich das am besten an?

gruß
heros22

[Steffl]

Hallo,

mal ungetestet

Code:

Dim varBild As Variant
varBild = Application.GetOpenFilename("Bilder (*.jpg), *.jpg")
If Not varBild = False Then
MsgBox varBild.Path
Image1.Picture = LoadPicture(varBild)
End If
End Sub

[heros22]

Ich weiß nicht genau ob ich mich richtig ausgedrückt hab.

in meiner Userform sind mehrere Artikel eingetragen jeder Artikel bekommt ein eigenes Foto und jede Menge Daten diese Daten werden beim Speichern in eine Tabelle geschrieben und beim auswählenaus dieser Tabelle wieder eingefügt nur der pfad zum jeweiligen Bild leider nicht weil ich nicht weiß wie.

[Steffl]

Hallo,

könntest Du deine Datei hier hochladen?

[heros22]

Code:

Option Explicit
Option Compare Text

Private Sub cmdBild_Click()
Dim varBild As Variant
varBild = Application.GetOpenFilename("Bilder (*.jpg), *.jpg")
If Not varBild = False Then
 Image1.Picture = LoadPicture(varBild)
 End If
End Sub
Private Sub cmdBildloeschen_Click()
Image1.Picture = LoadPicture("")
End Sub
'Neuer Eintrag Schaltfläche Ereignisroutine
Private Sub CommandButton1_Click()
  Dim lZeile As Long
    'Wenn der Benutzer einen neuen Eintrag erzeugen möchte,
    'erstellen wir einen neuen Eintrag in der ListBox und markieren
    'diesen, damit der Benutzer die Daten eintragen kann
   
    lZeile = 5 'Start in Zeile 2, Zeile 1 sind ja die überschriftrn
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle5.Cells(lZeile, 2).Value)) <> ""
        lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    Loop
   
    'Nach Durchlauf dieser Schleife steht lZeile in der ersten leeren Zeile von Tabelle5
    'Neuen Eintrag in die Tabelle5 schreiben, Spalte ID muss gefüllt sein, damit
    'unsere Routinen die Zeile wiederfinden!
    Tabelle5.Cells(lZeile, 2) = CStr("Neuer Eintrag Zeile " & lZeile)
   
    'Und neuen Eintrag in die UserForm eintragen
    ListBox1.AddItem CStr("Neuer Eintrag Zeile " & lZeile)
   
    'Den neuen Eintrag markieren mit Hilfe des ListIndexes
    ListBox1.ListIndex = ListBox1.ListCount - 1
    'Durch das Click Ereignis der ListBox werden die Daten automatisch geladen
   
End Sub

'Löschen Schaltfläche Ereignisroutine
Private Sub CommandButton2_Click()
  Dim lZeile As Long
 
    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox1.ListIndex = -1 Then Exit Sub
 
    'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes
    lZeile = 5 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle5.Cells(lZeile, 2).Value)) <> ""
   
        'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
        If ListBox1.Text = Trim(CStr(Tabelle5.Cells(lZeile, 2).Value)) Then
           
            'Eintrag gefunden, die ganze Zeile wird nun gelöscht
            Tabelle5.Rows(CStr(lZeile & ":" & lZeile)).Delete
           
            'Die ListBox muss nun neu geladen werden!
            Call UserForm_Initialize
            If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
           
            Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
           
        End If
   
        lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    Loop
   
End Sub

'Speichern Schaltfläche Ereignisroutine
Private Sub CommandButton3_Click()
  Dim lZeile As Long
 
    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox1.ListIndex = -1 Then Exit Sub
   
    'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
    If Trim(CStr(TextBox1.Text)) = "" Then
        'Meldung ausgeben
        MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
        'Abbrechen der Speicherroutine
        Exit Sub
    End If
    'Ausbauoption: Prüfen, ob die ID in Tabelle5 Spalte 1 schon vorhanden ist!
   
    'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    lZeile = 5 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle5.Cells(lZeile, 2).Value)) <> ""
   
        'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
        If ListBox1.Text = Trim(CStr(Tabelle5.Cells(lZeile, 2).Value)) Then
           
            'Eintrag gefunden, TextBoxen in die Zellen schreiben
            Tabelle5.Cells(lZeile, 2).Value = Trim(CStr(TextBox1.Text))
            Tabelle5.Cells(lZeile, 3).Value = TextBox2.Text
            Tabelle5.Cells(lZeile, 4).Value = cboHersteller.Text
            Tabelle5.Cells(lZeile, 5).Value = cboWarengruppe.Text
            Tabelle5.Cells(lZeile, 6).Value = txtBestand.Text
            Tabelle5.Cells(lZeile, 7).Value = txtMinBestand.Text
            Tabelle5.Cells(lZeile, 8).Value = txtMeldeBestand.Text

           
           
           
            'Die ListBox muss nun neu geladen werden
            'allerdings nur, wenn sich der Name (ID) geändert hat
            If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
                Call UserForm_Initialize
                If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
            End If
           
            Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
           
        End If
   
        lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    Loop
   
End Sub

'Beenden Schaltfläche Ereignisroutine
Private Sub CommandButton4_Click()
Sheets("Center").Activate
   Unload Me
   frmHauptmenue.Show
End Sub

Private Sub CommandButton5_Click()

End Sub

'Klick auf die ListBox Ereignisroutine
Private Sub ListBox1_Click()
  Dim lZeile As Long
    'Wenn der Benutzer einen Namen anklickt, suchen wir
    'diesen in der Tabelle5 heraus und tragen die Daten
    'in die TextBoxen ein.
   
    'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
    TextBox1 = ""
    TextBox2 = ""
    cboHersteller = ""
    cboWarengruppe = ""
    txtBestand = ""
    txtMinBestand = ""
    txtMeldeBestand = ""

    'Nur wenn ein Eintrag selektiert/markiert ist
    If ListBox1.ListIndex >= 0 Then
   
        lZeile = 5 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
        'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
        Do While Trim(CStr(Tabelle5.Cells(lZeile, 2).Value)) <> ""
       
            'Wenn wir den Namen aus der ListBox1 in der Tabelle5 Spalte 1
            'gefunden haben, übertragen wir die anderen Spalteninhalte
            'in die TextBoxen!
            If ListBox1.Text = Trim(CStr(Tabelle5.Cells(lZeile, 2).Value)) Then
           
                'TextBoxen füllen
                             
                TextBox1 = Trim(CStr(Tabelle5.Cells(lZeile, 2).Value))
                TextBox2 = Tabelle5.Cells(lZeile, 3).Value
                cboHersteller = Tabelle5.Cells(lZeile, 4).Value
                cboWarengruppe = Tabelle5.Cells(lZeile, 5).Value
                txtBestand = Tabelle5.Cells(lZeile, 6).Value
                txtMinBestand = Tabelle5.Cells(lZeile, 7).Value
                txtMeldeBestand = Tabelle5.Cells(lZeile, 8).Value

           
                Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
           
            End If
       
            lZeile = lZeile + 1 'Nächste Zeile bearbeiten
       
        Loop
       
    End If
   
End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Activate()
    'Wenn die Eingabemaske angezeigt wird, markieren wir den ersten Namen
    'jedoch nur, wenn auch Einträge in der Liste stehen
    If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End Sub

'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
Private Sub UserForm_Initialize()
lbldate.Caption = Date
    cboHersteller.RowSource = "Hersteller!B4:B100"
    cboWarengruppe.RowSource = "Produktgruppen!B4:B100"
  Dim lZeile As Long
 
    'Alle TextBoxen leer machen
    TextBox1 = ""
    TextBox2 = ""
    cboHersteller = ""
    cboWarengruppe = ""
    txtBestand = ""
    txtMinBestand = ""
    txtMeldeBestand = ""
 
    'In dieser Routine laden wir alle vorhandenen
    'Einträge in die ListBox1
    ListBox1.Clear 'Zuerst einmal die Liste leeren
   
    lZeile = 5 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle5.Cells(lZeile, 2).Value)) <> ""
       
        'Aktuelle Zeile in die ListBox eintragen
        ListBox1.AddItem Trim(CStr(Tabelle5.Cells(lZeile, 2).Value))
       
        lZeile = lZeile + 1 'Nächste Zeile bearbeiten
       
    Loop
   
End Sub


Private Sub cboHersteller_Change()

End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub Image1_Click()

End Sub



Private Sub Frame1_Click()

End Sub

Private Sub Label10_Click()

End Sub

Private Sub lblArtikelnummer_Click()

End Sub

Private Sub lbldate_Click()

End Sub

Private Sub lblinfo_Click()

End Sub

Private Sub UserForm_Click()

End Sub

   
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then
       MsgBox "Bitte mit dem Button 'Beenden' schließen!", , "Hinweis"
       Cancel = True
   End If
   
End Sub

[WillWissen]

Hi heros22,

n meiner Userform sind mehrere Artikel eingetragen jeder Artikel bekommt ein eigenes Foto und jede Menge Daten diese Daten werden beim Speichern in eine Tabelle geschrieben und beim auswählenaus dieser Tabelle wieder eingefügt nur der pfad zum jeweiligen Bild leider nicht weil ich nicht weiß wie.

magst dir mal deinen Text ansehen? Du schreibst hier völlig ohne Interpunktion. Das ist für die Helfer alles andere als leicht zu lesen (und vllt. zwangsläufig auch zu verstehen).

Bitte gewöhne dir an, an den richtigen Stellen ein Komma und am Satzende einen Punkt zu setzen. Zudem bat dich Stefan um deine Datei (sicherlich darum, dass er dein Problem besser nachvollziehen kann); du stellst nur dein Makro ein. Das alles zusammen erhöht nicht die Motivation zum Helfen.

[schauan]

Hallöchen,

Stefffl hat Dir ja schon einen Ansatz geliefert.

Du trägst schon viele Daten ein, z.B.
Tabelle5.Cells(lZeile, 8).Value = txtMeldeBestand.Text

Da nimmst Du die Angabe zum Bild dazu, z.B. in Spalte I:
Tabelle5.Cells(lZeile, 9).Value = varBild

[heros22]

Danke für die Antwort, aber in diesem Fall wird mir angezeigt dass die Variable varBild nicht definiert ist.

[schauan]

Hallöchen,

in den Postings hier habe ich öfter gelesen:
Dim varBild As Variant

Definiere die Variable ausschließlich außerhalb der einzelnen Sub am Anfang des Moduls, dann wirkt sie auf Modulebene und der Inhalt - also der Pfad zur Bilddatei, wenn schon eine gewählt wurde - steht Dir in allen Makros des Moduls zur Verfügung.