Thema Datum  Von Nutzer Rating
Antwort
13.12.2016 22:41:52 Woppel
NotSolved
Blau Bereich aus anderer Mappe kopieren/einfügen
 14.12.2016 12:37:39 BigBen
NotSolved
14.12.2016 20:13:45 Woppel
Solved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
14.12.2016 12:37:39		 Views:
569		 Rating:
     
Antwort:
  Ja
Thema:
Bereich aus anderer Mappe kopieren/einfügen

Hallo,

vielleicht hilft Dir dieser VBA-Code weiter:

Sub CopyWochenbericht()
    
    Dim bk As Workbook
    Dim shBasis As Worksheet
    Dim rngBasis As Range
    Dim rngListe As Range
    '1. Ist Wochenbericht bereits geöffnet?
    For Each bk In Application.Workbooks
        If bk.Name = "Wochenbericht.xlsx" Then
            Exit For
        End If
    Next
    If bk Is Nothing Then
        Set bk = Application.Workbooks.Open("L:\Temp\Kopieren\Wochenbericht.xlsx")
    End If
    
    ' 2. Letzte Zeile ermitteln (von Meine Mappe)
    
    Set shBasis = ThisWorkbook.Worksheets("Basis")
    Set rngBasis = shBasis.Cells(shBasis.UsedRange.Rows.Count + 1, 1)
    
    ' 3. Zu kopierende Inhalte definieren und diese kopieren
    With bk.Worksheets("Liste1")
        Set rngListe = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, .UsedRange.Columns.Count))
        'rngListe.Copy
    End With
    'rngBasis.PasteSpecial (xlPasteAll)
    
    ' 2. Methode ohne Zwischenablage
    Set rngBasis = rngBasis.Resize(rngListe.Rows.Count, rngListe.Columns.Count)
    rngBasis.Value = rngListe.Value
End Sub

Erläuterung:

Falls die Abeitsmappe Wochenbericht noch n icht geöffnet wurde, wird diese geöffnet. Hier muss der Pfad angepasst werden.

Im VBA-Code wird der Inhalt ohne Einsatz der Zwischenablage kopiert. Falls es hierbei zu Fehlern kommen sollte, müssen nur die auskommentierten copy und pastespecial auskommentiert werden. Die beiden letzten Zeilen müssen in dem Fall gelöscht werden.

 LG, BigBen

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
13.12.2016 22:41:52 Woppel
NotSolved
Blau Bereich aus anderer Mappe kopieren/einfügen
 14.12.2016 12:37:39 BigBen
NotSolved
14.12.2016 20:13:45 Woppel
Solved