bin mir hierbei nicht ganz sicher ob das so klappt.
Möchte mit dier Funktion ("SearchOEM"), die ein Namen ("OEMName") zurückgibt, falls in einem Bereich ("ODMArea") ein Suchname ("ODMName") vorkommt.
Die Namen die diese Fkt. zurückgibt möchte ich in einem Array Speichern und an eine Funktion Übergeben die ListBoxen ("AddListBox") erstellt und Diese Namen in die Liste einträgt:
Soweit bin ich bisher:
Funktion "Search OEM":
Private Function SearchOEM(ODMArea As Range, ODMName As String, OEMName As String) As String
Dim Zelle As Range
For Each Zelle In ODMArea
If Zelle.Value = ODMName Then
SearchOEM = OEMName
End If
Next
End Function
AddLB Funktion:
Sub AddListBox(Stelle As Range, OEMName As Variant)
With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:="Forms.ListBox.1", Left:=Stelle.Left, _
Top:=Stelle.Top, Width:=Stelle.Width, Height:=Stelle.Height)
Set LB = Objekt.Object
With LB
.Name = "ODMList" & ActiveSheet.OLEObjects.Count
.Width = 120
.Height = 50
.TextAlign = fmTextAlignCenter
.BorderStyle = fmBorderStyleSingle
.ListStyle = fmListStylePlain
.Font = "Georgia"
.Font.Bold = True
.Font.Size = 16
.IntegralHeight = False
.SpecialEffect = fmSpecialEffectFlat
.MultiSelect = fmMultiSelectSingle
End With
End With
End Sub
hier weiß auch nicht recht den Befehl, damit das Array in die Liste eingelesen wird.
Aufruf im Sheet:
weiß hier nicht recht weiter, wie ich das Array mit den Namen fülle =/
OEMNamen = SearchOEM(Worksheets("Overview").Range("PhilipsODM"), ODMName, "Philips")
Call SearchOEM(Worksheets("Overview").Range("SonyODM"), ODMName, "Sony")
Call SearchOEM(Worksheets("Overview").Range("SamsungODM"), ODMName, "Samsung")
Call SearchOEM(Worksheets("Overview").Range("LGElecODM"), ODMName, "LG Elec.")
AddListBox Cell.Offset(5, 0), OEMNamen
Wäre super, wenn jmd mir sagen kann wie es funzt!
lg
adrian