Thema Datum  Von Nutzer Rating
Antwort
Rot Grafik über UserForm in Zelle einfügen
 27.09.2017 18:31:03 pepo
NotSolved
27.09.2017 19:00:55 Gast36765
NotSolved

Ansicht des Beitrags:
Von:
pepo		 Datum:
27.09.2017 18:31:03		 Views:
1115		 Rating:
     
Antwort:
  Ja
Thema:
Grafik über UserForm in Zelle einfügen
Hallo Zusammen, ich bin ein absoluter Neuling in VBA. alle meine Codes sind mühselig aus dem Internet gezogen, aber jetzt komm ich einfach nicht mehr weiter. Ich hoffe ihr könnt mir helfen. Ich habe ein Formular erstellt um Fehler zu erfassen und in eine Excel einzutragen. Das Formular besteht aus 9 TextBoxen und einem Image. Uber einen Botton wird ein Bild ausgewählt und als Vorschau in das Image eingefügt. Nun soll dieses Bild (nicht als Link)und der Text nach betätigen des Bottons Einfügen in die Excel eingetragen werden. Mein Code: ---------------------------------------------------------------------------------------------------------------- Private Sub CommandButton1_Click() Dim varBild As Variant varBild = Application.GetOpenFilename("Bilder ((*.jpg;*.bmp;*.gif),*.jpg, *.bmp, *.gif") If Not varBild = False Then Image_Bild.Picture = LoadPicture(varBild) Image_Bild.PictureSizeMode = fmPictureSizeModeStretch End If End Sub ---------------------------------------------------------------------------------------------------------------- Private Sub CommandButton_Einfügen_und_neuer_Eintrag_Click() Dim z As Long With Worksheets("Fehlererfassung") z = 4 While .Cells(z, "A") <> "" z = z + 1 Wend .Rows(z).Insert .Cells(z, "A") = Fehlererfassung_WLT.TextBox_Datum .Cells(z, "B") = Fehlererfassung_WLT.TextBox_Projektnr .Cells(z, "C") = Fehlererfassung_WLT.TextBox_Baugruppennr .Cells(z, "D") = Fehlererfassung_WLT.TextBox_Index .Cells(z, "E") = Fehlererfassung_WLT.TextBox_Baugruppenbez .Cells(z, "F") = Fehlererfassung_WLT.TextBox_Fehler .Cells(z, "G") = Fehlererfassung_WLT.Image_Bild.Picture .Cells(z, "H") = Fehlererfassung_WLT.TextBox_Lösung .Cells(z, "I") = Fehlererfassung_WLT.TextBox_Maßnahmen .Cells(z, "J") = Fehlererfassung_WLT.TextBox_Bemerkung .Cells(z, "K") = Fehlererfassung_WLT.TextBox_Verantwortliche .Range("M" & z & ":IV" & z).FormulaR1C1 = _ .Range("M" & z & ":IV" & z).Offset(-1, 0).FormulaR1C1 End With End Sub ---------------------------------------------------------------------------------------------------------------- Ergebnis: - Richtige Zeile wird ausgewählt - Der Text wir in der Richtigen Spalte eingefügt - Das Bild wird als Zahlenkombination in die Richtige Zelle eingefügt (Was ist hier falsch ?) mit freundlichen Grüßen Pepo

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Grafik über UserForm in Zelle einfügen
 27.09.2017 18:31:03 pepo
NotSolved
27.09.2017 19:00:55 Gast36765
NotSolved