Private Sub UserForm_Initialize()
ListBox_Arbeitspaket.RowSource = Worksheets("Rohdaten").Range("A2:G39").Address(External:=True)
End Sub
Private Sub CommandButton_Eintragen_Click()
Dim Tabellenende As Integer
Tabellenende = Application.WorksheetFunction.CountA(Worksheets("Rohdaten").Range("A:A"))
Dim x As Integer
For x = 2 To Tabellenende
If Worksheets("Rohdaten").Cells(x, 1) = UserForm2.TextBox_BudgetPostenNr.Text Then
MsgBox "Prüfung auf Zeilennr. positiv"
Worksheets("Rohdaten").Cells(x, 3) = UserForm2.TextBox_Arbeitspaket.Text
MsgBox "erster Wert eingetragen"
Worksheets("Rohdaten").Cells(x, 5) = UserForm2.ComboBox_Kostenart.Text
MsgBox "zweiter Wert eingetragen"
Worksheets("Rohdaten").Cells(x, 6) = UserForm2.TextBox_Details.Text
Worksheets("Rohdaten").Cells(x, 7) = UserForm2.TextBox_Geplante_Kosten.Text
End If
Exit For
Next
MsgBox "Die Änderung wurde eingetragen."
Unload UserForm2
End Sub
Private Sub ListBox_Arbeitspaket_Click()
With ListBox_Arbeitspaket
UserForm2.TextBox_BudgetPostenNr = .List(.ListIndex, 0)
UserForm2.TextBox_Teilprojekt = .List(.ListIndex, 1)
UserForm2.TextBox_Arbeitspaket = .List(.ListIndex, 2)
UserForm2.ComboBox_Kostenart = .List(.ListIndex, 4)
UserForm2.TextBox_Details = .List(.ListIndex, 5)
UserForm2.TextBox_Geplante_Kosten = .List(.ListIndex, 6)
End With
End Sub
Private Sub ComboBox_Kostenart_Change()
ComboBox_Kostenart.RowSource = Worksheets("Kreditoren und TP Zuordnung").Range("E3:E6").Address(External:=True)
End Sub
Private Sub CommandButton_Abbrechen_Click()
Unload UserForm2
End Sub