Hallo liebe Community,

ich schreibe derzeit für die Uni ein VBA-Tool und könnte bitte Hilfe gebrauchen.

Ich habe von einem netten Menschen ein Quellcode bekommen, der mir sehr geholfen hat. Allerdings verstehe ich nicht recht, was dort passiert.

Ich wäre dir/euch sehr dankbar, wenn du/ihr mir folgendes erläutern könnt:

(Mit Erläuterung, meine ich natürlich nicht, dass ihr mir jetzt sagt, dass die Daten aus einem Textfeld neben einem Drop-Down-Element in  eine entsprechende Zeile im Excel-Sheet geschrieben werden... :)  Das weiß ich! ich muss verstehen, was die Anweisungen bedeuten. Vielleicht, kann ja jemand ein paar Kommentare abgeben...)

Option Explicit

Private m_rngCBSource1 As Excel.Range

...

Private Sub CommandButton2_Click()

Dim rngArea As Excel.Range
Dim rngCell As Excel.Range
Dim i As Long
   
  If ComboBox1.ListIndex = -1 Then GoTo Weiter
    
   
    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 = TextBox7.Text
         End If

...

end sub

Private Sub UserForm_Initialize()
   
  Set m_rngCBSource1 = Worksheets("Substrate").Range("A2:A23,A25:A36,A38:A45").Cells

...

 Dim rngCell As Excel.Range
   
  For Each rngCell In m_rngCBSource1
    ComboBox1.AddItem rngCell.Text
  Next

....

VIELEN VIELEN DANK IM VORAUS