Bereich kopieren bis erste Leerzeile

Bild

Betrifft: Bereich kopieren bis erste Leerzeile
von: heydj
Geschrieben am: 12.11.2015 10:37:08

Hallo, ich möchte nun in meiner Tabelle einen Bereich einfügen an der ersten freien Zeile am Ende. Vorher muss ich aber einen bestimmten Bereich kopieren also z.B. A3 - G22 sind beschrieben. die könnte ich ja nun einfach so kopieren, jedoch soll das flexibel sein, so dass ich immer noch eine Zeile weiter schreiben kann und diese auch kopiert wird.
Mein Code bis jetzt:

Sub copy()
    Sheets("Deutschland").Select
    Range("A3:G22").Select
    Selection.copy
    Sheets("Zufallsdaten").Select
    Range("A5").Select
    ActiveSheet.Paste
    Range("A31").Select
    Sheets("Schweiz").Select
    Range("A3:G22").Select
    Selection.copy
    Sheets("Zufallsdaten").Select
    ActiveSheet.Paste
    Sheets("Schweiz").Select
    Sheets("Zufallsdaten").Select
    Range("A1").Select
End Sub

Bild

Betrifft: AW: Bereich kopieren bis erste Leerzeile
von: Tino
Geschrieben am: 12.11.2015 13:23:04
Hallo,
teste mal, vielleicht geht es so?!

Sub copy_()
Dim rng As Range, varWS, arWS
arWS = Array("Deutschland", "Schweiz")
For Each varWS In arWS
    With Sheets(varWS)
        Set rng = .Range("A3", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 7)
    End With
    If rng.Rows(1).Row > 2 Then
        With Sheets("Zufallsdaten")
            rng.copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
        End With
    End If
Next varWS
End Sub

Gruß Tino

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bereich kopieren bis erste Leerzeile"