Code:

Sub CommandButtonabbrechen_Click()

Unload Me

End Sub

Sub CommandButtonerfassen_Click()

'Erste freie Zeile ausfindig machen

Dim last As Integer

last = Worksheets("Tabelle2").Cells(Rows.Count, 3).End(xlUp).Row + 1

Cells(last, 3).Value = "Neu"

'Datum

Cells(last, 3).Value = TextBoxdatum

'XXX

Cells(last, 4).Value = XXX

'XXX

Cells(last, 5).Value = XXX

'XXX

Cells(last, 6).Value = XXX

'XXX

Cells(last, 7).Value = XXX

'XXX

Cells(last, 8).Value = XXX

'XXX

Cells(last, 9).Value = XXX

End Sub

Sub UserForm_Initialize()

'Datum

TextBoxdatum.Value = Date

'XXX

XXX= "€"

'XXX

XXX= "€"

'XXX

XXX= "€"

'XXX

XXX= "€"

'XXX

XXX

'XXX

XXX= "€"

End Sub

Hallo,

ich will die Datenerfassungsmaske über eine Schaltfläche in Tabelle1 öffnen und in die Daten sollen in einer bestimmen Zelle in Tabelle2 so erfasst werden.

Was muss ich ergänzen oder ändern?

Vielen Dank

PS:

XXX steht für eine Schwärzung