28.04.2021, 11:43 
		
	
	
		hallo,
Ich weiß dass ich nicht 2x Private Sub ComboBox203_Change() ansprechen kann.
Deshalb habe ich den 2. Code damit unter gepack.
Hintergrund:
Und TextBox214 soll nur als Anzeige sein.
Habe es auch schon mit Label versucht, da aktualisiert er es aber nicht in echtzeit.
ComboBox203 ist eine abfrageliste von Tabelle 1
In TextBox214 oder auch Label ist die Anzeige ausgabe, keine dateneingabe. von (TextBox204 & ComboBox203)
in TextBox204 ist Dateneingabe.
ich lege eine Test datei bei, die ist überarbeitet.
TextBox211 ist ein Tippfehler...
Und das probleme ist, dass Daten aus 2 Tabellen bezogen werden muss.
1. Tabelle1 wo die Daten der ComboBox203.
2. Tabelle2 wo die Daten abgespeichert wirt.
Und ich Brauche die ID von Tabelle1, deswegen der Code
Gruß
	
Ich weiß dass ich nicht 2x Private Sub ComboBox203_Change() ansprechen kann.
Deshalb habe ich den 2. Code damit unter gepack.
Code:
TextBox214.Text = TextBox204.Text & ComboBox203.ValueHintergrund:
Und TextBox214 soll nur als Anzeige sein.
Habe es auch schon mit Label versucht, da aktualisiert er es aber nicht in echtzeit.
ComboBox203 ist eine abfrageliste von Tabelle 1
In TextBox214 oder auch Label ist die Anzeige ausgabe, keine dateneingabe. von (TextBox204 & ComboBox203)
in TextBox204 ist Dateneingabe.
ich lege eine Test datei bei, die ist überarbeitet.
TextBox211 ist ein Tippfehler...
Und das probleme ist, dass Daten aus 2 Tabellen bezogen werden muss.
1. Tabelle1 wo die Daten der ComboBox203.
2. Tabelle2 wo die Daten abgespeichert wirt.
Code:
Private Sub ComboBox203_change()
  With Tabelle1
    TextBox202.Text = .Cells(ComboBox203.ListIndex + 2, 2).Value
  End With
  TextBox214.Text = TextBox204 & ComboBox203
End SubUnd ich Brauche die ID von Tabelle1, deswegen der Code
Code:
  With Tabelle1
    TextBox202.Text = .Cells(ComboBox203.ListIndex + 2, 2).Value
  End WithGruß

