Kann mir jemand helfen ? Habe auf meinen Arbeitsblatt Daten in Spalte R bis T und will sie
meinen Kalender zuordnen .
https://www.herber.de/bbs/user/59103.xls
Gruss
Ralf
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