Jahreszahl in Suche
21.12.2013 20:19:51
Albert
ich versuch mich grad an der .find-Methode.
In meinem Tabellenblatt befinden sich Einträge mit einem Datum in einer Spalte.
Nun möchte ich z.B. 2008 suchen. Aber die .find-Methode liefert kein Ergebnis.
Was müsste denn noch in den Code hinein?
Ach ja, das wär mein aktueller Code.
Sub test()
Case Einlagerdatum.Value = True
With Worksheets("Archivliste").Range("G:G")
Me.ListBox1.Clear
Set rngCell = .Find(Stichwortsuche.Text, LookIn:=xlValues, LookAt:= _
xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 9
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset(0, -6).Value ' _
Ordnernummer
.List(.ListCount - 1, 1) = rngCell.Offset(0, -5).Value ' _
Abteilung
.List(.ListCount - 1, 2) = rngCell.Offset(0, -4).Value _
'Kunde
.List(.ListCount - 1, 3) = rngCell.Offset(0, -2).Value _
'Ordnertitel
.List(.ListCount - 1, 4) = rngCell.Offset(0, 4).Value _
'Einlagerdatum
.List(.ListCount - 1, 5) = rngCell.Offset(0, 5).Value _
'Lagerbereich
.List(.ListCount - 1, 6) = rngCell.Offset(0, 6).Value _
'Reihe
.List(.ListCount - 1, 7) = rngCell.Offset(0, 7).Value ' _
Zeile
'.List(.ListCount - 1, 8) = rngCell.Offset(0, 6).Value ' _
Ebene
.ColumnWidths = "1,5cm;2,5cm;3,5cm;3,5cm;3,5cm;1cm; 1cm; 1cm; _
1cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address _
strFirstAddress
Else
MsgBox "Begriff nicht gefunden", 48
End If
End With
End Sub
Danke und GrußA.