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