Kennt jemand ShowCharacter(Char As String)

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