Werte bestimmter Zellen in anderes Tabellenblatt
10.10.2003 13:50:51
Andreas
Habe es auf diesem Weg probiert, bringt aber oben genannten Fehler.
Sub uebertragen()
Dim IRow As Long
With Worksheets("daten ps (primecast)")
IRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("aa2:ai2").Copy .Cells(IRow, 1)
.Range(.Cells(IRow, 10), .Cells(IRow, 10)).Value = Date
End With
Application.CutCopyMode = True
End Sub
Wäre glücklich für eine funktionierende Lösung