Private
Sub
CommandButton_Eintragen_Click()
Dim
Tabellenende
As
Integer
Dim
GeplanteKosten
Dim
Details
Dim
Kostenart
Dim
Arbeitspaket
Tabellenende = Application.WorksheetFunction.CountA(Worksheets(
"Rohdaten"
).Range(
"A:A"
))
Dim
x
As
Integer
x = ListBox_Arbeitspaket.ListIndex
If
x = -1
Then
MsgBox
"Nichts ausgewählt!"
End
Else
GeplanteKosten = UserForm2.TextBox_Geplante_Kosten.Text
Details = UserForm2.TextBox_Details.Text
Kostenart = UserForm2.ComboBox_Kostenart.Text
Arbeitspaket = UserForm2.TextBox_Arbeitspaket.Text
x = x + 2
If
Worksheets(
"Rohdaten"
).Cells(x, 1) = UserForm2.TextBox_BudgetPostenNr.Text
Then
MsgBox
"Prüfung auf Zeilennr. positiv"
Worksheets(
"Rohdaten"
).Cells(x, 3) = Arbeitspaket
MsgBox
"erster Wert eingetragen"
Worksheets(
"Rohdaten"
).Cells(x, 5) = Kostenart
MsgBox
"zweiter Wert eingetragen"
Worksheets(
"Rohdaten"
).Cells(x, 6) = Details
Worksheets(
"Rohdaten"
).Cells(x, 7) = GeplanteKosten
End
If
End
If
MsgBox
"Die Änderung wurde eingetragen."
Unload UserForm2
End
Sub