Private
Sub
ComboBox3_Change()
If
ComboBox3.ListIndex > -1
And
ComboBox3.Value <>
""
Then
TextBox5.Value = Format(Worksheets(
"Tabelle1"
).Range(
"AF15"
).Offset( _
Application.WorksheetFunction.Match(ComboBox3.Value, Worksheets(
"Tabelle1"
).Range(
"B16:B20"
), 0)),
"#,##0.00 €"
)
TextBox1.Value = Format(
CDbl
(TextBox5),
"#,##0.00 €"
)
Else
TextBox5.Value =
""
End
If
End
Sub
Die UF ist in Tabelle2 aktiv!
Wenn Name ausgewählt B16 Tabelle1 und wert aus AF16 in TB5 eingetragen dann
"x"
in AG16 eintragen
Vielen Dank für eure Hilfe
Silke