AW: Textbox soll dieses Format annehmen z.B. A 001
15.05.2006 14:36:25
Bertram
Hi Andre,
das hier kannst du mal als Ansatz nehmen. Bei Fragen fragen:-)
Private Sub TextBox1_AfterUpdate()
Dim Bereich As Range
Dim Zelle As Range
Dim Teilematrix() As String
Me.ListBox1.Clear
ReDim Teilematrix(1, 3)
Set Bereich = ActiveSheet.Range("A4:A27")
On Error GoTo Fehler
Set Zelle = Bereich.Find(What:=Me.TextBox1.Value, lookat:=xlWhole)
Teilematrix(0, 0) = Zelle.Offset(0, 1).Value
Teilematrix(0, 1) = Zelle.Offset(0, 2).Value
Teilematrix(0, 2) = Zelle.Offset(0, 3).Value
ListBox1.List() = Teilematrix
Exit Sub
Fehler:
Exit Sub
End Sub
Gruß
Bertram