Kennt jemand ShowCharacter(Char As String)
03.12.2008 14:21:00
ray
ich nutzte ShowCharacter(Char As String) um in einer ListBox nur Zeilen einer Tabelle anzuzeigen, die mit "a" beginnen.
Jetzt möchte ich das umbauen, damit es statt mit Buchstaben mit Zahlen funzt.
Weiß jemand wie?
Hier der alte Code, der bei Buchstaben funzt:
Private Sub CommandButton6_Click()
ShowCharacter ("a")
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 Sheets("wohnungen")
stRng = WorksheetFunction.Match(Char, .Range("b:b"), 0)
If Err.Number 0 Then
Err.Clear
MsgBox "Es wurden keine Einträge für '" & Char & "' gefunden.",
Exit Sub
End If
For i = 1 To 1000
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
ComboBox1.RowSource = "wohnungen!b" & stRng & ":b" & endRng - 1
End With
End Sub
Viele Grüße aus dem verscheinten Hamburg mit völlig bekloppten Autofahrern, nur weil Schnee liegt...
Ray