VBA Benutzerformular Dropdown-Menü Ausführung

Question

Ich habe derzeit diesen Code, mit dem ich das Benutzerformular starten, ein Element in das Textfeld eingeben, das Datum automatisch ausfüllen und aus einem Dropdown-Menü auswählen dann fügen Sie diese Informationen in ein neues ein Reihe.

Das cbm (combo-box) -Element zeichnet seine Werte aus einer separaten dynamisch expandierenden Tabelle und ist ein Dropdown-Menü im Benutzerformular. Das Datum wird basierend auf dem heutigen Datum automatisch ausgefüllt und das Textfeld zeichnet seinen Wert von dem, was der Benutzer eingibt.

Private Sub btnSubmit_Click() 
Dim ssheet As Worksheet 
Set ssheet = ThisWorkbook.Sheets("InputSheet") 
nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 
ssheet.Cells(nr, 3) = CDate(Me.tbDate) 
ssheet.Cells(nr, 2) = Me.cmblistitem 
ssheet.Cells(nr, 1) = Me.tbTicker 

Mein Ziel ist es, je nachdem, welche Listenelement ausgewählt Ich möchte den Namen des betreffenden Objekts in einer Spalte eingefügt werden, die zu diesem Punkt entspricht. wenn der Benutzer "Äpfel" auswählt und die dritte Spalte die "Apfel" -Spalte ist, möchte ich, dass er an dieser Stelle eingefügt wird.

Ich gehe davon aus, dass dies mit einer Art von "If" -Aussage unten sein muss.

Jede Hilfe wird geschätzt. Here is pic of my worksheet

Answer 1

Gesetzt ich meine guessings richtig gemacht, versuchen Sie diesen Code

Option Explicit 

Private Sub btnSubmit_Click() 
    Dim f As Range 

    If Me.cmblistitem.ListIndex = -1 Then Exit Sub '<--| exit if no itemlist has been selected 
    If Len(Me.tbTicker) = 0 Then Exit Sub '<--| exit if no item has been input 

    With ThisWorkbook.Sheets("InputSheet") 
     Set f = .Rows(1).Find(what:=Me.cmblistitem.Value, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=False) '<--| look for proper column header 
     If f Is Nothing Then Exit Sub '<--| if no header found then exit 
     With .Cells(.Cells(Rows.Count, "A").End(xlUp).Row + 1, f.Column) '<--| refer to header column cell corresponding to the first empty one in column "A" 
      .Resize(, 3) = Array(Me.tbTicker.Value, Me.cmblistitem.Value, CDate(Me.tbDate)) '<--| write in one shot 
     End With 
    End With 
End Sub 

es kommentiert, so dass Sie leicht Spalten Referenzen nach Ihren Bedürfnissen

BTW wie für die Combobox Füllung ändern Sie können möchte folgenden Code übernehmen:

Dim cell As Range 
With Me 
    For Each cell In [myName] 
     .cmblistitem.AddItem cell 
    Next cell 
End With 

welche ist optimiert, einmal vor Eintritt in die Schleife auf Me referenziert worden zu sein, so dass es durchgehend ohne weitere Speicherzugriffe gehalten wird