Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bereich kopieren bis erste Leerzeile

Bereich kopieren bis erste Leerzeile
12.11.2015 10:37:08
heydj
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich kopieren bis erste Leerzeile
12.11.2015 13:23:04
Tino
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
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige