Thema Datum  Von Nutzer Rating
Antwort
22.10.2017 00:13:37 Perica
NotSolved
22.10.2017 01:31:19 Gast01234
NotSolved
Rot Werte in andere mappe kopieren
22.10.2017 08:20:27 Gast70117
*****
Solved
22.10.2017 10:59:01 Perica
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
22.10.2017 08:20:27		 Views:
565		 Rating:
     
Antwort:
 Nein
Thema:
Werte in andere mappe kopieren 
Sub ToArchiv()
Dim Sh As Worksheet, Rng As Range, c As Range
On Error GoTo errh
   For Each Sh In ThisWorkbook.Sheets
      Set Rng = Sh.Range(Sh.Cells(2, 2), Sh.Cells(Sh.Rows.Count, 2).End(xlUp))
      If Rng.Rows(1).Row = 2 Then
         With Workbooks("Archiv.xlsm")
            'Zieltabelle nicht bekannt, daher
            With .Sheets(1).Columns(1)
               Set c = .Cells(.Cells.Rows.Count).End(xlUp)(2)
               Rng.Copy c
            End With
         End With
      End If
   Next Sh
On Error GoTo 0
errh:
Select Case Err.Number
   Case 9
      MsgBox "keine Mappe - Archiv.xlsm"
End Select
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.10.2017 00:13:37 Perica
NotSolved
22.10.2017 01:31:19 Gast01234
NotSolved
Rot Werte in andere mappe kopieren
22.10.2017 08:20:27 Gast70117
*****
Solved
22.10.2017 10:59:01 Perica
NotSolved