VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Kopieren von Zellen und einfügen in andere Datei	13.12.2018 09:59:30	Robert
Kopieren von Zellen und einfügen in andere Datei	13.12.2018 19:36:12	Gast01233
Kopieren von Zellen und einfügen in andere Datei	14.12.2018 07:23:45	Robert
Kopieren von Zellen und einfügen in andere Datei	14.12.2018 07:27:10	Gast58432
Kopieren von Zellen und einfügen in andere Datei	14.12.2018 09:10:58	Gast49343
Kopieren von Zellen und einfügen in andere Datei	14.12.2018 09:36:04	Robert
Kopieren von Zellen und einfügen in andere Datei	13.12.2018 20:01:55	Gast25162

Ansicht des Beitrags:

Von: Robert	Datum: 14.12.2018 07:23:45	Views: 545	Rating:	Antwort:
Thema: Kopieren von Zellen und einfügen in andere Datei
Mein Problem besteht darin, dass bei meinem VBA Code knapp eine Minute vergeht bis alle Wert in Mappe 2 kopiert werden und das ich es nicht hinbekomme, dass das Tabellenblatt in Mappe 2 eingefügt wird. Momentan wird das Tabellenblatt nur in der aktiven Mappe 1.xlsx kopiert. Und hier komm ich einfach nicht weiter. Daher meine bitte um Hilfe von einem VBA Experten. Muss dich also enttäuschen suche niemanden der für mich die ganze Arbeit erledigt. Hier mal mein Code: Private Sub CommandButton1_Click() Dim Quelle As Worksheet Dim Ziel As Worksheet Set Quelle = ThisWorkbook.Worksheets("Tabelle1") Set Ziel = Workbooks("Mappe 2").Worksheets("DB") Quelle.Range("D4").Copy Ziel.Range("A" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D6").Copy Ziel.Range("B" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D8").Copy Ziel.Range("C" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D10").Copy Ziel.Range("D" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D12").Copy Ziel.Range("E" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D14").Copy Ziel.Range("F" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H4").Copy Ziel.Range("G" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("L30").Copy Ziel.Range("H" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("L32").Copy Ziel.Range("I" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("L34").Copy Ziel.Range("J" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("L36").Copy Ziel.Range("K" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("N30").Copy Ziel.Range("L" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("N32").Copy Ziel.Range("M" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("N34").Copy Ziel.Range("N" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D18").Copy Ziel.Range("O" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D20").Copy Ziel.Range("P" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D22").Copy Ziel.Range("Q" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D24").Copy Ziel.Range("R" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H18").Copy Ziel.Range("S" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H20").Copy Ziel.Range("T" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H22").Copy Ziel.Range("U" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H24").Copy Ziel.Range("V" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D28").Copy Ziel.Range("W" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D30").Copy Ziel.Range("X" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D32").Copy Ziel.Range("Y" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D34").Copy Ziel.Range("Z" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H28").Copy Ziel.Range("AA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H30").Copy Ziel.Range("AB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D38").Copy Ziel.Range("AC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D40").Copy Ziel.Range("AD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D42").Copy Ziel.Range("AE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D44").Copy Ziel.Range("AF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("D46").Copy Ziel.Range("AG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H38").Copy Ziel.Range("AH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H40").Copy Ziel.Range("AI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H42").Copy Ziel.Range("AJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H44").Copy Ziel.Range("AK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H52").Copy Ziel.Range("AL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I52").Copy Ziel.Range("AM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H53").Copy Ziel.Range("AN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I53").Copy Ziel.Range("AO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H54").Copy Ziel.Range("AP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I54").Copy Ziel.Range("AQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H55").Copy Ziel.Range("AR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I55").Copy Ziel.Range("AS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H56").Copy Ziel.Range("AT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I56").Copy Ziel.Range("AU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H57").Copy Ziel.Range("AV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I57").Copy Ziel.Range("AW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G58").Copy Ziel.Range("AX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H58").Copy Ziel.Range("AY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I58").Copy Ziel.Range("AZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E60").Copy Ziel.Range("BA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G60").Copy Ziel.Range("BB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H60").Copy Ziel.Range("BC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I60").Copy Ziel.Range("BD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E61").Copy Ziel.Range("BE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G61").Copy Ziel.Range("BF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H61").Copy Ziel.Range("BG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I61").Copy Ziel.Range("BH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E62").Copy Ziel.Range("BI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G62").Copy Ziel.Range("BJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H62").Copy Ziel.Range("BK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I62").Copy Ziel.Range("BL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E63").Copy Ziel.Range("BM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G63").Copy Ziel.Range("BN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H63").Copy Ziel.Range("BO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I63").Copy Ziel.Range("BP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E64").Copy Ziel.Range("BQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G64").Copy Ziel.Range("BR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H64").Copy Ziel.Range("BS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I64").Copy Ziel.Range("BT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E65").Copy Ziel.Range("BU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G65").Copy Ziel.Range("BV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H65").Copy Ziel.Range("BW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I65").Copy Ziel.Range("BX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E66").Copy Ziel.Range("BY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G66").Copy Ziel.Range("BZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H66").Copy Ziel.Range("CA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I66").Copy Ziel.Range("CB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E67").Copy Ziel.Range("CC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G67").Copy Ziel.Range("CD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H67").Copy Ziel.Range("CE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I67").Copy Ziel.Range("CF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E68").Copy Ziel.Range("CG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G68").Copy Ziel.Range("CH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H68").Copy Ziel.Range("CI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I68").Copy Ziel.Range("CJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E69").Copy Ziel.Range("CK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G69").Copy Ziel.Range("CL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H69").Copy Ziel.Range("CM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I69").Copy Ziel.Range("CN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E70").Copy Ziel.Range("CO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G70").Copy Ziel.Range("CP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H70").Copy Ziel.Range("CQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I70").Copy Ziel.Range("CR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E71").Copy Ziel.Range("CS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G71").Copy Ziel.Range("CT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H71").Copy Ziel.Range("CU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I71").Copy Ziel.Range("CV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E72").Copy Ziel.Range("CW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G72").Copy Ziel.Range("CX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H72").Copy Ziel.Range("CY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I72").Copy Ziel.Range("CZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E73").Copy Ziel.Range("DA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G73").Copy Ziel.Range("DB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H73").Copy Ziel.Range("DC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I73").Copy Ziel.Range("DD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E74").Copy Ziel.Range("DE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G74").Copy Ziel.Range("DF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H74").Copy Ziel.Range("DG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I74").Copy Ziel.Range("DH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E75").Copy Ziel.Range("DI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G75").Copy Ziel.Range("DJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H75").Copy Ziel.Range("DK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I75").Copy Ziel.Range("DL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E76").Copy Ziel.Range("DM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G76").Copy Ziel.Range("DN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H76").Copy Ziel.Range("DO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I76").Copy Ziel.Range("DP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("E77").Copy Ziel.Range("DQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G77").Copy Ziel.Range("DR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H77").Copy Ziel.Range("DS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I77").Copy Ziel.Range("DT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H78").Copy Ziel.Range("DU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I78").Copy Ziel.Range("DV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("K75").Copy Ziel.Range("DW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("K77").Copy Ziel.Range("DX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("K81").Copy Ziel.Range("DY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("L81").Copy Ziel.Range("DZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("M81").Copy Ziel.Range("EA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H80").Copy Ziel.Range("EB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I80").Copy Ziel.Range("EC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H81").Copy Ziel.Range("ED" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I81").Copy Ziel.Range("EE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("G83").Copy Ziel.Range("EF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("H83").Copy Ziel.Range("EG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("I83").Copy Ziel.Range("EH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Quelle.Range("B87").Copy Ziel.Range("EI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _ Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = .Range("H4") End With 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
Kopieren von Zellen und einfügen in andere Datei	13.12.2018 09:59:30	Robert
Kopieren von Zellen und einfügen in andere Datei	13.12.2018 19:36:12	Gast01233
Kopieren von Zellen und einfügen in andere Datei	14.12.2018 07:23:45	Robert
Kopieren von Zellen und einfügen in andere Datei	14.12.2018 07:27:10	Gast58432
Kopieren von Zellen und einfügen in andere Datei	14.12.2018 09:10:58	Gast49343
Kopieren von Zellen und einfügen in andere Datei	14.12.2018 09:36:04	Robert
Kopieren von Zellen und einfügen in andere Datei	13.12.2018 20:01:55	Gast25162