16.04.2020, 12:36
Hallo,
nun habe ich eine Frage was Bilder in Userformen angeht usw.
Ich habe eine Datenmaske in einer Userform gebaut, wo ich mir die Daten von Teilnehmer*innen hochladen kann oder auch Daten verändern und speichern kann. Nun möchte ich aber folgendes tun. Ich möchte zu jeden'r Teilnehmer*in in der Datenmaske ein Bild zuordnen können und zwar in BildBox Images1. Das möchte ich zuerst natürlich suchen. Dazu habe ich eine Schaltfläche "Bild einfügen'". Nun möchte ich das Bild für den Teilnehmer*in in einer Tabelle"Bilder" speichern und dafür habe ich einen weiteren Button, wo ich über Steuerelemente Toolbox ein Bild in einer Images1 ablegen möchte oder Kopie. Vielleicht muss ich das Bild auch in eine Celle einfügen? Der 3 Button ist zum löschen des Bildes, wenn ich es ersetzen möchte.
Nun soll es zukünftig also so sein, wenn ich nach eine Teilnehmer*in suche und er ihn gefunden hat, dann öffnet sich die Userform mit den Daten des Teilnehmers oder der Teilnehmerin und dann soll auch automatisch das Foto angezeigt werden.
Mein Ansatz dabei war, einen Code in die Userform Initialize einzufügen. Ich möchte dann das der Code weiter geht und zwar, soll er sich da an den Teilnehmernummern orientieren, wie:wenn in "Textbox1 = 1" dann automatisch Bild in Images1 anzeigen. Bei Teilnehmer 2 , dann das gleiche nur "Textbox1 = 2 Then" Hier mein Code, denn ich in die Initialize eingesetzt habe. Aber es funktiert nicht. Ich bin auch in Umgang mit Excel VBA nicht gut
If TextBox1.Value = 1 Then
UserForm2.Image118.Picture = Tabelle7.Image1.Picture
End If
Ein neues Bild in die Userform suchen und laden, hat geklappt und zwar mit
Private Sub cmdBild_Click()
'CommandButton - Bild Auswählen TN 1
Dim strPfad As String
Dim varAuswahl As Variant
'Start-Verzeichnis für die ins Image zu ladenden Bildern
strPfad = ThisWorkbook.Path & Application.PathSeparator & "UF_Grafiken"
With Application.FileDialog(msoFileDialogOpen)
.Title = "Bitte Bild für Userform auswählen"
.InitialFileName = strPfad & Application.PathSeparator
If .Show = -1 Then
varAuswahl = .SelectedItems(1)
Me.Image36.Picture = LoadPicture(varAuswahl)
Else
End If
End With
Was ich nicht hinbekommen ist auch das Speichern und das löschen. Habe mir Online einiges angesehen, aber nicht das richtige gefunden oder eher meine Kenntnisse sind zu klein und ich habe etwas übersehen. Im Anhang ist auch Bild meiner Datenmaske. Ansonsten funktioniert
Hoffe jemand von Euch hat einen Rat oder Lösung, wie ich meine Codes noch ergänzen kann oder muss oder was ich generell falsch vom Ansatz habe.
'End Sub
nun habe ich eine Frage was Bilder in Userformen angeht usw.
Ich habe eine Datenmaske in einer Userform gebaut, wo ich mir die Daten von Teilnehmer*innen hochladen kann oder auch Daten verändern und speichern kann. Nun möchte ich aber folgendes tun. Ich möchte zu jeden'r Teilnehmer*in in der Datenmaske ein Bild zuordnen können und zwar in BildBox Images1. Das möchte ich zuerst natürlich suchen. Dazu habe ich eine Schaltfläche "Bild einfügen'". Nun möchte ich das Bild für den Teilnehmer*in in einer Tabelle"Bilder" speichern und dafür habe ich einen weiteren Button, wo ich über Steuerelemente Toolbox ein Bild in einer Images1 ablegen möchte oder Kopie. Vielleicht muss ich das Bild auch in eine Celle einfügen? Der 3 Button ist zum löschen des Bildes, wenn ich es ersetzen möchte.
Nun soll es zukünftig also so sein, wenn ich nach eine Teilnehmer*in suche und er ihn gefunden hat, dann öffnet sich die Userform mit den Daten des Teilnehmers oder der Teilnehmerin und dann soll auch automatisch das Foto angezeigt werden.
Mein Ansatz dabei war, einen Code in die Userform Initialize einzufügen. Ich möchte dann das der Code weiter geht und zwar, soll er sich da an den Teilnehmernummern orientieren, wie:wenn in "Textbox1 = 1" dann automatisch Bild in Images1 anzeigen. Bei Teilnehmer 2 , dann das gleiche nur "Textbox1 = 2 Then" Hier mein Code, denn ich in die Initialize eingesetzt habe. Aber es funktiert nicht. Ich bin auch in Umgang mit Excel VBA nicht gut
If TextBox1.Value = 1 Then
UserForm2.Image118.Picture = Tabelle7.Image1.Picture
End If
Ein neues Bild in die Userform suchen und laden, hat geklappt und zwar mit
Private Sub cmdBild_Click()
'CommandButton - Bild Auswählen TN 1
Dim strPfad As String
Dim varAuswahl As Variant
'Start-Verzeichnis für die ins Image zu ladenden Bildern
strPfad = ThisWorkbook.Path & Application.PathSeparator & "UF_Grafiken"
With Application.FileDialog(msoFileDialogOpen)
.Title = "Bitte Bild für Userform auswählen"
.InitialFileName = strPfad & Application.PathSeparator
If .Show = -1 Then
varAuswahl = .SelectedItems(1)
Me.Image36.Picture = LoadPicture(varAuswahl)
Else
End If
End With
Was ich nicht hinbekommen ist auch das Speichern und das löschen. Habe mir Online einiges angesehen, aber nicht das richtige gefunden oder eher meine Kenntnisse sind zu klein und ich habe etwas übersehen. Im Anhang ist auch Bild meiner Datenmaske. Ansonsten funktioniert
Hoffe jemand von Euch hat einen Rat oder Lösung, wie ich meine Codes noch ergänzen kann oder muss oder was ich generell falsch vom Ansatz habe.
'End Sub
