Private Sub cmdOK_Click()
'Daten in Tabelle schreiben
Sheets("Artikel-DB_VKF").Activate
Range("A65536").End(xlUp).Offset(8, 2).Select
With UserFormDB
ActiveCell.Value = .txtNr.Value
ActiveCell.Offset(0, 1).Value = .txtArtikel.Value
ActiveCell.Offset(0, 2).Value = .cbArtikelGruppe.Value
ActiveCell.Offset(0, 3).Value = .cbKategorie.Value
ActiveCell.Offset(0, 4).Value = .txtDatum.Value
ActiveCell.Offset(0, 5).Value = .txtPreis.Value
ActiveCell.Offset(0, 6).Value = .cbKre.Value
ActiveCell.Offset(0, 7).Value = .txtStrasse.Value
ActiveCell.Offset(0, 8).Value = .txtPlz.Value
ActiveCell.Offset(0, 9).Value = .txtOrt.Value
ActiveCell.Offset(0, 10).Value = .txtTel.Value
ActiveCell.Offset(0, 11).Value = .txtFax.Value
ActiveCell.Offset(0, 12).Value = .txtMail.Value
End With
End Sub