Ich möchte mittels Makro gewisse Zeilen in der UserForm_Initialize ändern:
Z.B.:
vorher:
For intCounter = 2 To 500
'For intCounter = 501 To 1000
'For intCounter = 1001 To 2000
nachher:
'For intCounter = 2 To 500
For intCounter = 501 To 1000
'For intCounter = 1001 To 2000
Wie müßte ich hier bitte vorgehen, bzw. wäre so etwas möglich?
Danke
Josef
Private Sub UserForm_Initialize()
With frmInTextBox
.Height = Application.Height
.Width = Application.Width
End With
Dim intCounter As Integer
For intCounter = 2 To 500
cboListe.AddItem Cells(intCounter, 2)
Next intCounter
cboListe.ListIndex = 0
For intCounter = 2 To 500
cboListe1.AddItem Cells(intCounter, 5)
Next intCounter
cboListe1.ListIndex = 0
For intCounter = 2 To 500
cboListe2.AddItem Cells(intCounter, 1)
Next intCounter
cboListe2.ListIndex = 0
For intCounter = 2 To 500
cboListe3.AddItem Cells(intCounter, 23)
Next intCounter
cboListe3.ListIndex = 0
End Sub