Werte bestimmter Zellen in anderes Tabellenblatt

Bild

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
Bild


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).


Bild


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


 Bild

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