Thema Datum  Von Nutzer Rating
Antwort
20.08.2016 11:54:54 Shak
Solved
20.08.2016 12:34:46 Crazy Tom
NotSolved
20.08.2016 21:12:49 Shak
NotSolved
21.08.2016 18:07:39 Shak
NotSolved
Rot Daten von einer Excel in eine andere
 21.08.2016 18:40:02 Crazy Tom
NotSolved
21.08.2016 18:50:47 Gast68160
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
21.08.2016 18:40:02		 Views:
845		 Rating:
     
Antwort:
  Ja
Thema:
Daten von einer Excel in eine andere

Hallo

das solltest du aber selber angepasst bekommen

ungetestet

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub prcKopieren()
    Dim lngZielZeile As Long
    Workbooks.Open Filename:="C:\Users\Tom\Desktop\Master.xls" 'Pfad anpassen
    ThisWorkbook.Sheets("Transfer Master").Range("A2:AU2").Copy
    With Workbooks("Master.xls").Sheets("Tabelle1") 'Tabellenblattname anpassen
        lngZielZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Range("A" & lngZielZeile).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
    Workbooks("Master.xls").Close True
    MsgBox "Übertragung erfolgreich"
     
    Workbooks.Open Filename:="C:\Users\Tom\Desktop\Produkte.xls" 'Pfad anpassen
    ThisWorkbook.Sheets("Transfer Master").Range("A5:AU5").Copy
    With Workbooks("Produkte.xls").Sheets("Tabelle1") 'Tabellenblattname anpassen
        lngZielZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Range("A" & lngZielZeile).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
    Workbooks("Produkte.xls").Close True
    MsgBox "Übertragung erfolgreich"
End Sub

MfG Tom

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
20.08.2016 11:54:54 Shak
Solved
20.08.2016 12:34:46 Crazy Tom
NotSolved
20.08.2016 21:12:49 Shak
NotSolved
21.08.2016 18:07:39 Shak
NotSolved
Rot Daten von einer Excel in eine andere
 21.08.2016 18:40:02 Crazy Tom
NotSolved
21.08.2016 18:50:47 Gast68160
NotSolved