Das Archiv des Excel-Forums
Werte bestimmter Zellen in anderes Tabellenblatt
Betrifft: Werte bestimmter Zellen in anderes Tabellenblatt
von: Andreas
Geschrieben am: 10.10.2003 13:50:51
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
Betrifft: AW: Werte bestimmter Zellen in anderes Tabellenblatt
von: WernerB.
Geschrieben am: 10.10.2003 14:36:04
Hallo Andreas,
was hältst Du hiervon:
Option Explicit
Sub uebertragen()
Dim IRow As Long
With Worksheets("daten ps (primecast)")
IRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(IRow, 1), .Cells(IRow, 9)).Value = _
Range("AA2:AI2").Value
.Cells(IRow, 10).Value = Date
End With
Application.CutCopyMode = True
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Betrifft: AW: Werte bestimmter Zellen in anderes Tabellenblatt
von: Andreas
Geschrieben am: 10.10.2003 14:49:53
Salü Werner,
funktioniert einwandfrei, vielen Dank und ein schönes Wochenende!!
Excel-Beispiele zum Thema " Werte bestimmter Zellen in anderes Tabellenblatt"