Zellen kopieren und in letzte Zeile der Tabelle einfügen

[Squal87]

Hallo zusammen :)

Ich habe ein kleines Problem mit VBA und hoffe das mir hier jmd weiterhelfen kann
ich möchte mit dem Code die Zellen I2:J2 Kopieren (nur die Zahlen nicht die Formel)
und möchte sie in die Letzte Zeile meiner formatierten Tabelle in A:B einfügen

meine bisherigen versuche sind alle grandios gescheitert

schon mal danke im Voraus

[Egon12]

machs so:

Code:

Option Explicit
Sub Test()
    Dim lz As Long
    lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        With Sheets("Tabelle1")
            .Range("I2:J2").Copy
            .Range("A" & lz + 1).PasteSpecial xlValue
        End With
End Sub

Gruß Uwe

[volti]

Oder alternativ so:

Code:

Sub Test()
  Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A").Resize(, 2).Value _
        = Sheets("Tabelle1").Range("I2:J2").Value
End Sub

_________
viele Grüße
Karl-Heinz

[Squal87]

machs so:

Code:

Option Explicit
Sub Test()
    Dim lz As Long
    lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        With Sheets("Tabelle1")
            .Range("I2:J2").Copy
            .Range("A" & lz + 1).PasteSpecial xlValue
        End With
End Sub

Gruß Uwe

dank für die Hilfe :)
hab nur noch ein kleines Problem der Code Kopiert mir die Formel aus der Zelle und nicht die Zahl
Die Werte in I2:J2 verändern sich ständig
Will allerdings nur die Werte ohne Formel kopieren um ein Verlaufsübersicht bzw Daten für ein Diagram zu haben
Gibts die möglichkeit nur die Werte ohne Formel zu kopieren?

---

Code:

Public Sub Kopieren()

Dim WkSh_Q  As Worksheet
Dim WkSh_Z  As Worksheet

   Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
   Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle1")
  
   WkSh_Q.Range("I2:J2").Copy
   WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
   Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False

End Sub

Ich habs jetzt mit folgedem Code hinbekommen
Danke für die Hilfe :)

[volti]

Hallo,

da musst Du xlPastValues statt xlValue nehmen, dann sollte es gehen....

Gruß
KH