VBA Bestimmte Zeilen in andere Tabelle kopieren

[lukas-2000]

Hallo miteinnander,


ich möchte gerne einen bestimmten Berreich einer Tabelle (A2:J10) in einen bestimmten Berrecih einer anderen Tabelle (A7:F15) kopieren.
Ich habe dazu diesen Code benutzt, nur leider funktioniert er nicht so, wie ich das gerne hätte.

Code:

Sub BedingteZeilenKopieren()
      Dim Rng2Copy As Range, Rng2Paste As Range
      Dim aWerte()
     
      Set Rng2Copy = Sheets("Tabelle1").Range("A2:J10")
      Set Rng2Paste = Sheets("Tabelle3").Range("A7:F15")
      If Sheets("Tabelle1").Value = "" Then
         aWerte() = Rng2Copy
         Rng2Paste = aWerte()
      End If
   End Sub

Ich hoffe Ihr könnt mir weiterhelfen, über Antworten würde ich mich sehr freuen.

Gruß Lukas

[schauan]

Hallöchen,

die Bereiche müssen gleich groß sein.

[lukas-2000]

Hallo Shaun,

vielen Dank für deine Antwort, jedoch funktioniert es auch nicht, wenn die Werte gleich sind. Kannst du mir noch irgendeinen Tipp geben wie es trotzdem funktionieren könnte!
Würde mich sehr über eine Antwort freuen.

Gruß Lukas

[schauan]

Hallo Lukas,

was kommt denn für eine Fehlermeldung?
Ich sehe nur etwas später noch einen Fehler:

If Sheets("Tabelle1").Value = "" Then

Das geht nicht. Du musst Dich z.B. auf eine bestimmte Zelle beziehen:

If Sheets("Tabelle1").Cells(1, 1).Value = "" Then