werte aus textbox u. combobox mit tabellenwert verrechnen

Question

Hallo, ich habe vor mir eine kleine automatisierte tabelle für unsere firma zu erstellen . man wählt in der combobox das material aus (z.b. Druckverschlussbeutel) dann gibt man in die textbox die menge der ware ein und klickt dann auf speichern. dann soll die eingegebene zahl mit datum eingetragen werden..
hier mal ein screenshot

die Daten für die Combobox sollen aus den zellen B1... E1.. H1 usw kommen
in die erste zeile müsste das Datum (wenn das möglich ist) und die Werte aus der Textbox werden dann mit aktuellen Datum in die letzte Zelle eingetragen. Ich weiss nicht ob das so geht wie ich mir das vorstelle.


for i=1 to ??? .end(xlUP).row ????
mit ComboBox2.RowSource = Worksheets("input").Cells(1,i) in ner schleife geht es irgendwie nicht

eventuell wisst ihr ja wie ich das realisieren kann
#mfg

Answer 1

Hi,

eine hochgeladene Arbeitsmappe ist immer hilfreicher als ein Bild, denn selbst Excel2010 kann ein Bild nicht in eine Arbeitsmappe zurückwandeln. ;-)

Private Sub CommandButton1_Click()
Dim raZelle As Range
Dim loLetzte As Long
Set raZelle = Rows(1).Find(ComboBox1, lookat:=xlWhole)
loLetzte = IIf(IsEmpty(Cells(Rows.Count, raZelle.Column)), Cells(Rows.Count, raZelle.Column).End(xlUp).Row, Rows.Count)
Cells(loLetzte + 1, raZelle.Column).Offset(0, 1) = CDbl(TextBox1)
Cells(loLetzte + 1, raZelle.Column).Offset(0, -1) = Date
Set raZelle = Nothing
End Sub

Bis später,
Karin