2 Werte aus verschiedenen Tabellen
09.06.2020 13:55:11
Päde
Ich möchte mit einem Button je einen Wert aus einer Zelle in unterschiedlichen Tabelle in der jeweiligen Textbox anzeigen.
Dann auch noch mit einem anderen Button die entsprechenden Zellen leeren.
Hier meine Codes:
Private Sub CommandButton1_Click()
Sheets("Balimpex DE-CH").Select
Unload Me
End Sub
Private Sub CommandButton2_Click()
Sheets("Gebr Weiss DE-CH").Select
Unload Me
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub CommandButton4_Click()
TextBox3.Text = Worksheets("Balimpex DE-CH").Range("f14").Value
TextBox6.Text = Worksheets("Gebr Weiss DE-CH").Range("n15").Value
End Sub
Private Sub CommandButton5_Click()
TextBox1 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
Sheets("Balimpex DE-CH").Range("F2:F5").ClearContents
Sheets("Gebr Weiss DE-CH").Range("n2:n5").ClearContents
End Sub
Private Sub TextBox1_Change()
Sheets("Balimpex DE-CH").Range("F2").Value = TextBox1.Text
Sheets("Gebr Weiss DE-CH").Range("n2").Value = TextBox1.Text
End Sub
Private Sub TextBox4_Change()
Sheets("Balimpex DE-CH").Range("F3").Value = TextBox4.Text
Sheets("Gebr Weiss DE-CH").Range("n3").Value = TextBox4.Text
End Sub
Private Sub TextBox5_Change()
Sheets("Balimpex DE-CH").Range("F5").Value = TextBox5.Text
Sheets("Gebr Weiss DE-CH").Range("n5").Value = TextBox5.Text
End Sub
Private Sub TextBox7_Change()
Sheets("Balimpex DE-CH").Range("F4").Value = TextBox7.Text
Sheets("Gebr Weiss DE-CH").Range("n4").Value = TextBox7.Text
End Sub
Leider ist meine Datei zu gross um sie anzuhängen. Daher versuche ich es auf diesem Weg.
Bei einem Wert funktioniert der Code wunderbar.
Ich bedanke mich jetzt schon für eure Hilfe.
Gruss
Päde