Werte bestimmter Zellen in anderes Tabellenblatt
10.10.2003 13:50:51
Andreas
Hallo, habe ein kleines Problem, ich will Werte aus bestimmten Zellen ohne hinterlegte Formeln (bringt Fehler Bezug) in eine andere Tabelle übertragen.
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