Herbers Excel-Forum - das Archiv

VBA, Makro

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox UserForm
Bild

Betrifft: VBA, Makro
von: Holger
Geschrieben am: 22.09.2003 14:00:32
Habe eine Frage.
Mit welchen Befehlen kann ich Suchergebnisse in einem Listenfeld in Form einer Tabelle ausgeben? (VBA)

Bedanke mich jetzt schon für eure Hilfe

Bild

Betrifft: AW: mehrspaltige ListBox
von: ChrisL
Geschrieben am: 22.09.2003 15:17:19
Hi Holger

Nachstehendes Beispiel habe ich mal für einen anderen Beitrag erstellt.

Option Explicit

Sub suchen()
Dim i As Integer
Dim lngArr As Integer
Dim SuchZelle As Long
Application.ScreenUpdating = False
SuchZelle = 1
With Worksheets("Data")
lngArr = Application.WorksheetFunction.CountIf(.Range("C2:C4800"), SuchZelle)
If lngArr = 0 Then
MsgBox "Keine Einträge gemäss den ausgewählten Kriterien"
Exit Sub
End If
ReDim MyArray(1 To lngArr, 0 To 3)
lngArr = 0
For i = 2 To 4800
If .Cells(i, 3) = SuchZelle Then
lngArr = lngArr + 1
MyArray(lngArr, 0) = .Cells(i, 1)
MyArray(lngArr, 1) = .Cells(i, 3)
MyArray(lngArr, 2) = .Cells(i, 5)
MyArray(lngArr, 3) = .Cells(i, 7)
End If
Next i
UserForm1.ListBox1.ColumnCount = 4
UserForm1.ListBox1.List = MyArray
End With
End Sub


Gruss
Chris
 Bild