AW: Kalender
04.02.2009 22:04:10
Ralf
Hallo Reiner , Hallo Forum
Ich trage von einen anderen Arbeitsblatt wo ich die Adressen und Geburtsdaten hinterlegt
habe ,die Daten in dieses Arbeitsblatt ein. Ich krieg es mit dieser Anweisung hin ,das er mir
zumindest den ersten Fund anzeigt (Hab in mir hingebastelt).Das Problem ist jetzt das er mir
mir nur etwas einschreibt wenn ich i = "mm" also Text in der Spalte T habe und auch nur einen.
Ich würde gerne nach Datum suchen lassen und in Spalte O max 4 Eintragungen untereinander
zulassen.
Sub suchen1()
Dim lngLast As Long, lngLaste As Long
Dim dSumme As Currency
Dim i
Dim lngspalten
Worksheets("Tabelle21").Activate
With Worksheets("Tabelle21")
i = "mm"
Dim rSuche As Range, rSuchen As Range, rFinde As Range, rFinden As Range, strErste As _
String, reihe As Long
Dim reihen As Long, strErsten As String
For lngLast = 2 To 15
For lngLaste = 2 To 15
Set rFinde = .Range("B2:N65536")
Set rFinden = .Range("T2:T15")
Set rSuche = rFinde.Find(what:=i, lookAt:=xlWhole, LookIn:=xlValues)
Set rSuchen = rFinden.Find(what:=i, lookAt:=xlWhole, LookIn:=xlValues)
If Not rSuche Is Nothing And Not rSuchen Is Nothing Then
strErsten = rSuchen.Address
strErste = rSuche.Address
Do
If .Cells(lngLaste, 14) = rSuche.Offset(0, 0) And .Cells(lngLast, 20) = rSuchen.Offset(0, _
0) Then
reihe = rSuche.Row
reihen = rSuchen.Row
.Range("O" & reihe) = .Range("S" & reihen)
Exit Do
End If
Set rSuche = rFinde.FindNext(rSuche)
Set rSuchen = rFinden.FindNext(rSuchen)
Loop While Not rSuche Is Nothing And rSuche.Address strErste
End If
Next
Next
End With
End Sub
Gruss
Ralf