Gruppe
Dialog
Problem
Die TextBoxes in Spalte C sollen entsprechend der ComboBox-Auswahl in Spalte A auf die entsprechenden Daten im Blatt Monate zugreifen. Lösung über die LinkedCell-Eigenschaften und die Formeln in C1:C3.
ClassModule: frmSetValues
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdInsert_Click()
Dim iRow As Integer
For iRow = 0 To lstValues.ListCount - 1
If lstValues.Selected(iRow) Then
Cells(iRow + 1, 2).Value = txtValue.Text
End If
Next iRow
End Sub
Private Sub UserForm_Initialize()
lstValues.List = Range("A1").CurrentRegion.Value
End Sub
StandardModule: Modul1
Sub InsertValues()
frmSetValues.Show
End Sub