ComboFeld (Bedingung) mit Daten verknüpfen
13.04.2017 10:29:59
Enrico
ich habe ein Combofeld (ToolBox) im Userform. Dieses habe ich schon automatisch befüllen lassen. Aber bei mir haperts an der Auswertung und zwar:
Ich habe ein Tabelle mit 6 Spalten. Aus den Werten der ersten Spalte wird die Combobox befüllt:
Private Sub UserForm_Initialize()
Dim intI As Integer
Dim lZeile2 As Long, lRow2 As Long
Worksheets("ToolStageData").Activate
lRow2 = Cells(Rows.Count, 1).End(xlUp).Row
lZeile2 = (lRow2 - 1) + 1
intI = 1
With Me.ToolBox
For intI = 5 To lZeile2
.AddItem Worksheets("ToolStageData").Cells(intI, 1)
Next
End With
End Sub
Die Tabelle wird dynamisch befüllt.
Mein eigentliches Problem besteht aber, dass weiterfolgende Berechnungen sich auf die Spalten B bis F beziehen, wenn A ausgewählt wurde.
D.h. wenn man beispielsweise A6 auswählt, dann soll im weiteren Schritt eine andere Zelle mit B6 bspw. addiert werden. Wenn A7 ausgewählt, dann halt B7.
With MeineTabelle
For X = 2 And y = 1 To lZeile 'Step 5
.Cells(X, 1) = Worksheets("CoordToolStage").Cells(y + 1, 3).Value + ? bzw. wenn in ComboBox Wert ausgewählt, der gleich A6 in Tabelle, dann B6
lngWert = lngWert + 1
y = y + 1
Next
End With
Ich komm da grad nicht weiter....
Danke euch schon mal!!