Frage zum füllen ComboBox
02.12.2008 12:37:56
ray
ich möchte eine ComboBox auf einem Sheet der Datei maske.xls mit bestimmten Zeilen eines Sheets füllen:
Quellmappe: F:\data\mängelliste.xls Sheet mängel
bestimmte Zeile: Zahl die in Label 'lbWhg' steht z.b. 612
Achtung: Die gesuchten Zahlen stehen in Spalte B der Quelle.
So gehts leider nicht:
Private Sub CommandButton6_Click()
ShowCharacter ("612")
End Sub
Private Sub ShowCharacter(Char As String)
Dim stRng As Double
Dim endRng As Double
Dim i As Integer
On Error Resume Next
'With ActiveSheet
With Sheets("wohnungen")
stRng = WorksheetFunction.Match(Char & "*", .Range("b:b"), 0)
'xxxxxxxxx
If Err.Number 0 Then
Err.Clear
MsgBox "Es wurden keine Einträge für den Buchstaben '" & Char & "' gefunden.", _
_
vbInformation, "Hinweis zur Abfrage"
Exit Sub
End If
'xxxxxxxxx
For i = 1 To 1000
'MsgBox "" & Char
endRng = WorksheetFunction.Match(Chr(i) & "*", .Range("b:b"), 0)
If Err.Number 0 Then
Err.Clear
End If
If endRng > 0 Then
Exit For
End If
Next i
If endRng = 0 Then
endRng = .Cells(.UsedRange.Rows.Count, .Range("b:b").Column).End(xlUp).Row + 1
End If
ListBox1.RowSource = "wohnungen!b" & stRng & ":b" & endRng - 1
End With
End Sub
Viele Grüße aus Hamburg
Ray
Anzeige