|
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
|