Vergleich & Bereichskopie
13.01.2006 21:26:12
Peter
ich möchte nach einem Vergleich von Spalte1 der beiden Tabellen
einen best. Tagesbereich koieren.
Wenn ich den im Bsp. Markierten Bereich markiere, tritt ein Fehler auf.
Wer kann helfen?
Danke Peter
Sub KopieTagesbereich()
Set QSh = Worksheets("Quelle")
Set ZSh = Worksheets("Jan 2006")
intMonat = Month(Date)
intJahr = Year(Date)
AktTag = Weekday(Date)
Spalte = 2 * Weekday(Date)
lngLastRow = ZSh.Cells(Rows.Count, 1).End(xlUp).Row
If ActiveSheet.Name = _
Format(DateSerial(intJahr, intMonat, 1), "mmm YYYY") Then
For lngRow = 9 To lngLastRow
var = Application.Match(ZSh.Cells(lngRow, 1), _
QSh.Columns(1), 0)
If Not IsError(var) Then
ZSh.Cells(lngRow, 5).Value = _
QSh.Cells(var, Spalte).Value
'---Dieser Bereich soll bei Übereinstimmung kopiert werden
'Fehler>>> 'ZSh.Range(Cells(lngRow, 5), Cells(lngRow, 6)).Value = _
QSh.Range(Cells(var, Spalte), Cells(var, Spalte+1)).Value
End If
Next lngRow
End If
End Sub