Übertrag der Werte ohne Links mit Macros
28.09.2022 15:42:50
Elena
Wir nutzen ein Makro, das den Inhalt der Zellen einer Tabelle von einzellnen Blättern in das erste Blatt überträgt.
Momentan wird jeder Inhalt übertragen - Formeln, Links etc. Wir möchten das Macro so anpassen, dass es nur Werte überträgt.
Hat jemand eine Idee?
Danke im Voraus
Elena
----------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Uebertrag()
Dim Wks As Worksheet
Dim RG As Range
Dim strLC As String
Dim i As Long
Dim iCopyRowsCount As Long
For i = 2 To Worksheets.Count
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set RG = .Range("A3:" & strLC)
iCopyRowsCount = .Rows.Count
End With
With Sheets("SUM").Cells(Rows.Count, 2).End(xlUp)
RG.Copy Destination:=.Offset(1, 0)
.Offset(1, -1).Resize(iCopyRowsCount) = Worksheets(i).Name
End With
Next i
End Sub
Anzeige