nur werte übertragen in nächstes blatt
16.03.2007 14:07:00
kevin
brauche etwas unterstützung..
mein problem ist, wenn ich via vba eine zelle kopiere die das resultat einer formel enthält ,
wird nicht der wert , sondern die formel uebertragen
hab eine beispil xls auch hochgeladen , falls sich wer fuer interesiert :)
link : http://uploaded.to/?id=2l1b7w
hier mein code
[code]
Sub test()
Dim i As Integer
Dim letzte As Long
For i = 3 To 50 Step 1
If ActiveSheet.Cells(i, "E") = 1 Then
Range("A" & i).Select
With Sheets("Tabelle2")
letzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row + 1, 65536)
Selection.Copy Destination:=.Cells(letzte, "A")
Range("B" & i).Select
Selection.Copy Destination:=.Cells(letzte, "B")
Range("C" & i).Select
Selection.Copy Destination:=.Cells(letzte, "C")
Range("D" & i).Select
Selection.Copy Destination:=.Cells(letzte, "G") ' ergebniss in "G" ablegen
'hier sollte nur der "wert" übertragen werden
End With
'ElseIf ActiveSheet.Cells(i, "D") = 2 Then
Else
End If
Next i
End Sub
[/code]
schonmal vielen dank vorab !
kevin
Anzeige