|
Hallo Experten!
Möchte gerne wenn werte eingelsen wurden in einer andren Spalte ein " x" eintragen.
Mit CB3 werden Namen aus Tabelle1 eingelesen wird ein Name aus CB3 angewählt wird der wert aus einer andern Spalte der gleichen Zeile in TB5 eingetragen.
Ich möchte gerne Das wenn der wert in TB5 eingelesen ist das in der Spalte daneben ein "x "eingetragen wird. das was ich bis jetzt an Codes habe im folgenden.
So werden die Namen in CB3 eingelesen:
ComboBox3.RowSource = "Tabelle1!B16:B20"
und so werden die werte in TB5 eingelesen:
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
|