|
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
|