AW: Suchen und Kopieren
07.02.2006 16:27:29
Peter
Servus,
so generell würde ich dir erstmal raten dir Gedanken zu deinem Tabellenaufbau zu machen und dann so eine Frage zu stellen. Aber what ever, z.B. so.
Sub t()
Dim lzeile(1) As Long, lngSuch(1) As Long
Dim myarr
On Error GoTo Fehler
With Sheets("Sheet1")
lzeile(0) = .Cells(.Rows.Count, 4).End(xlUp).Row
lngSuch(0) = Application.WorksheetFunction.Match("Grand Total", _
.Range("D1:D" & lzeile(0)), 0)
End With
With Sheets("Input")
lzeile(1) = .Cells(.Rows.Count, 1).End(xlUp).Row
lngSuch(1) = Application.WorksheetFunction.Match("Grand Total", _
.Range("A1:A" & lzeile(1)), 0)
myarr = Sheets("Sheet1").Range("D" & lngSuch(0) + 1 & ":D" & lngSuch(0) + 21)
.Range("A" & lngSuch(1) + 1 & ":A" & lngSuch(1) + 21) = myarr
End With
Fehler:
If Err.Number = 1004 Then
MsgBox "Nicht gefunden !", vbCritical
ElseIf Err.Number <> 0 Then MsgBox "Fehler-Nr.: " & Err.Number & " Beschreibung: " & Err.Description, vbCritical, "FEHLER !"
End If
End Sub
MfG Peter