AW: nein
19.07.2016 14:45:45
Friedl
Hallo Michael,
Mit diesem Code schreibe ich die Daten der Userform in die Tabelle.
Private Sub CommandButton3_Click()
Dim letzte_Zeile As Long
' Datensatz neu speichern
If Nummer_Vorhanden = True Then
If MsgBox("Dieser Datensatz existiert bereits !" & vbCrLf & vbCrLf & _
" Möchten Sie ihn überschreiben ?", vbQuestion + vbYesNo + vbDefaultButton2, " _
Nachfragen") = vbYes Then
CommandButton2_Click
Exit Sub
Else
Bol = False
Unload UserForm_Anmeldung
Exit Sub
End If
Else
With Worksheets("Anmeldung")
letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(letzte_Zeile, 1) = .Cells(letzte_Zeile - 1, 1) + 1
.Cells(letzte_Zeile, 2) = TextBox1.Text
.Cells(letzte_Zeile, 3) = ComboBox1.Text
.Cells(letzte_Zeile, 4) = TextBox2.Text
.Cells(letzte_Zeile, 5) = TextBox3.Text
.Cells(letzte_Zeile, 6) = TextBox4.Text
.Cells(letzte_Zeile, 7) = TextBox5.Text
.Cells(letzte_Zeile, 8) = TextBox6.Value
.Cells(letzte_Zeile, 9) = TextBox7.Text
.Cells(letzte_Zeile, 10) = TextBox8.Text
.Cells(letzte_Zeile, 11) = TextBox9.Text
.Cells(letzte_Zeile, 12) = TextBox10.Text
.Cells(letzte_Zeile, 13) = TextBox11.Text
.Cells(letzte_Zeile, 14) = TextBox12.Text
.Cells(letzte_Zeile, 15) = TextBox13.Text
.Cells(letzte_Zeile, 16) = TextBox14.Text
.Cells(letzte_Zeile, 17) = TextBox15.Text
.Cells(letzte_Zeile, 18) = ---------------------Hier sollte die Formel übergeben werden
End With
ClearAll
ComboBox1.SetFocus
End If
End Sub