Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich kopieren bis erste Leerzeile

Bereich kopieren bis erste Leerzeile
12.11.2015 10:27:15
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich kopieren bis erste Leerzeile
12.11.2015 10:44:43
hary
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

AW: Bereich kopieren bis erste Leerzeile
12.11.2015 10:48:01
heydj
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.

Anzeige
AW: Bereich kopieren bis erste Leerzeile
12.11.2015 10:56:19
hary
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

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

AW: Bereich kopieren bis erste Leerzeile
12.11.2015 11:03:56
hary
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

Anzeige
AW: Bereich kopieren bis erste Leerzeile
12.11.2015 12:28:13
heydj
Vielen Dank. Da klappt alles bestens

299 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
zeile ermitteln, werte prüfen
sonja

hallo ihr lieben,
ich hoffe ihr könnt mir auch dieses mal wieder helfen.
ich möchte in einer zeile (die sich ständig ändert letzte beschriebene zeile minus 6)
in jeder spalte prüfen ob der wert kleiner als ... ist, wenn dies zutrifft sollte sich eine userform
mit einem hinweis...
10.10.2008 16:55:00
Thread-ID: 1015638
11 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Anzeige
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Letzten Zeilenwert
Andre´

Hallo alle zusammen,
wie kann ich den letzten Zeilenwert der 2.Zeile in einer MSGBox angeben also: 11.11.2008
(dazwischen sind leere Zellen)
Tabelle1

 ABCDEFG1wee  dfgh   2trtrt  recht  11.11.20083Uhuu  Prod &n...
18.11.2008 22:31:00
Thread-ID: 1025804
10 Beiträge
Zeilen einfügen vor Zeile mit Wert XX in Spalte D
NetMare

Hallo zusammen,
ich möchte gern per script eine Zeile an bestimmten Stellen einfügen.
Das Einfügen klappt ja über
Worksheets("Tabelle1").Rows(7).Insert
ganz gut...
Ich habe mehrere Zeilen in der Liste mit unterschiedlichen Dingen die ich mir auch über scripte erstellen lasse...
25.11.2008 11:49:00
Thread-ID: 1027648
2 Beiträge
Formel für letzter Zeilenwert
Andre´

Hallo alle zusammen,
gibt es eine Formel, die mir den letzten Zeilenwert anzeigt.
Tabelle1

 BCDEFGHIJKLMN3 = letzter Zeilenwert() AnnePeter12.01.2008       Ändern4 = letzter Zeilenwert() FranzPetraLutz15.05.2008   ...
05.12.2008 07:44:00
Thread-ID: 1030336
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
2
10
3
1
4
2
9
1
7
3
2
5
4
5
7
3
9
1
2
1
6
3
2
5