Löschen

Private Sub a_Click()
Sheets("MADaten").Visible = True
Sheets("MADaten").Select
Dim i As Long
For i = 1 To 80 'oder eben bis zum Ende der Einträge
If Left(Cells(i, 1), 1) = "a" Then ListBox2.AddItem (Cells(i, 1))
Next i
End Sub

Private Sub b_Click()

Sheets("MADaten").Visible = True

Sheets("MADaten").Select

Dim i As Long

For i = 1 To 80 'oder eben bis zum Ende der Einträge

If Left(Cells(i, 1), 1) = "b" Then ListBox2.AddItem (Cells(i, 1))

Next i

es funktioniert auch aber drücke ich den button B bleiben alle aufgelisteten Namen von A  _

sichtbar, das möchte ich vermeiden, Ziel wäre ich drücke einen Button und es werden nur die sortierten Namen angezeigt.

Bitte um Hilfe und vielen Dank

Gruß

Herby