AW: ListBox soll nur gefilterte daten zeigen
27.11.2006 15:36:11
achim
Hallo rudi
habe das von dir vorgeschlagene makro in meine routine eingebaut aber leider bekomme ich eine fehlermeldung.(ListBox1.AddItem zelle)
stelle mal meinen gesamten code ein und kannst du mal schauen?
Private Sub okPersEingabe_click()
With Frame2
Sheets("Listen").Select
Range("L:L").Select
Selection.Find(What:=.TextBox1.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.TextBox2.Value = ActiveCell.Offset(0, 1).Value 'NachName
.TextBox3.Value = ActiveCell.Offset(0, 2).Value 'Vorname
.TextBox4.Value = ActiveCell.Offset(0, 4).Value 'geb
.TextBox5.Value = ActiveCell.Offset(0, 8).Value 'alter
.TextBox6.Value = ActiveCell.Offset(0, 3).Value 'orga
.TextBox7.Value = ActiveCell.Offset(0, 9).Value 'Beschäftigungszeit
.TextBox8.Value = ActiveCell.Offset(0, 5).Value 'eintritt am
.TextBox9.Value = ActiveCell.Offset(0, 6).Value 'austritt am
Sheets("Zwangsbremsungen").Select
Dim pnr1 As Variant
pnr1 = .TextBox1.Value
With Range("L1")
.AutoFilter Field:=12
.AutoFilter Field:=12, Criteria1:="=" & pnr1
End With
End With
Dim i As Integer
Sheets("Zwangsbremsungen").Activate
i = ActiveSheet.UsedRange.Rows.Count
With Grunddaten.ListBox1
.ColumnCount = 3
.ColumnHeads = True
.RowSource = "Zwangsbremsungen!A2:C" & i
.ColumnWidths = "2cm;2,5cm;4cm"
End With
Dim zelle As Object
Dim zl As Long
With Sheets("Zwangsbremsungen")
zl = .[A65536].End(xlUp).Row
For Each zelle In .Range("A2:C" & zl).SpecialCells(xlVisible)
ListBox1.AddItem zelle
Next
End With
End Sub
danke achim h.