Daten in neue Mappe kopieren

Sub Neu() Workbooks.Add With Tabelle1 Range("A1:K1000").Font.Name = "Arial" Range("A1:K1000").Font.Size = 9 End With With Workbooks("Test-1") Sheets(1).Range("A1:K" & Cells(Rows.Count, 2).End(xlUp).Row).Select 'With ThisWorkbook 'Sheets(1).Range("A2").PasteSpecial Paste:=xlPasteValues 'Application.CutCopyMode = False 'End With End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Neu() Dim zeilenlänge As Long 'legt die Zeilenlänge des Ausschnitts fest Dim ausschnitt As Range 'legt die Range letztendlich fest Workbooks.Add With Tabelle1 Range("A1:K1000").Font.Name = "Arial" Range("A1:K1000").Font.Size = 9 End With With ThisWorkbook.Worksheets(1) zeilenlänge = .Cells(Rows.Count, 11).End(xlUp).Row Set ausschnitt = .Range(.Cells(1, 1), .Cells(zeilenlänge, 11)) With Workbooks("Mappe-1").Worksheets(1) .Range(.Cells(1, 1), .Cells(zeilenlänge, 11)).Value = ausschnitt.Value End With End With End Sub

Sub Neu() Workbooks.Add With Tabelle1 Range("A1:K1000").Font.Name = "Arial" Range("A1:K1000").Font.Size = 9 End With >>>neues Workbook wird angelegt. Schriftart + Größe wird für Range("A1:K1000") festgelegt. Diese Workbook heißt dann von Excel automatisch Mappe1.xlsx. With Workbooks("Test-1") ' Sheets(1).Range("A1:K" & Cells(Rows.Count, 2).End(xlUp).Row).copy >>>In dem Workbook wo das Makro im Modul läuft soll jetzt geprüft werden, bis zur welcher Zeile in Spalte B der letzte Text steht und dann die Spalten A-K + bis zur letzten Zeile kopieren 'With ThisWorkbook 'Sheets(1).Range("A2").PasteSpecial Paste:=xlPasteValues 'Application.CutCopyMode = False 'End With >>> In dem Workbook welches siehe oben neu erstellt wurde, sollen die Daten die zuvor kopiert wurden jetzt ab Zelle A2 eingefügt werden. End With End Sub

Hallo Christian,
ich erklär dir auch mal meinen Code:


Sub Neu()
Dim zeilenlänge As Long 'legt die Zeilenlänge des Ausschnitts fest
Dim ausschnitt As Range 'legt die Range letztendlich fest
'Fügt ein neues Workbook ein und setzt die Schriftart
Workbooks.Add
Range("A1:K1000").Font.Name = "Arial"
Range("A1:K1000").Font.Size = 9
'Zeilenlänge aus Test-1 lesen und den Ausschnitt festlegen (der in deinem Bsp kopiert wird, _
nur .Copy ist überflüssig)
With ThisWorkbook.Worksheets(1)
zeilenlänge = .Cells(Rows.Count, 11).End(xlUp).Row
Set ausschnitt = .Range(.Cells(1, 1), .Cells(zeilenlänge, 2))
'Alles in Mappe-1 übertragen
With Workbooks("Mappe-1").Worksheets(1)
.Range(.Cells(1, 1), .Cells(zeilenlänge, 2)).Value = ausschnitt.Value
End With
End With
End Sub

Nochmal btw du verwendest dein With nicht richtig... Wenn du With verwendest musst du danach mit ".Range" und nicht mit "Range" fortfahren. Der "." ist sehr wichtig!
Also was ich dir sagen kann ist, dass mein Makro so funktionieren muss. Hat es bei mir auch.
Gruß Marc

Sub Neu() Dim zeilenlänge As Long 'legt die Zeilenlänge des Ausschnitts fest Dim ausschnitt As Range 'legt die Range letztendlich fest Workbooks.Add With Tabelle1 Range("A1:K1000").Font.Name = "Arial" Range("A1:K1000").Font.Size = 9 End With With ThisWorkbook.Worksheets(1) zeilenlänge = .Cells(Rows.Count, 2).End(xlUp).Row Set ausschnitt = .Range(.Cells(1, 1), .Cells(zeilenlänge, 11)) With Workbooks("Mappe-1").Worksheets(1) .Range(.Cells(1, 1), .Cells(zeilenlänge, 11)).Value = ausschnitt.Value End With End With End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten in neue Mappe kopieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread