Inhalt aus Userform in Tabelle
12.07.2015 20:52:20
P-Quest
ich versuche gerade meine Daten aus dem Userform in die Tabelle zu übertragen, was immer mit der Meldung Objekt unterstüzt die Methode nicht, abgebrochen wird.
Meine Idee war, die Textfelder und die Comboboxen meines Userforms in einer Matreix abzulegen, damit ich keine 11 Zeilen anlegen muss. Aber die Zeit zur Fehlersuche dauert nun schon länger, als das eintippen der Codezeilen.
Kann mir jemand sagen, was an meiner Sub falsch ist?
Private Sub cmdSaveNext_Click()
Dim lngLastRow As Long
Dim ws As Worksheet
Dim vntFelder As Variant
Dim UF As UserForm
Dim i As Byte
Set UF = UFStammdaten
Set ws = Worksheets("Stammdaten")
lngLastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
vntFelder = Array("txtID", "cbName", "cbLieferant", "cbHerkunft", "cbSorte", "cbGeschmack", " _
txtBemerkung", "txtJahr", "cbLagerart", "cbLagerort", "txtPreis")
For i = 0 To UBound(vntFelder)
ws.Range(Cells(lngLastRow + 1, i + 1)).Value = UF.Controls(vntFelder(i)).Value
Next
End Sub
Peter
Anzeige