Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

VBA, Makro

VBA, Makro
22.09.2003 14:00:32
Holger
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrspaltige ListBox
22.09.2003 15:17:19
ChrisL
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige