Vereinfachung Makro

Sub alte_Zeile_ablegen() ' Makro1 Makro Sheets("Eingabe").Select Rows("37:37").Select Selection.Copy Workbooks.Open Filename:="U:\Technik\Produktion\Auftrag.xlsm", UpdateLinks _ :=0 Range("A3").Select ActiveSheet.Paste Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Rows("12:12").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown Range("A7:W7").Select Selection.Copy Range("A12").Select ActiveSheet.Paste Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A7").Select Application.CutCopyMode = False Range("A12").Select ActiveWorkbook.Save ActiveWindow.Close End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub alte_Zeile_ablegen() Dim rngZeileEingabe As Range Dim wbZieldatei As Workbook Dim wsZielblatt As Worksheet Set rngZeileEingabe = Worksheets("Eingabe").Rows(37) Set wbZieldatei = Workbooks.Open(Filename:="U:\Technik\Produktion\Auftrag.xlsm", UpdateLinks:=0) _ Set wsZielblatt = wbZieldatei.Worksheets("Tabelle1") 'ANPASSEN rngZeileEingabe.Copy wsZielblatt.Rows(3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False wsZielblatt.Rows(12).Insert shift:=xlDown wsZielblatt.Range("A7:W7").Copy wsZielblatt.Range("A12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False wbZiel.Close savechanges:=True End Sub

Hi Frank,
einfach die Formate hinterher kopieren. Änderungen fett.

Sub alte_Zeile_ablegen()
Dim rngZeileEingabe As Range
Dim wbZieldatei As Workbook
Dim wsZielblatt As Worksheet
Set rngZeileEingabe = Worksheets("Eingabe").Rows(37)
Set wbZieldatei = Workbooks.Open(Filename:="U:\Technik\Produktion\Auftrag.xlsm", UpdateLinks:= _
0) _
Set wsZielblatt = wbZieldatei.Worksheets("Tabelle1") 'ANPASSEN
rngZeileEingabe.Copy
wsZielblatt.Rows(3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wsZielblatt.Rows(12).Insert shift:=xlDown
wsZielblatt.Range("A7:W7").Copy
wsZielblatt.Range("A12").PasteSpecial Paste:=xlPasteValues
  wsZielblatt.Range("A7").entirerow.Copy
wsZielblatt.Range("A12").entirerow.PasteSpecial Paste:=xlPasteFormats,
Application.CutCopyMode = False
wbZiel.Close savechanges:=True
End Sub

wo wir gerade beim vereinfachen sind, ich würd ja die x-malige wiederholung von "wsZielblatt" durch eine Width-Schleife vermeiden:

Sub alte_Zeile_ablegen()
Dim rngZeileEingabe As Range
Dim wbZieldatei As Workbook
Dim wsZielblatt As Worksheet
Set rngZeileEingabe = Worksheets("Eingabe").Rows(37)
Set wbZieldatei = Workbooks.Open(Filename:="U:\Technik\Produktion\Auftrag.xlsm", UpdateLinks:=0) _
_
Set wsZielblatt = wbZieldatei.Worksheets("Tabelle1") 'ANPASSEN
rngZeileEingabe.Copy
With wsZielblatt
.Rows(3).PasteSpecial Paste:=xlPasteValues
.Rows(12).Insert shift:=xlDown
.Range("A7:W7").Copy
.Range("A12").PasteSpecial Paste:=xlPasteValues
.Range("A7").EntireRow.Copy
.Range("A12").EntireRow.PasteSpecial Paste:=xlPasteFormats
End With
Application.CutCopyMode = False
wbZiel.Close savechanges:=True
End Sub

Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread