Werte aus Formel in nächst freie Zeile kopieren
24.09.2003 19:37:51
Gonzoll
ich habe folgendes Problem.
Ich versuche nicht zusammenhängende Zellen in ein neues Tabellenblatt zu kopieren. Dort sollen die Zellen immer in die nächst freie Zeile kopiert werden. Das Makro das ich habe funktioniert prima, bis auf die kleine Tatsache, dass in den Zellen die kopiert werden sich Formeln befinden und nicht die Werte, sondern die Zelle eins zu eins kopiert wird.
Wie schaffe ich es, dass nur die ermittelten Werte kopiert werden?
Danke im voraus
Hier das von mir verwendete Makro:
Sub CPI()
Sheets("Gesamt").Select
Dim rngAct As Range
Dim intRow As Integer, intCol As Integer
With Worksheets("CPI")
If IsEmpty(.Cells(1, 1)) Then
intRow = 1
Else
intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
For Each rngAct In Worksheets("Gesamt").Range("A4,C52,E52,G52,J52,L52,N52").Cells
intCol = intCol + 1
rngAct.Copy .Cells(intRow, intCol)
Next rngAct
End With
Application.CutCopyMode = False
End Sub