Thema Datum  Von Nutzer Rating
Antwort
22.04.2016 15:15:24 Marina
NotSolved
22.04.2016 15:45:18 Gast77317
NotSolved
25.04.2016 10:39:50 Gast19506
NotSolved
Blau Zwischenspeicher wird geleert
 25.04.2016 11:28:53 Gast71136
NotSolved
25.04.2016 11:32:43 Marina
NotSolved

Ansicht des Beitrags:
Von:
Gast71136		 Datum:
25.04.2016 11:28:53		 Views:
714		 Rating:
     
Antwort:
  Ja
Thema:
Zwischenspeicher wird geleert

Moin! Also habe deinen Code mal ein wenig angepasst und die select und activate gekürzt. Das mit den Datei1.xlsm habe ich mal nicht genutzt. Gehe davon aus, dass aus der geöffneten Datei in die aufrufenden DAtei kopiert wird. Schaue mal, ob es so passt. Sind noch ein paar Kommentare drin. Bei Fragen einfach nochmal melden. VG

Option Explicit

Sub kopieren()
Application.DisplayAlerts = False
Dim Pfad As String
Dim urdatei  '??
Dim freiezeile As Long  'freie Ziele in der Ausgangsdatei
Dim startdatei      'die das Makro hat und in die vermtl. kopiert werden soll.
Dim quelldatei      'die aus der kopiertr wird

Set startdatei = ActiveWorkbook  'die aktuelle Datei

freiezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1  'letzte frei Zeile in der Ausgangsdatei

Set urdatei = Worksheets(ActiveSheet.Index) 'weiß nicht, wofür das gebraucht wird
Pfad = Sheets(1).Range("AB48")
Workbooks.Open Pfad & "\" & Sheets(1).Range("AB49")
Set quelldatei = ActiveWorkbook  'die grade geöffnete
ActiveWorkbook.Sheets("Tabelle1").Range("A2:M22").Copy startdatei.Sheets("Tabelle2").Cells(freiezeile, 1) 'kopiert in einem Rutsch ohne selektieren
'jetzt zur Ausgangsdatei und die geöffnete ohne speichern schließen
startdatei.Activate
quelldatei.Close savechanges:=False

Range("A1").Select

set startdatei = nothing
set quelldatei = nothing

Application.DisplayAlerts = True
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.04.2016 15:15:24 Marina
NotSolved
22.04.2016 15:45:18 Gast77317
NotSolved
25.04.2016 10:39:50 Gast19506
NotSolved
Blau Zwischenspeicher wird geleert
 25.04.2016 11:28:53 Gast71136
NotSolved
25.04.2016 11:32:43 Marina
NotSolved