benötige Hilfe bei Suchmakro
14.06.2004 09:03:22
Peter
Bei Übereinstimmung des gefundenen Suchbegriffes soll der
Bereich 'Cells(lngRow, 1), Cells(lngRow, 10))" aus der Tab. "Tmp"
ab Spalte 5 im Moatsblatt eingefügt werden.
Aber irgendwas ist falsch.
Danke für die Hilfe Peter
Sub VorhDatenEinlesen()
Dim shBlatt1, shBlatt2 As Worksheet
Dim strFind As String
Dim lngRow As Long
Dim rngFind As Range
Set shBlatt1 = Worksheets("Tmp")
Set shBlatt2 = Worksheets(Format(DateSerial(1, intMonat, 1), "mmmm")) 'hier wird gesucht
For lngRow = 1 To shBlatt1.Cells(65536, 1).End(xlUp).Row
Set rngFind = shBlatt2.Columns(1).Find(shBlatt1.Cells(lngRow, 1))
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Do
'gesuchten tem. Bereich in das Monatsblatt kopieren
'shBlatt2.Range(Cells(rngFind.Row, 5), Cells(rngFind.Row, 256)) = "xx" 'OK
'shBlatt2.Cells(rngFind.Row, 5) = shBlatt1.Cells(lngRow, 1) 'OK
'Fehlerzeile************
shBlatt2.Range(Cells(rngFind.Row, 5), Cells(rngFind.Row, 6)) = shBlatt1.Range(Cells(lngRow, 1), Cells(lngRow, 10))
Set rngFind = shBlatt2.Columns(1).FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> strFind
End If
Next
End Sub