Bereich kopieren bis erste Leerzeile

Bild

Betrifft: Bereich kopieren bis erste Leerzeile
von: heydj
Geschrieben am: 12.11.2015 10:27:15

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: hary
Geschrieben am: 12.11.2015 10:44:43
Moin
Da sind aber noch ragen offen.
Bspw. Sind schon Daten vorhanden(ueberschreiben) oder ist das einmalig?
Wenn ich dich richtig verstehe:

Dim letzte As Long
With Worksheets("Zufallsdaten")
 letzte = Application.Max(5, .Cells(Rows.Count, 1).End(xlUp).Row + 1)
  Sheets("Deutschland").Range("A3").CurrentRegion.Copy .Cells(letzte, 1)
  Sheets("Schweiz").Range("A3").CurrentRegion.Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row +  _
1, 1)
End With

gruss hary

Bild

Betrifft: AW: Bereich kopieren bis erste Leerzeile
von: heydj
Geschrieben am: 12.11.2015 10:48:01
Moin,
schon mal vielen Dank. Also es sind Daten vorhanden und die beiden Blätter Deutschland und Schweiz sollen mit ihren Daten untereinander kopiert/eingefügt werden.

Bild

Betrifft: AW: Bereich kopieren bis erste Leerzeile
von: hary
Geschrieben am: 12.11.2015 10:56:19
Moin
Na dann aus dem Stehgreif:


With Worksheets("Zufallsdaten")
  Sheets("Deutschland").Range("A3").CurrentRegion.Copy .Cells(.Cells(Rows.Count, 1).End(xlUp). _
Row + 1, 1)
  Sheets("Schweiz").Range("A3").CurrentRegion.Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row +  _
1, 1)
End With

gruss hary

Bild

Betrifft: AW: Bereich kopieren bis erste Leerzeile
von: heydj
Geschrieben am: 12.11.2015 10:59:07
Vielen Dank. Das funktioniert sogar noch besser, jedoch sollen die Daten in Zufallsdaten immer überschrieben werden sobald ich das Makro neu aufrufe

Bild

Betrifft: AW: Bereich kopieren bis erste Leerzeile
von: hary
Geschrieben am: 12.11.2015 11:03:56
Moin
Dann loeschen wir halt alles(wenn nix anderes drinsteht) in "Zufallsdaten"

With Worksheets("Zufallsdaten")
  .Cells.Clear
  Sheets("Deutschland").Range("A3").CurrentRegion.Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).  _
_
Row + 1, 1)
  Sheets("Schweiz").Range("A3").CurrentRegion.Copy .Cells(.Cells(Rows.Count, 1).End(xlUp).Row +  _
 _
1, 1)
End With


Bild

Betrifft: AW: Bereich kopieren bis erste Leerzeile
von: heydj
Geschrieben am: 12.11.2015 12:28:13
Vielen Dank. Da klappt alles bestens

 Bild

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