Textfeld befüllen

Private Sub txtValue_Change() Dim arr() As Variant Dim iRow As Integer, iCol As Integer, iCounter As Integer If txtValue.TextLength = 9 Then iRow = 2 Do Until IsEmpty(Cells(iRow, 1)) If Cells(iRow, 1) = txtValue.Text Then iCounter = iCounter + 1 ReDim Preserve arr(2 To 4, 1 To iCounter) For iCol = 2 To 4 arr(iCol, iCounter) = Cells(iRow, iCol).Value Next iCol End If iRow = iRow + 1 Loop lstValues.Column = arr End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CB_Ok_Click() 'Command-Buton zur Anzeige des in der Liste ausgewählten Wertes With Me.lstValues MsgBox "Listenauswahl: " & .Value & vbLf _ & "Spalte 2: " & .List(.ListIndex, 1) & vbLf _ & "Spalte 3: " & .List(.ListIndex, 2) End With End Sub Private Sub txtValue_Change() Dim arr() As Variant Dim iRow As Integer, iCol As Integer, iCounter As Integer If txtValue.TextLength = 9 Then iRow = 2 Do Until IsEmpty(Cells(iRow, 1)) If Cells(iRow, 1) = txtValue.Text Then iCounter = iCounter + 1 ReDim Preserve arr(2 To 4, 1 To iCounter) For iCol = 2 To 4 arr(iCol, iCounter) = Cells(iRow, iCol).Value Next iCol End If iRow = iRow + 1 Loop If iCounter > 0 Then lstValues.List = Application.WorksheetFunction.Transpose(arr) ' lstValues.Column = arr End If End If End Sub

Hallo Franz,
habe diese Lösung gefunden. Es scheint zu funzen, hoffe mal, dass das auch wirklich richtig funzt.


Private Sub UserForm_Initialize()
Dim i As Integer
Sheets("Tabelle1").Range("A2:A100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
With frmGrepValues1.ComboBox1
For i = 2 To Worksheets("Tabelle1").UsedRange.Rows.Count
If Worksheets("Tabelle1").Cells(i, 1).Value  _
Worksheets("Tabelle1").Cells(i + 1, 1).Value Then _
.AddItem Cells(i, 1).Value
Next i
End With
End Sub


Private Sub combobox1_Change()
Dim arr() As Variant
Dim iRow As Integer, iCol As Integer, iCounter As Integer
If ComboBox1.TextLength = 4 Then
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
If Cells(iRow, 1) = ComboBox1.Text Then
iCounter = iCounter + 1
ReDim Preserve arr(1 To 4, 1 To iCounter)
For iCol = 1 To 4
arr(iCol, iCounter) = Cells(iRow, iCol).Value
Next iCol
End If
iRow = iRow + 1
Loop
lstValues.Column = arr
End If
End Sub

Auf alle Fälle danke für Deine Mühe und Hilfe!
Gruß
Marc

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textfeld befüllen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread