Nun meine Liebe,
GFS ist eine Abkürzung für:
Geführte Fehlersuche, Geringfügigkeitsschwelle, Global File System u.a
CommandButton u. Listbox sind gemeinhin Objekte aber:
können als Formularsteuerelemente oder Active-X-Controls und erstere auch
als Bestandteil einer Userform aufkeimen
Dann nehmen wir in Tabelle1, dem aktiven Arbeitsblatt einen Bereich für die fraglichen
Materialien u. Werte zu - zum Bleistift Spalte "X" und "Y", kannst sie ja auch "verbergen"
Mat1 0,5
Mat2 0,8
Mat usw. in "X" und 0. in "Y" untereinander
Als Steuerelemente Active-X-Controls und zwar
1 x CommandButton1 und
1 x ListBox1
Dazu ins Klassenmodul der Tabelle1 diesen Code
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | Private Sub CommandButton1_Click()
Dim rng As Range, c As Range
If Len(Range( "A1" ).Formula) = 0 Then
Set c = Columns(24)
Set rng = Range(c.Cells(1), c.Cells(c.Cells.Count). End (xlUp))
With ActiveSheet.ListBox1
.Clear
For Each c In rng
.AddItem c.Value
Next
.Visible = True
End With
Exit Sub
End If
End Sub
Private Sub ListBox1_Click()
Range( "A1" ).Value = Columns(24).Find(ListBox1.Value).Offset(, 1).Value
ListBox1.Visible = False
End Sub
|
|