Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierte Zeilen in eine andere Datei Kopieren

Forumthread: Markierte Zeilen in eine andere Datei Kopieren

Markierte Zeilen in eine andere Datei Kopieren
02.04.2016 22:18:44
Falo
Hallo,
mit diesem Makro wird die ganze Markierte Zeile in die Datei kopiert.
es soll aber nur die Spalten "O bis V" der Markierten Zeile, in die Datei Ziel.xls "B bis I" kopiert werden. und es sollen nur die Werte kopiert werden.
  • 
Sub Übertragen()
Selection.EntireRow.Copy Workbooks("Ziel.xls").Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset( _
1)
End Sub

    • LG
    Olaf

    Anzeige

    18
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Markierte Zeilen in eine andere Datei Kopieren
    02.04.2016 22:39:47
    Fennek
    Hallo Falo,
    auch wenn ich deine Frage etwas besser verstanden habe, der Code kopiert die gewünschten Spalten in sheets(2):
    
Sub sFalo()
With selection
.columns("o:v").copy sheets(2).range("b1")
End with
End sub

    AW: Markierte Zeilen in eine andere Datei Kopieren
    02.04.2016 23:23:49
    Falo
    Hallo Fennek,
    es sollte in die Datei Ziel.xls kopiert werden und als Wert
    LG
    Olaf

    Anzeige
    AW: Markierte Zeilen in eine andere Datei Kopieren
    03.04.2016 06:59:43
    Crazy
    Hallo
    da ich nicht weis ob die Zieldatei schon offen ist
    habe ich es so getestet 
    Sub uebertragen()
Dim lngZiel As Long
Cells(ActiveCell.Row, "O").Resize(1, 8).Copy
ChDir "C:\Users\Tom\Desktop"
Workbooks.Open Filename:="C:\Users\Tom\Desktop\Ziel.xls"
With Sheets(1)
lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range("B" & lngZiel).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub

    vielleicht passt es dir ja so
    MfG Tom

    Anzeige
    AW: Markierte Zeilen in eine andere Datei Kopieren
    03.04.2016 12:29:02
    Falo
    Hallo Tom,
    die Zieldatei ist schon geöffnet, es könnte sein das die Datei auf einem Stick ist dann ist kein fester Laufwerksbuchstabe vorhanden. und bei deinem Makro wir nur die erste Markierte Zeile Kopiert, wenn mehrere Markiert sind werden die anderen nicht mit Kopiert. das ist schlecht, hast Du vieleicht noch einen Tipp.
    LG
    Olaf

    Anzeige
    AW: Markierte Zeilen in eine andere Datei Kopieren
    03.04.2016 13:43:35
    Crazy
    Hi
    es ist von Vorteil wenn die Aufgabenstellung
    gleich richtig gestellt wird
    in meinem Test geht es mit mehreren markierten Zellen
    und geöffneter Zieldatei so 
    Sub uebertragen()
Dim lngZiel As Long
Dim rngZelle As Range
Application.ScreenUpdating = False
For Each rngZelle In Selection
Cells(rngZelle.Row, "O").Resize(1, 8).Copy
With Workbooks("Ziel.xls").Sheets(1)
lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range("B" & lngZiel).PasteSpecial Paste:=xlPasteValues
End With
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

    MfG Tom

    Anzeige
    AW: Markierte Zeilen in eine andere Datei Kopieren
    03.04.2016 13:50:32
    Crazy
    Hi nochmal
    hier noch mit kleiner Ergänzung 
    Sub uebertragen()
Dim lngZiel As Long
Dim lngZaehler As Long
Dim rngZelle As Range
Application.ScreenUpdating = False
lngZaehler = 0
For Each rngZelle In Selection
Cells(rngZelle.Row, "O").Resize(1, 8).Copy
With Workbooks("Ziel.xls").Sheets(1)
lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range("B" & lngZiel).PasteSpecial Paste:=xlPasteValues
End With
lngZaehler = lngZaehler + 1
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Es wurden " & lngZaehler & " Datensätze kopiert"
End Sub

    MfG Tom

    Anzeige
    AW: Markierte Zeilen in eine andere Datei Kopieren
    03.04.2016 18:30:28
    Falo
    Hallo Tom,
    das klappt irgendwie nicht richtig, ich Markiere eine Zeile dann klicke ich auf dein Makro, dann Rödelt er rum.
    dann bekomme ich die Meldung 265 Datensätze kopiert, er hat aber nur einen kopiert ich habe mal beide Dateien hier angehängt.
    Start Datei: https://www.herber.de/bbs/user/104739.xls
    Ziel Datei: https://www.herber.de/bbs/user/104741.xls
    LG
    Olaf

    Anzeige
    AW: Markierte Zeilen in eine andere Datei Kopieren
    03.04.2016 19:42:40
    Crazy
    Hi Olaf
    den gleichen Fehler bekomme ich wenn ich die Zeilen komplett markiere
    oder die Markierung mehr wie eine Spalte umfasst
    markiere doch mal die Datensätze beispielsweise nur in Spalte A
    dann funktioniert es einwandfrei
    MfG Tom

    AW: Markierte Zeilen in eine andere Datei Kopieren
    03.04.2016 21:47:51
    Falo
    Hallo Tom,
    bei mehreren Markierten Zeilen wird nur die erste Zeile kopiert
    LG
    Olaf

    Anzeige
    AW: Markierte Zeilen in eine andere Datei Kopieren
    03.04.2016 21:59:52
    Crazy
    Hi
    kann ich nicht nachvollziehen
    vielleicht hat jemand anderes eine Idee
    deshalb stell ich auf offen
    MfG Tom

    Allgem. Modul + nur in einer Spalte selektieren
    03.04.2016 23:22:17
    KlausF
    Hallo Olaf,
    gib Toms Makro mal in ein Allgemeines Modul und selektiere nicht
    die gesamte Zeile sondern wähle z.B. in der Spalte "Name" nur die ersten
    10 Namen aus und starte dann das Makro. Dann funktioniert alles super.
    Die Auswahl muss also auf eine beliebige Spalte reduziert sein.
    Gruß
    Klaus

    Anzeige
    AW: Allgem. Modul + nur in einer Spalte selektieren
    03.04.2016 23:59:32
    Falo
    Hallo Klaus,
    ich habe ein Allgemeines Modul erstellt, jetzt wird nur die Letzte Markierte Zeile Kopiert. ich benutze Office 2003 kann es daran liegen?.
    LG
    Olaf
  • 
Sub uebertragen()
Dim lngZiel As Long
Dim rngZelle As Range
Application.ScreenUpdating = False
For Each rngZelle In Selection
Cells(rngZelle.Row, "O").Resize(1, 8).Copy
With Workbooks("sepa-mitglieder2.xls").Sheets(1)
lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range("B" & lngZiel).PasteSpecial Paste:=xlPasteValues
End With
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

    • Anzeige
    AW: Allgem. Modul + nur in einer Spalte selektieren
    04.04.2016 00:11:50
    Werner
    Hallo,
    bei mir in Excel2010 geht es mit diesem Code. Auch wenn mehrere komplette Zeilen gewählt werden.
    Public Sub kopieren()
Dim longLetzte As Long
Application.ScreenUpdating = False
With Selection
.Columns("O:V").Copy
End With
With Workbooks("Ziel.xls").Sheets(1)
longLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(longLetzte, 2).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
    2003 kann ich nicht testen.
    Gruß Werner

    Anzeige
    AW: Allgem. Modul + nur in einer Spalte selektieren
    04.04.2016 00:38:03
    Falo
    Hallo Werner,
    das Klappt SUPER DANKE
    LG
    Olaf

    AW: Gerne u. Danke für die Rückmeldung. o.w.T.
    04.04.2016 00:55:37
    Werner

    AW: Allgem. Modul + nur in einer Spalte selektieren
    04.04.2016 01:08:05
    Werner
    Hallo Olaf,
    wenn du den Code so abänderst, dann funktioniert es wenn du
    1. ganze Zeilen auswählst
    2. auch dann wenn du z.B. in Spalte O Zellen auswählst
    Public Sub kopieren()
Dim longLetzte As Long
Application.ScreenUpdating = False
With Selection.EntireRow
.Columns("B:D").Copy
End With
With Sheets("Ziel")
longLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(longLetzte, 2).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
    Gruß Werner

    Anzeige
    nur mal als Info
    04.04.2016 14:15:47
    KlausF
    Hallo Werner,
    anbei mal das Ergebnis mit Deinem Makro und einem Mac, Excel 2003:
    https://www.herber.de/bbs/user/104748.xls
    Die ersten 3 Zeilen sind entstanden mit: Auswahl ganze Zeilen
    Zeile 5 bis 11 war Auswahl mehrerer Spalten/Zeilen, z.B. Bereich D10:F17 oder ähnlich
    Zeile 14 bis 17 entstanden mit: Zellauswahl nur in der Spalte Name
    Was auch immer da im Hintergrund passiert ...
    Dein letzter Code weiter unten kann übrigens schon deshalb nicht funktionieren,
    weil kein zweites Workbook angesprochen wird.
    Gruß
    Klaus
    PS. Ist aber nicht so wichtig. Hatte mich nur mal interesssiert.

    Anzeige
    AW: nur mal als Info
    04.04.2016 15:30:30
    Werner
    Hallo Klaus,
    danke für die Info. Ich habe beim Testen auch bemerkt, dass alles durcheinander ist, wenn nicht komplette Zeilen ausgewählt wurden.
    Hab es dann mit With Selection.EntireRow gemacht, da hat es dann funktioniert.
    Das mit dem zweiten Workbook stimmt natürlich. Ich habe versehentlich meinen Testcode eingestellt, bei dem ich nur mit zwei Blättern gearbeitet habe.
    Gruß Werner
    Anzeige

    Forumthreads zu verwandten Themen

    VBA Zellen mit x kopieren aber nur bestimmte Zellen
    balta

    Hallo zusammen,
    habe folgendes problem, undzwar sieht meine Tabelle so aus
    __A____B______C______D_____E_______F_____G____H
    1_x___alf___test1_________________1234___a____ist ein Auto
    2_y________________Ulf____test2__________b____ist ein Krad
    3
    4
    5
    6_y_____________...
    26.09.2008 23:48:47
    Thread-ID: 1012775
    6 Beiträge
    Anzeige
    VBA--Zellen finden/vergleichen/kopieren
    Christian

    Hallo
    einen Beispieldatei ist anbei!!
    Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
    Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
    07.10.2008 10:15:00
    Thread-ID: 1014634
    3 Beiträge
    Anzeige
    VBA Zellen prüfen, txt kopieren, einfügen in txt
    Stevie

    Hallo Zusammen,
    da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
    Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
    Hier der bisherige C...
    06.11.2008 09:56:19
    Thread-ID: 1022167
    3 Beiträge
    Daten aus einer anderen xls Datei importieren
    Michi

    Hallo,
    Ich suche eine VBA lösung (am besten als Macro) für folgende Aufgabe:
    Es soll ein ein Report erstellt werden der wie folgt ausschauen soll (Daten (PO nummer + einzelne Summe)n kommen aus einer externen Datei):
    Woche1
    Datainut PO1234 500 Euro
    Lager PM PO23456 800 E...
    08.11.2008 13:02:47
    Thread-ID: 1022899
    2 Beiträge
    Zeilen aus anderer datei kopieren
    Dieter

    Hi,
    habe mal wieder ein schweres Problem:
    ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
    Quelldatei : "IMPORT.XLS
    Tabellenblatt : "DATEN" oder "FPC"
    Zieldatei : "EXPORT.XLS
    Tabelnneblatt : "EINGABE"
    so,...
    01.12.2008 11:51:16
    Thread-ID: 1029203
    5 Beiträge
    Worksheet aus geschl. in geöffn. Datei kopieren
    Alexander

    Hallo zusammen,
    ich habe folgendes Problem. Meine VBA Kenntnisse sind leider nicht allzu gut.
    Ich habe eine geöffnete Datei und eine geschlossene Datei. Nun will ich aus der geschlossenen Datei ein Worksheet/Arbeitsblatt komplett inklusive seiner Inhalte in die aktuell geöffnete Datei...
    20.01.2009 13:38:00
    Thread-ID: 1041825
    4 Beiträge
    Worksheet in andere Datei kopieren
    Werner

    mein VBA-Level: befriedigend
    Hallo Freunde,
    ich versuche eine Tabelle (Worksheet) von einer in eine andere Excel-Datei zu kopieren, und zwar so:
    Workbooks("Datei1.xls").Worksheets("Zukopieren").Copy After:=Workbooks("Datei1.xls").Worksheets
    (Sheets.Count)
    Leider klappt das n...
    03.02.2009 08:15:00
    Thread-ID: 1046501
    7 Beiträge
    Makro in eine/mehrere andere Dateien transportiere
    Britta

    Hallo zusammen,
    ich habe nun mit dem von Hary erfundenen Makro eine gute Lösung für meine Daten gefunden. Leider weiß ich nicht wie ich das Makro in eine oder mehrere weitere Dateien übertragen kann. Ich habe es einfach naiv kopiert, dann aber festgestellt das, dass nur geht wenn ich die Qu...
    11.02.2009 16:52:00
    Thread-ID: 1049686
    9 Beiträge
    Zugriff auf Tabellenblatt in anderer Datei
    Ulrich

    Hallo,
    ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
    01.03.2009 18:03:43
    Thread-ID: 1055274
    2 Beiträge
    Anzeige
    Programm und Daten in andere Datei
    Steffen

    Hi Excelkenner
    Habe da mal eine simple Frage:
    Wenn ich ein Programm in VBA entwerfe aber die Daten auf eine separate Datei speicher will ist dies eine Variante. Wenn ich aber das Programm benutzen will, dass die Datendatei nicht immer gleich heisst ist wiederum etwas anders.
    Wie mac...
    10.03.2009 19:00:43
    Thread-ID: 1058828
    2 Beiträge
    makro in andere Datei aufrufen
    Alex

    Hi
    Ich rufe mit dem Code das makro2 in einer anderen Datei auf.
    Wie kann ich es erreichen, daß wenn das Makro "makro2" nicht existiert eine Meldung kommt und die Prozedur abgebrochen wird und wenn das Makro vorhanden ist, die erste Datei geschlossen wird, aber die aufgerufene Datei wei...
    21.03.2009 21:44:25
    Thread-ID: 1062538
    14 Beiträge
    Daten in andere Datei üebrtragen-Netzlaufwerk
    Andreas

    Hallo zusammen,
    ich habe folgendes Problem. Ich muss eine Datei zur Verfügung stellen, welche nur eine bestimmte Anzahl von Daten benötigt. Die Originaldatei hat also zuviel Infos (zuviel Spalten). Daß man Spalten innerhalb einer Arbeitsmappe übertragen kann ist mir bewußt. Kann ich jedoch...
    20.05.2009 11:58:36
    Thread-ID: 1076320
    8 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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