Entschuldigt bitte mein "flamen", aber ich muss doch noch mehr nachfragen (ich bin eben interessiert; also nehmt es mir nicht übel)
Habe das jetzt ausprobiert und
"Private m_rngCBSource1 As Excel.Range" 10 mal eingefügt (CBSource1 .. CBsource10),
" Set m_rngCBSource1 = Worksheets("Substrate").Range("A2:A23,A25:A36,A38:A45").Cells" 10 mal eingefügt und
" For Each rngCell In m_rngCBSource1
ComboBox1.AddItem rngCell.Text
Next " 10 mal eingefügt.
Beim Test sieht es so aus, dass es läuft und alle ComboBoxen die entsprechenden Inhalte anzeigen. Wenn ich nun allerding den Weiter-Button drücke (er heißt bei mir "Weiter3" trägt er mir nur den Wert aus Textfeld 1 ein.
Nun habe ich zunächst versucht, das Problem selbst zu lösen.
Ich sehe, dass in deinem Quellcode folgendes passiert:
Private Sub Weiter3_Click()
Dim rngArea As Excel.Range
Dim rngCell As Excel.Range
Dim i As Long
If ComboBox1.ListIndex = -1 Then Exit Sub
i = ComboBox1.ListIndex + 1
For Each rngArea In m_rngCBSource1.Areas
If i > rngArea.Cells.Count Then
i = i - rngArea.Cells.Count
Else
Set rngCell = rngArea.Cells(i)
Exit For
End If
Next
If Not rngCell Is Nothing Then
rngCell(ColumnIndex:="C").Value = TextBox1.Text
End If
Hier versagen leider meine Informatikkentnisse... Ich habe, da ja überall "TextBox1" steht, eben diesen Block auch 10 mal eingefügt und TextBox1 durch TextBox2-Textbox 9 ersetzt.
Allerdings übernimmt er stets nur den ersten Wert. Was tun sprach Zeus...
Ich bin euch dankbar und hoffe, dass Ihr mir weiterhelft
Danke dafür im Voraus
|