Werte bestimmter Zellen in anderes Tabellenblatt

• Werte bestimmter Zellen in anderes Tabellenblatt von Andreas vom 10.10.2003 13:50:51
  • AW: Werte bestimmter Zellen in anderes Tabellenblatt - von WernerB. am 10.10.2003 14:36:04
    • AW: Werte bestimmter Zellen in anderes Tabellenblatt - von Andreas am 10.10.2003 14:49:53

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!!

Beiträge aus den Excel-Beispielen zum Thema " Werte bestimmter Zellen in anderes Tabellenblatt"