VBA Wert zurückschreiben
04.01.2021 19:01:32
Lehmann
Hi,
vielen Dank erst einmal hier an alle die mir bis jetzt immer geholfen haben.
folgendes der errechnete Wert aus der TextBox1 kann ich in meine Auswahl aus der ListBox2 in die richtige Zelle zurückschreiben. Das selbe möchte ich bei der ListBox1 mit der Textbox3 machen doch da kommt dann Folgende meldung:
Laufzeitfehler ´91´:
Objektvariable oder With-Blockvariable nicht festgelegt.
Hoffe es ist so halbwegs verständlich
Vielen Dank schon einmal
Private Sub CommandButton1_Click()
ListBox1.BoundColumn = 3
If Not IsNumeric(ListBox1) Or Not IsNumeric(TextBox2) Then Exit Sub
TextBox1 = CDbl(ListBox1.Value) * CDbl(TextBox2.Value)
ListBox1.BoundColumn = 2
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
Set Rng = Worksheets("Lieferanten").Range("A:A").Find(Me.ListBox2.Text)
Rng.Offset(0, 2) = Me.TextBox1.Value
Worksheets("Werkzeuge").Activate
Set Rng = Worksheets("Werkzeuge").Range("A:A").Find(Me.ListBox1.Value)
Rng.Offset(0, 1) = Me.TextBox3.Value
MsgBox "Fräser wurden Entnommen"
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
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 = 2
If Not IsNumeric(ListBox1) Or Not IsNumeric(TextBox4) Then Exit Sub
TextBox5 = CDbl(ListBox1.Value) + CDbl(TextBox4.Value)
End Sub
Private Sub CommandButton6_Click()
Worksheets("Werkzeuge").Activate
Set Rng = Worksheets("Werkzeuge").Range("A:A").Find(Me.ListBox1.Value)
Rng.Offset(0, 1) = Me.TextBox5.Value
MsgBox "Fräser wurden Eingelagert"
TextBox5 = ""
TextBox4 = ""
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub ListBox2_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, 3).End(xlUp).Row
UserForm1.ListBox2.RowSource = "Lieferanten!A1:C" & iRow
iRow = Sheets("Werkzeuge").Cells(Rows.Count, 3).End(xlUp).Row
UserForm1.ListBox1.RowSource = "Werkzeuge!A1:C" & iRow
End Sub