Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 getrennte Bereiche kopieren (gesucht: VBA-Code)

2 getrennte Bereiche kopieren (gesucht: VBA-Code)
03.10.2006 21:38:43
Bernd
Hallo allerseits,
ich habe mir (mit Hilfe des Makrorekoders) folgenden Code zurecht gebastelt, um den Inhalt eines Blattes in ein anderes Blatt zu kopieren.
Range("A4:E10000").Select
Selection.Copy
Sheets("Tab2").Select
Range("A2").Select
ActiveSheet.Paste
Nun möchte ich gerne, dass nur der Inhalt der Zellen A4:C10000;E4:F10000 kopiert werden soll. Gebe ich das in obigen Code ein, funktioniert dies aber nicht.
Wie gibt man es ein?
Bin im Übrigen auch sonst dankbar, falls jemand obigen Code verbessern kann, und mir im Übrigen sagt, was dann daran falsch war.
Gruss
Bernd

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Code)
03.10.2006 21:57:30
Ali
Hi,

Sub copy()
Range("A4:E10000").copy Sheets("Tab2").Range("A2")
End Sub

Mehrere Bereiche müssen einzeln kopiert werden, kann auch in einer Schleife sein.
mfg Ali
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Code)
03.10.2006 22:00:41
Bernd
Danke, ich denke das hilft mir erstmal weiter. :-))))))))))
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Co
03.10.2006 22:15:48
EtoPHG
Hallo Bernd,
In obigem Code ist so ziemlich alles falsch, weil er mit dem Makrorecorder erstellt wurde...
Natürlich ein Witz mit ernstem Hintergrund (http://www.online-excel.de/excel/singsel_vba.php?f=78), also...
Angenommen:
Du willst die Bereiche A4:C10000 und E4:F10000 vom ersten Tabellenblatt auf das zweite Tabellenblatt ab Adresse A2 bzw. E2 kopieren und dabei nur die Werte (keine Formeln, keine Formate) mitnehmen, könnte das so heissen:

Sub x()
ActiveWorkbook.Sheets(1).Range("A4:C10000").Copy
ActiveWorkbook.Sheets(2).Range("A2").PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.Sheets(1).Range("E4:F10000").Copy
ActiveWorkbook.Sheets(2).Range("E2").PasteSpecial Paste:=xlPasteValues
End Sub

Der Sinn der Operation mag sich dem Auftraggeber erschliessen ... ;-)
Gruss Hansueli
Anzeige
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Co
04.10.2006 00:20:52
Bernd
****In obigem Code ist so ziemlich alles falsch, weil er mit dem Makrorecorder erstellt wurde... ***
Ja, mag sein, aber für einen Anfänger ist es erstmal ziemlich praktisch etwas aufzunehmen, und den Code dann zumindest zu begreifen und selbst erweitern zu können.
Dass das nicht unbedingt immer die beste und reinste Variante ist, mag ja stimmen.
Aber momentan bin ich halt noch nicht weiter. :-(
Gruss
DC
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Co
04.10.2006 09:05:29
EtoPHG
Hallo Bernd,
Das mit dem "Im obigen Code..." war keineswegs als Mahnung und schon gar nicht als Beleidiung gemeint, sondern eher ironisch ;-)
Der Code sollte als Beispiel dienen.
Jetzt meldest Du eine Fehlermeldung und willst wissen was falsch ist.
Damit man Dir besser helfen kann, empfehle ich Dir folgendes:
1. Versuch mal genau zu schildern, was Dein Problem ist, bzw. was Du gedenkst mit dem Makro zu lösen.
2. Wenn Du eine Fehlermelung hast, unter welchen Umständen taucht sie auf und VOR ALLEM WIE LAUTET SIE ?
Gruss Hansueli
Anzeige
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Co
04.10.2006 10:36:16
Bernd
Guten Morgen,
***1. Versuch mal genau zu schildern, was Dein Problem ist, bzw. was Du gedenkst mit dem Makro zu lösen.***
Gerne. Es geht darum, dass ich eine Liste mit dem Autofilter jeweils nacheinander nach bestimmten Kriterien filtere, und die gefilterte Liste dann jeweils in ein anderes Tabellenblatt kopiere. Das funktionierte - trotz des schlechten Codes ;-) - bislang einwandfrei. Bis zu dem Punkt, an dem ich nur eins Spalte nicht mehr kopieren wollte. (s.Topic.)
Dank deinem Posting, wollte ich nun bei der Gelegenheit auch noch den sauberen Code (von dir) einfügen. Angepassst sieht das ganze nun bei mir wie folgt aus:
Sheets("Gesamtliste").Select
Selection.AutoFilter Field:=8, Criteria1:="Test"
Sheets("Gesamtliste").Range("A4:C10000").Copy
Sheets("Stärke").Range("A2").PasteSpecial Paste:=xlPasteValues
Sheets("Gesamtliste").Range("E4:F10000").Copy
Sheets("Stärke").Range("D2").PasteSpecial Paste:=xlPasteValues
***2. Wenn Du eine Fehlermelung hast, unter welchen Umständen taucht sie auf und VOR ALLEM WIE LAUTET SIE ?***
Die Fehlermeldung taucht in folgender Zeile auf (bzw. beim debuggen ist diese Zeile gelbt markiert):
Sheets("Stärkemeldung").Range("A2").PasteSpecial Paste:=xlPasteValues
und lautet: "Lautfzeitfehler 1004. Für diese Aktion müssen alle verbundenen Zellen dieselbe Größe haben". Die Meldung verwundert mich eher. Zwar befindet sich im Sheet "Stärke" in Zeile 1 eine verbundene Zelle, aber auf diese wird ja auch gar nicht zugegriffen. *wunder*
Gruss
Bernd
Anzeige
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Co
04.10.2006 12:35:58
Bernd
So, nach langem Suchen im Archiv habe ich jetzt glaube ich was gefunden, das funktioniert:
Worksheets("Gesamtliste").Range("A2:C10000").Copy
With Worksheets("Stärke").Range("A2")
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Co
04.10.2006 12:44:56
Bernd
Ich verbessere mich:
beim zweiten Mal funktioniert es nicht mehr. :-(((
Es erscheint obige gleiche Fehlermeldung, was augenscheinlich in der Tat darauf zurückzuführen ist, dass sich im Tabellenblatt noch verbundenen Zellen befinden (durch eine zuvor durchgeführte Kopieraktion).
Ich habe nun ganz am Anfang ein Makro eingefügt, was zunächst alle verbundenen Zellen beseitigt.
ActiveCell.Cells.Select
With Selection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Hoffe, nun klappt es dauerhaft
gruss
b.
Anzeige
AW: 2 getrennte Bereiche kopieren (gesucht: VBA-Co
04.10.2006 12:55:39
Bernd
Ok, Schluss aus Ende... Jetzt habe ich in meinem Code so viel gefuscht, das nun irgendwie gar nichts mehr richtig funktioniert.
Wer kann mir bitte einfach mal den Code für das kopieren von Werten von einem Tabellenblatt (mit Bereich) in ein anderes Tabelleblatt nennen. ?
Gruss & Danke
B.
offene Frage
04.10.2006 13:24:20
Bernd
-
AW: offene Frage
04.10.2006 13:53:13
EtoPHG
Hallo Bernd,
Versuch's mal so:

Sub CopySheetValues()
Const tShFrom = "Gesamtliste"           ' Name der Quellen Tabelle
Const tShTo = "Stärke"                  ' Name des Ziel Tabelle
Const tDelCols = "D:D,G:G"              ' Zu löschenend Kolonnen in der Ziel Tabelle
Sheets(tShFrom).Cells.Copy
Sheets(tShTo).Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets(tShTo).Range(tDelCols).Delete Shift:=xlToLeft
End Sub

Brauchst nur ev. die Werte in den 3 ersten Codezeilen zu verändern.
Gruss Hansueli
Anzeige
AW: offene Frage
04.10.2006 14:12:57
Bernd
***Const tDelCols = "D:D,G:G" ' Zu löschenend Kolonnen in der Ziel Tabelle***
Was soll das denn? Vor allem das G:G?
AW: offene Frage
04.10.2006 14:36:37
EtoPHG
Hallo Bernd,
Was soll das denn? Vor allem das G:G?
EIN BEISPIEL, NICHTS ANDERES.
PASS ES HALT AN; WIE DU ES MOECHSTEST ODER LASS ES WEG !!
Ich bin raus.
Gruss Hansueli
AW: offene Frage
04.10.2006 14:56:21
Bernd
Danke, hast mir sehr geholfen
Gruss
bernd
HILFE!
04.10.2006 00:33:25
Bernd
Hilfe, wenn ich den Code für meine Bedürfnisse anpasse, dann erhalte ich bei folgender Zeile ein fehlermeldung:
Sheets("Stärke").Range("A1").PasteSpecial Paste:=xlPasteValues
Was ist daran falsch?
PasteSpecial
04.10.2006 07:57:21
Ramses
Hallo
Entweder du arbeitest mit einer With-Anweisung
With ActiveWorkbook.Sheets(2)
oder du musst Sheets(2) vorher aktivieren
Gruss Rainer
Anzeige
AW: PasteSpecial
04.10.2006 10:26:47
Bernd
Morgen,
Vermutlich eine Dumme frage, aber wie müsste die Codezeile dann jeweils aussehen?
Und was ist von den beiden Varianten zu bevorzugen?
Gruss
Bernd

37 Forumthreads zu ähnlichen Themen

Range aus mehreren Zellbereichen als Variabeln
Randolf

Hallo,
ich möchte folgenden Zeile mit Variabeln darstellen:
Range("AM65:AN65,BB65:BC65").Select folgenden Ansatz habe ich derzeit, aber mir mach der Doppelpunkt zu schaffen:
Range(Cells(i, 39), Cells(i, 40), Cells(i, 54), Cells(i, 55)).Select
versuche wie Range(Cells(i, 3...
08.05.2009 11:06:07
Thread-ID: 1073827
13 Beiträge
Anzeige
VBA Suche in eine Tabelle und mehreren Bereichen
Milan

Hallo liebe Excel Freunde,
ich brauche wieder mal ein Makro.
Suchen in mehreren Spalten-Bereichen, nur in Tabelle: „Artikelstamm“
In Spalten A7:A40000, B7:B40000, C7:C40000, I7:I40000, K7:K40000
Beim klicken auf Schaltfläche: MsgBox: “Bitte Suchbegriff eingeben!”
Gesucht wer...
27.12.2010 17:52:29
Thread-ID: 1192961
4 Beiträge
VBA: Zellbereiche unformatiert kopieren
Fritz_W

Hallo Forumsbesucher,
ich würde gerne per VBA die Zellinhalte der Zellbereiche H7:J30, H36:J39; H42:J43 und H46:J46 kopieren (in der Beispieltabelle die Zellen mit gelbem Hintergrund) und unformatiert an anderer Stelle der Tabelle einfügen. Die Einfügeposition soll immer durch die erste lee...
27.05.2012 00:31:48
Thread-ID: 1265018
13 Beiträge
Anzeige
VBA: Zeilen aus Range kopieren bei Übereinstimmung
Patrik

Hallo zusammen
Ich möchte die Werte einer ganze Zeilen aus einem Bereich in einen zweiten Bereich auf ein anderes Blatt kopieren, sofern in einem zweiten einspaltigen Bereich die Werte in der gleichen Zeile übereinstimmen.
Range_Offset_Origin: Einspaltiger Bereich mit Vergelichswerten
01.03.2013 10:05:19
Thread-ID: 1301702
7 Beiträge
VBA - Druckbereich+Inhalt in vorh. Datei kopieren
Christian

Hallo liebe VBA-Gemeinde,
ich habe ein kleines VBA-Problem, bei dem ihr mir sicher helfen könnt.
Ich habe 2 vorhandene Dateien (Datei 1, mit Makros; Datei 2, ohne Makros) die sich im selben Ordner befinden.
Datei 1 enthält ein Arbeitsblatt in dem ein festes Formular hinterlegt ist,...
18.06.2013 09:32:36
Thread-ID: 1318218
11 Beiträge
VBA Bereich in neue Mappe kopieren
WalterK

Hallo,
den folgenden Code habe ich im Internet gefunden, er kommt vom Oberschlumpf. Es soll ein Bereich der Tabelle3 in eine neu angelegte Mappe kopiert werden(ohne Formeln).
Die neue Mappe und das neue Blatt werden auch angelegt, allerdings wird nichts hinein kopiert.
Vielleicht i...
18.09.2014 22:28:48
Thread-ID: 1382437
3 Beiträge
Range mehrere Bereiche setzen
Sascha
Hallo liebe Experten,
Ich steh auf dem Schlauch.
Ich möchte eine doppelte Eingabe Abfangen.
Wenn ich nur einen Bereich angebe funktioniert es tadellos.
Mehrere Bereiche zu definieren, schaffe ich nicht.
Obwohl ich den Range-Bereich im sub test() genau gleich angebe. Beim sub tes...
24.09.2014 20:27:41
Thread-ID: 1383276
6 Beiträge
VBA Wert suchen und von da Bereich kopieren
da

Hallo zusammen,
bisher konnte ich mir immer ganz gut mit alten Forenbeiträgen weiterhelfen. Jetzt komme ich zum _
ersten mal nicht weiter... Set ext_wb = Workbooks.Open("P:\BASIS.xls") ext_wb.Sheets("BASIS").Range("A:AO").Copy ThisWorkbook.Sheets("INPUT").Range("A1").PasteSpecial ext_...
14.10.2014 09:32:38
Thread-ID: 1386531
3 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
12
9
3
12
2
6
10
2
5
2
5
5
4
23
2
12
3
1
7
1
2
4
1
6
8