Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 20:05:21
CreateObject auf MacOS
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1824to1828
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
1824to1828
1824to1828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich in andere Mappe kopieren

Bereich in andere Mappe kopieren
21.04.2021 14:54:51
Eisi
Hallo zusammen,
nachfolgender Code leistet gute Dienste. Er soll aber nicht den kompletten Bereich kopieren, sondern nur B3:I500, ohne Makros, mit Zelleninhalt und Formatierungen.
I500 deshalb, weil der Bereich auch Leerzeilen hat und somit kann ich das Ende der letzten befüllten Zeile nicht finden. Den UsedRange kann ich unmöglich anpassen. Darum meine Hilferuf :-) In B4 steht immer der Dateiname und das passt wunderbar, dass das Sheet mit dem Dateinamen automatisch benannt wird.
Vielen Dank. VG Eisi :-)

Public Sub AngebotInExcelCopy2()
Dim wbkQuelle As Workbook
Dim wbkZiel As Workbook
Dim wksQuelle As Worksheet
Set wbkQuelle = Workbooks("AngebotsTool.xlsm")
Set wbkZiel = Workbooks("AlleAngebote.xlsx")
Set wksQuelle = wbkQuelle.Worksheets("AngebotDrucken")
wksQuelle.Copy After:=wbkZiel.Sheets(wbkZiel.Sheets.Count)
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveSheet.Name = Range("B4").Text
tbl_AngebotDrucken.Protect ("")
End Sub

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich in andere Mappe kopieren
21.04.2021 14:59:54
Hajo_Zi
With Range("B3:I500")
GrußformelHomepage
AW: Bereich in andere Mappe kopieren
21.04.2021 15:16:01
Eisi
Danke für die Hilfe, aber leider speichert der Code das Sheet jetzt nicht mehr ab.
AW: Bereich in andere Mappe kopieren
21.04.2021 15:32:32
Eisi
Hatte den falschen Namen gewählt für meine Tabelle, deshalb hat das Abspeichern nicht funktioniert. Der Code selber funktioniert also, aber es wird immer noch das komplette Sheet kopiert und nicht der Bereich alleine. Gibt es noch eine Möglichkeit um den Bereich zu bestimmen? Danke. :-)
Anzeige
AW: Bereich in andere Mappe kopieren
21.04.2021 15:36:00
Hajo_Zi
wksQuelle.Worksheets("Tabelle123").Range("B3:I500").Copy
Gruß Hajo
AW: Bereich in andere Mappe kopieren
21.04.2021 15:51:16
Eisi
Hallo Hajo,
wenn ich den folgenden Code durchlaufen lasse, kommt die Fehlermeldung: Methode oder Datenobjekt nicht gefunden.
Wahrscheinlich habe ich Deinen Code falsch eingesetzt? Bitte nochmal um Hilfe. Danke. :-)

Public Sub AngebotInExcelCopy2()
Dim wbkQuelle As Workbook
Dim wbkZiel As Workbook
Dim wksQuelle As Worksheet
Set wbkQuelle = Workbooks("AngebotsTool")
Set wbkZiel = Workbooks("AlleAngebote.xlsx")
Set wksQuelle = wbkQuelle.Worksheets("AngebotDrucken")
wksQuelle.Copy After:=wbkZiel.Sheets(wbkZiel.Sheets.Count)
wksQuelle.Worksheets("AngebotDrucken").Range("B3:I500").Copy
With ActiveSheet.Range
.Value = .Value
End With
ActiveSheet.Name = Range("B4").Text
tbl_AngebotDrucken.Protect ("")
MsgBox "Complete"
End Sub

Anzeige
AW: Bereich in andere Mappe kopieren
21.04.2021 16:12:13
Hajo_Zi
wksQuelle.Copy
sollte durch meinen Code ersetzt werden.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Gruß Hajo
Anzeige
AW: Bereich in andere Mappe kopieren
21.04.2021 16:55:45
Eisi
Ich hänge mal die Mappe an, damit man besser arbeiten kann. Danke für die Hilfe. :-)
Ach ja, die Mappe "AlleAngebote.xlsx" bitte selber dazu anlegen und öffnen, damit der Code da rein speichern kann. Später möchte ich über eine Schleife prüfen, ob die Datei vorhanden und offen ist.
https://www.herber.de/bbs/user/145700.xlsm
AW: Bereich in andere Mappe kopieren
21.04.2021 17:08:27
Hajo_Zi
ich sehe es richtig meine Vorschläge haben nicht gefallen, darum ist mein Vorsychlkag nicht enthalten.
ich bin dann raus, dch schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.
Gruß Hajo
Anzeige
AW: Bereich in andere Mappe kopieren
21.04.2021 17:33:36
Thomas
Sorry, wenn ich Deinem Leistungsniveau nicht entspreche, trotzdem danke für Deine Bemühungen.
VG Eisi :-)
AW: Bereich in andere Mappe kopieren
22.04.2021 10:27:45
fcs
Hallo Thomas,
statt das Tabellenblatt aus der Quelle ins Ziel zu kopieren muss hier in der Zieldatei ein neues Tabellenblatt angelegt werden und dann der Zellbereich aus dem Quellblatt in das neue Blatt kopiert und per PasteSpecial eingefügt werden. Dabei müssen Spaltenbreiten, Formate und Werte eingefügt werden.
LG
Franz

Public Sub AngebotInExcelCopy2()
Dim wbkQuelle As Workbook
Dim wbkZiel As Workbook
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim rngCopy As Range
Dim Zeile_L As Long
Set wbkQuelle = Workbooks("AngebotsTool.xlsm")
'Prüfen, ob Datei "AlleAngebote.xlsx" geöffnet ist
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = LCase("AlleAngebote.xlsx") Then
Exit For
End If
Next
If wbkZiel Is Nothing Then
Set wbkZiel = Workbooks.Open("C:\Angebote\AlleAngebote.xlsx")
End If
Set wksQuelle = wbkQuelle.Worksheets("AngebotDrucken")
With wksQuelle
'letzte Zeile mit Inhalt
Zeile_L = .Cells.Find(What:="*", After:=.Cells(1, 1), LookIn:=xlValues, _
lookat:=xlWhole, Searchorder:=xlByRows, searchdirection:=xlPrevious).Row
'Zellbereich in Spalte B bis I setzen ab Zelle B3
Set rngCopy = .Range(.Cells(3, 2), .Cells(Zeile_L, 9))
End With
With wbkZiel
'neues Blatt am Ende einfügen
.Worksheets.Add After:=.Sheets(.Sheets.Count)
Set wksZiel = .Sheets(.Sheets.Count)
End With
With wksZiel
rngCopy.Copy
With .Range("B3")
.PasteSpecial xlPasteColumnWidths
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteValues
End With
.Name = Range("B4").Text
End With
'ZielDatei speichern
wbkZiel.Save
tbl_AngebotDrucken.Protect ("")
End Sub

Anzeige
:-) Herzlichen Dank Franz :-)
22.04.2021 16:04:18
Eisi
Herzlichen Dank Franz, funktioniert super.
Unbezahlbare Hilfe, Daaaanke.
GLG Eisi :-)

301 Forumthreads zu ähnlichen Themen

Alle Blätter in andere Mappe kopieren
Doro

Hallo Liebe Profis,
ich möchte gerne alle Tabs aus dem File DatenFile in das File AuswerteFile vor das Tabellenblatt 3 kopieren, und nutze folgenden Code:
Dim AuswerteFile As String
AuswerteFile = ThisWorkbook.Name
Dim FileToOpen
If Dir("C:\*.*") "" Then ChDir "C:\"
Fil...
26.01.2009 15:46:00
Thread-ID: 1043923
8 Beiträge
Anzeige
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
per makro in andere excelmappe kopieren
meixner

Hallo zusammen,
ich möchte Dateien aus einer Mappe in eine andere Excel - Mappe kopieren. Der Code funktioniert aber nicht. Kann mir jemand einen Tip geben, woran es liegt?
Viele Grüße und Danke!
Dani Sub fonds() Dim allinoneswap As String allinoneswap = "H:\CCXLS\C\AllIn" Applicat...
12.08.2009 11:55:23
Thread-ID: 1095282
11 Beiträge
Anzeige
Tabellenblatt in andere Arbeitsmappe kopieren
Annette

Hallo,
langsam verzweifel ich:
Ich möchte mittels eines Makros das Tabellenblatt „123“ der Arbeitsmappe „ABC“ in die Arbeitsmappe „DEF“ (nicht geöffnet) kopieren.
Der Name des Tabellenblatts soll beibehalten werden. Falls jedoch das Blatt vorhanden ist, soll es ersetzt werden.
...
05.05.2010 19:44:02
Thread-ID: 1155669
2 Beiträge
Spalten in andere Arbeitsmappe kopieren
Olli

Hallo,
Ich bin absolut unerfahren im Umgang mit Excel und VBA. Jetzt steh ich vor einem Problem und komm nicht weiter.
Und zwar will ich über Formeln errechnete Werte durch ein Makro in eine andere Arbeitsmappe übertragen.
Hab im Forum zwar schon einen Ansatz gefunden, ich schaff es...
02.06.2010 15:58:25
Thread-ID: 1160038
6 Beiträge
Daten in Blatt einer anderen Mappe kopieren
Stefan

Hallo,
ich habe folgendes Problem:
ich möchte nach markieren einer Zelle in der Spalte C von einer Arbeitsmappe Zellen aus drei Spalten (C, D und E) einer Tabelle (Quelle) in eine Tabelle (Ziel) einer zweiten Arbeitsmappe kopieren (vielleicht mittels eines Buttons). Das Problem ist, da...
29.03.2011 11:52:52
Thread-ID: 1208061
7 Beiträge
Werte einer Mappe in viele andere Mappen kopieren
Markus

Hallo Zusammen,
ich bin mir nicht einmal sicher ob das mit Vba zu bewältigen ist, habe schon viel gegooglet aber nichts gefunden wo nur annährend passen könnte. Wenn jemand eine Idee hätte wäre ich euch sehr dankbar.
Ich habe eine Mappe (Mappe 1) und in einem anderen Verzeichnis noch c...
06.04.2011 22:37:13
Thread-ID: 1209407
5 Beiträge
Daten in andere Mappe kopieren
Stefan

Hallo,
ich mache ein neues Posting auf und beziehe mich auf folgendes schon einmal gepostetes Problem:
Archiv-IDX 2011-05-20 09:47:16 Daten in andere Mappe kopieren
Hier sind auch die Beispieldateien geladen.
Hierbei hatte mir fcs (Franz) mit einem Quellcode geholfen (https://...
08.06.2011 11:49:57
Thread-ID: 1217688
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
7
4
4
10
2
1
5
6
4
2
8
1
2
6
2
4
12
8
3
3
8
4
2
4
3