Bereich kopieren & in neue Datei einfügen

Forumthread: Bereich kopieren & in neue Datei einfügen

Basti

Schönen guten Tag alles zusammen,
ich habe eine Datei mit dem Sheet Reisekosten, aus diesem möchte ich den Bereich "A3:Q20" kopieren und in eine neue Datei, welche ebenfalls das Sheet Reisekosten enthält in den selben Bereich einfügen.
Zu beachten:
Es ist sehr unwahrscheinlich, dass der gesamte Bereich Daten enthält, daher Zusammenfassung mehrerer Bereiche "A3:Q20" in einem Sheet. ABER daher muss auch darauf geachtet werden, dass in dem "ZusammenführungsSheet" untereinander weg eingefügt wird, also die letzte beschriebene Zeile ermittelt und erst in der darauffolgenden eingesetzt wird.
Das ganze soll durch einen Button ausgelöst werden, hier jedoch lediglich eine normale
"Sub" da noch eine weitere "Sub" an den Button gehängt wird.
Habe bereits folgendes zusammengeschustert. Bitte um Verbesserungen oder gar neue Möglichkeiten.


Sub Abschließen(ByVal parName As String)
'Öffne individuelle Datei
Workbooks.Open Filename:=constPfadA & parName & "_Reisekosten.xlsm", UpdateLinks:=False
'Kopiere notwendigen Bereich und füge ihn in individuelle Datei ein
Cells("A3:Q20").Select
Selection.Copy
If Cells("A3:Q20")  "" Then 'wenn der Bereich "A3:Q20" im neuen Sheet frei ist dann...
Workbooks("constPfadRKA & parName & _Reisekosten.xlsm").Worksheets(" _
Reisekostneabrechnung").Activate
ActivateSheet.Paste
Application.DisplayAlerts = False
Else 'Letzte beschriebene Zeile ansteuern und in +1 einfügen
Dim Ende As Long
Ende = ActivateSheet.clles.SpecialCells(xlCellTypeLastCell).Row + 1
Ende = .Activate
End Sub

Vielen lieben Dank für Eure Hilfe!!!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

AW: Bereich kopieren & in neue Datei einfügen

Dirk

AW: Bereich kopieren & in neue Datei einfügen

30.08.2012 13:45:10

Dirk

Hallo Basti,
Ich kenn mich zwar nciht mit Office 2010 aus aber

Ende = ActivateSheet.clles.SpecialCells(xlCellTypeLastCell).Row + 1

da ist bestimmt ein Tippfehler drinn
ActivateSheet.celles muss das sicher heißen.
ich hab sowas in der art auch schon mal gemacht (mit Office 2002)
der Code sollte nciht großartig abweichd zu dem vom 2010 sein


Sub Zusammenfassen()
Dim nwb, awb As Object
Dim lzelle As Object
'Pfad und Dateinamen anpassen
'Tabelle1 gegen den Namen der Ziel/Ursprungstabelle austauschen
Set awb = ActiveWorkbook 'Exceldaten, die momentan im zugriff ist "merken"
Set nwb = Workbooks.Open(Filename:="C:\tester\herber\ziel.xls") 'Exceldaten, die das Ziel sein  _
soll mit Pfad!!!!
With nwb.Sheets("Tabelle1")
If .Range("a3") = "" Then
Set lzelle = Range("a3") 'wenn a3 leer ist bei A3 beginnen
Else
Set lzelle = .Range("A:Q").Find(What:="*", after:=.Range("A1"), LookIn:=xlValues, _
LookAt:=xlWhole, searchdirection:=xlPrevious)            'letzte beschriebene  _
Zelle im bereich "A:Q" ermitteln
End If
End With
awb.Sheets("Tabelle1").Range("A3:Q20").Copy   'Koppieren
nwb.Sheets("Tabelle1").Cells(lzelle.Row + 1, 1).PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks _
:=False, Transpose:=False   'Werte einfügen
Application.CutCopyMode = False
Set lzelle = Nothing
Set nwb = Nothing
Set awb = Nothing
End Sub

es kann sein, das du hinter das open (innerhalb der Klammern noch das ", UpdateLinks:=False" setzten must.
das müsstest du einfach mal testen.
Gruß
Drik

Infobox / Tutorial

Bereich kopieren und in eine neue Datei einfügen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne die Excel-Datei mit dem Sheet "Reisekosten".
Kopiere den gewünschten Bereich "A3:Q20". Achte darauf, dass der Bereich möglicherweise leer ist.
Erstelle eine neue Datei oder öffne die Zieldatei, in die die Daten eingefügt werden sollen.
Finde die letzte beschriebene Zeile im Ziel-Sheet. Dies kannst du mit dem folgenden VBA-Code tun:
```
Dim Ende As Long
Ende = Sheets("Reisekosten").Cells(Rows.Count, 1).End(xlUp).Row + 1
```

Füge den kopierten Bereich in die Ziel-Datei ein:

Worksheets("Reisekosten").Cells(Ende, 1).PasteSpecial Paste:=xlPasteValues

Schließe die Zieldatei und speichere die Änderungen.

Häufige Fehler und Lösungen

Tippfehler in der Syntax: Achte darauf, dass alle Befehle korrekt geschrieben sind. Zum Beispiel sollte ActivateSheet.clles eigentlich ActivateSheet.Cells heißen.
Falsche Bezugnahme auf das Arbeitsblatt: Wenn du ein Arbeitsblatt aktivieren möchtest, stelle sicher, dass der Name korrekt ist und das Arbeitsblatt existiert.
Der kopierte Bereich ist leer: Wenn der Bereich "A3:Q20" leer ist, überprüfe deine Datenquelle auf mögliche Fehler oder Datenverlust.

Alternative Methoden

Neben dem VBA-Ansatz gibt es auch die Möglichkeit, mit Copy & Paste direkt in Excel zu arbeiten:

Wähle den Bereich "A3:Q20" manuell aus.
Kopiere den Bereich (Strg + C).
Wechsle zur neuen Datei und wähle die Zelle aus, wo du die Daten einfügen möchtest.
Füge die Daten ein (Strg + V).

Diese Methode eignet sich gut für einmalige Aufgaben, während VBA für wiederholbare Prozesse und Automatisierung besser geeignet ist.

Praktische Beispiele

Hier ist ein Beispiel für einen einfachen VBA-Code, der das Kopieren und Einfügen automatisiert:

Sub BereichKopieren()
    Dim nwb As Workbook
    Dim awb As Workbook
    Dim Ende As Long

    Set awb = ThisWorkbook
    Set nwb = Workbooks.Open("C:\Pfad\zur\Zieldatei.xlsm")

    ' Berechnung der letzten Zeile im Ziel-Sheet
    Ende = nwb.Sheets("Reisekosten").Cells(Rows.Count, 1).End(xlUp).Row + 1

    ' Kopieren und Einfügen
    awb.Sheets("Reisekosten").Range("A3:Q20").Copy
    nwb.Sheets("Reisekosten").Cells(Ende, 1).PasteSpecial Paste:=xlPasteValues

    nwb.Close SaveChanges:=True
End Sub

Dieser Code öffnet die Zieldatei, ermittelt die letzte gefüllte Zeile und fügt die Daten entsprechend ein.

Tipps für Profis

Verwende Variablen für Dateipfade, um deinen Code einfacher zu warten.
Fehlerbehandlung einfügen: Nutze On Error Resume Next, um potenzielle Fehler zu ignorieren.
Dokumentiere deinen Code: Schreibe Kommentare, um den Zweck jeder Funktion deutlich zu machen. So wird die Wartung und das Verständnis für andere Benutzer einfacher.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass der Bereich immer kopiert wird, auch wenn er leer ist?
Verwende eine Bedingung, um zu überprüfen, ob der Bereich tatsächlich Daten enthält, bevor du versuchst, ihn zu kopieren.

2. Kann ich den Code anpassen, um mehrere Bereiche zu kopieren?
Ja, du kannst mehrere Range-Objekte in einer Schleife durchlaufen und sie nacheinander kopieren und einfügen.

3. Was ist der Unterschied zwischen Paste und PasteSpecial?
Paste fügt alles ein, während PasteSpecial dir erlaubt, spezifische Formate oder Werte einzufügen, was in vielen Fällen nützlich ist.

Beliebteste Forumthreads (12 Monate)

Bereich kopieren & in neue Datei einfügen

Forumthread: Bereich kopieren & in neue Datei einfügen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Bereich kopieren und in eine neue Datei einfügen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread