|
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
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
'
'hier der Rest der Berechnung oder wird mit Formeln weiter ..... ?
'
End Sub
Private Sub ListBox1_Click()
Range("A1").Value = Columns(24).Find(ListBox1.Value).Offset(, 1).Value
ListBox1.Visible = False
'
'hier der Rest der Berechnung oder wird mit Formeln weiter ..... ?
'
End Sub
|