ich habe in einer Userform für jeden Buchstaben einen Button ( A...Z).
Wenn ich nun z.B. auf den Button B drücke sollen aus dem Tabellenblatt Telefon alle Einträge mit B in eine Listbox übernommen werden und zwar in 5 Spalten.
Leider habe ich irgendeinen Fehler in meinem Code.
Private Sub cmdA_Click()
Dim i As Integer
Dim z As Integer
Dim Eintrag As Name
z = 2
Sheets("Telefon").Activate
Cells(z, 1).Select
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Left(ActiveCell.Value, 1) = "A" Then
With lstTelefon
.ColumnCount = 5
.ColumnHeads = True
.RowSource = "Telefon!A:E"
.ColumnWidths = "3cm;8cm;3cm;4cm;3cm"
AddItem.Eintrag ' Hier ist der Fehler !
End With
End If
z = z + 1
Cells(z, 1).Select
Next
End Sub
Kann mir mal jemand auf die Sprünge helfen ?
Gruß aus Mainhatten
Rainer