Letzte Zeile suchen und danach Werte einfügen

Hallo,
ich habe folgenden Code gebastelt, der auch grundsätzlich ganz gut funktioniert, das Problem ist nur dass beim Kopieren die gesamte Formel und nicht die Werte kopiert werden - könnt ihr mir vielleicht diesbezüglich weiterhelfen:
Sub VERSUCH()
Windows("LAGER Rohstoffe ab 01.01.2013 v2.xlsm").Activate
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lastCell As Long, lastColumn As Integer
Set wks1 = Worksheets("ROHSTOFFE DETAILS ab 01.01.2013")
Set wks2 = Worksheets("Pivots")
With wks2
lastCell = .Range("C65536").End(xlUp).Row
lastColumn = .UsedRange.Columns.Count
.Range("A15:AS15").Copy Destination:=wks1.Range("C65536").End(xlUp).Offset(1, 0)
End With
Set wks1 = Nothing
Set wks2 = Nothing

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Jetzt muss ich doch nochmal etwas fragen - kann ich diese Befehl auch zweimal durchführen? Es kommt bei meiner Anpassung nämlich die Meldung: Mehrfachmeldung im Gültigkeitsbereich:

Sub Test
'Kopie Rohstoffe Details
Windows("LAGER Rohstoffe ab 01.01.2013 v2.xlsm").Activate
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lastCell As Long, lastColumn As Integer
Set wks1 = Worksheets("ROHSTOFFE DETAILS ab 01.01.2013")
Set wks2 = Worksheets("Pivots")
With wks2
lastCell = .Range("C65536").End(xlUp).Row
lastColumn = .UsedRange.Columns.Count
.Range("A15:AS15").Copy
wks1.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End With
Set wks1 = Nothing
Set wks2 = Nothing
'Kopie Rohstoffe
Windows("LAGER Rohstoffe ab 01.01.2013 v2.xlsm").Activate
Dim wks3 As Worksheet, wks4 As Worksheet
Dim lastCell As Long, lastColumn As Integer
Set wks3 = Worksheets("ROHSTOFFE ab 01.01.2013")
Set wks4 = Worksheets("Pivots")
With wks4
lastCell = .Range("C65536").End(xlUp).Row
lastColumn = .UsedRange.Columns.Count
.Range("A21:W21").Copy
wks3.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Sub Test() 'Kopie Rohstoffe Details Dim wks1 As Worksheet, wks2 As Worksheet Dim wks3 As Worksheet, wks4 As Worksheet Dim lastCell As Long, lastColumn As Integer With Workbooks("LAGER Rohstoffe ab 01.01.2013 v2.xlsm") Set wks1 = .Worksheets("ROHSTOFFE DETAILS ab 01.01.2013") Set wks2 = .Worksheets("Pivots") End With With wks2 lastCell = .Range("C65536").End(xlUp).Row lastColumn = .UsedRange.Columns.Count .Range("A15:AS15").Copy End With wks1.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues Application.CutCopyMode = False 'Kopie Rohstoffe With Workbooks("LAGER Rohstoffe ab 01.01.2013 v2.xlsm") Set wks1 = Worksheets("ROHSTOFFE ab 01.01.2013") Set wks2 = Worksheets("Pivots") End With With wks2 lastCell = .Range("C65536").End(xlUp).Row lastColumn = .UsedRange.Columns.Count .Range("A21:W21").Copy End With wks1.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues Application.CutCopyMode = False End Sub

Sub Test() Dim wks1 As Worksheet, wks2 As Worksheet, wksPivot As Worksheet With Workbooks("LAGER Rohstoffe ab 01.01.2013 v2.xlsm") Set wks1 = .Worksheets("ROHSTOFFE DETAILS ab 01.01.2013") Set wks2 = .Worksheets("ROHSTOFFE ab 01.01.2013") Set wksPivot = .Worksheets("Pivots") End With 'Kopie Rohstoffe Details wksPivot.Range("A15:AS15").Copy wks1.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues 'Kopie Rohstoffe wksPivot.Range("A21:W21").Copy wks2.Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

Letzte Zeile suchen und danach Werte einfügen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread