VBA Wert zurückschreiben
21.12.2020 07:08:05
Lehmann
ich habe noch nicht lange mit vba zu tun und habe mir nun etwas zusammengebastelt jetzt bin ich allerdings an einen punkt angelangt wo ich nicht mehr weiter komme.
Folgendes:
ich habe eine Tabelle "Lieferanten" und eine mit "Werkzeugen" mit jeweils einer ListBox kann ich in meiner UserForm kann ich einen Lieferanten und ein Werkzeug anwählen danach gebe ich in einer Textbox z.B. den wert 2 an und drücke auf einen ComandButton somit wird mir in eine Textbox die nun noch vorhandene Anzahl vom Ausgewähltem Werkzeug angezeigt und in eine andere Textbox wird mir der Einkaufspreis der zwei entnommenene Werkeuge angezeigt soweit ist das auch alles wie ich es möchte. Nun möchte ich allerdings einmal den Preis dem ausgewähltem lieferanten zuweisen und einmal die nun noch vorhandenen Werkzeuge vom ausgewählem Werkzeug zuweisen und das ganze speichern.
Hier der download meiner Arbeistmappe
https://www.herber.de/bbs/user/142472.xlsm
Private Sub CommandButton1_Click()
ListBox1.BoundColumn = 7
If Not IsNumeric(ListBox1) Or Not IsNumeric(TextBox2) Then Exit Sub
TextBox1 = CDbl(ListBox1.Value) * CDbl(TextBox2.Value)
ListBox1.BoundColumn = 1
TextBox3 = CDbl(ListBox1.Value) - CDbl(TextBox2.Value)
ListBox2.BoundColumn = 3
TextBox1 = CDbl(ListBox2.Value) + CDbl(TextBox1.Value)
End Sub
Private Sub CommandButton2_Click()
Worksheets("Lieferanten").Activate
Worksheets("Werkzeuge").Activate
MsgBox "Fräser wurden gebucht"
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
TextBox1 = ""
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub CommandButton4_Click()
ListBox2 = ""
ListBox1 = ""
TextBox2 = ""
TextBox1 = ""
TextBox3 = ""
TextBox5 = ""
TextBox4 = ""
End Sub
Private Sub CommandButton5_Click()
ListBox1.BoundColumn = 1
If Not IsNumeric(ListBox1) Or Not IsNumeric(TextBox4) Then Exit Sub
TextBox5 = CDbl(ListBox1.Value) + CDbl(TextBox4.Value)
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub UserForm_Activate()
Dim iRow As Integer
iRow = Sheets("Lieferanten").Cells(Rows.Count, 4).End(xlUp).Row
UserForm1.ListBox2.RowSource = "Lieferanten!A1:C10" & iRow
End Sub
Private Sub UserForm_Initialize()
Dim iRow As Integer
iRow = Sheets("Werkzeuge").Cells(Rows.Count, 4).End(xlUp).Row
UserForm1.ListBox1.RowSource = "Werkzeuge!A7:Z600" & iRow
End Sub