Microsoft Excel

Herbers Excel/VBA-Archiv

Nur den Inhalt kopieren | Herbers Excel-Forum


Betrifft: Nur den Inhalt kopieren von: edie
Geschrieben am: 27.12.2009 23:20:05

Hallo zusammen,

was muss ich ändern damit nur der Inhalt kopiert wird?

Sub test()
Dim wsT As Worksheet
Dim wsS As Worksheet
Dim i As Integer
Dim RowsT As Integer
Application.ScreenUpdating = False

Set wsT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count), , xlWorksheet)
wsT.Name = "Zusammenführung"
    For i = 3 To Worksheets.Count - 1
        Set wsS = Worksheets(i)
        RowsT = wsT.Cells(Rows.Count, 1).End(xlUp).Row + 1
        wsS.Range("I4:M16").Copy Destination:=wsT.Cells(RowsT, 1)
    Next i
    
Application.ScreenUpdating = True
End Sub
Hat jemand eine Idee und kann helfen?

Vorab vielen Dank

Grüße

  

Betrifft: AW: Nur den Inhalt kopieren von: Ramses
Geschrieben am: 27.12.2009 23:27:15

Hallo

Probiers einfach so

wsS.Range("I4:M16").Copy
wsT.Cells(RowsT, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Gruss Rainer


  

Betrifft: AW: Nur den Inhalt kopieren von: edie
Geschrieben am: 27.12.2009 23:37:36

Hallo Ramses,

funktioniert einwandfrei. Prima.

Vielen Dank und eine schönen Abend noch.

Grüße


Beiträge aus den Excel-Beispielen zum Thema "Nur den Inhalt kopieren"