Werte kopieren
22.07.2016 22:29:21
Bea
ich benötige schon wieder Hilfe.
Nachfolgendes Script kopiert Daten in eine andere Tabelle - funktioniert auch.
Aber...es werden nur die Formeln kopiert und nicht die Ergebnisse.Was muss ich ändern?
Sub Transfer()
Dim wksSource As Worksheet
Dim wksTarget As Worksheet
Dim lastLineSource As Long
Dim lastLineTarget As Long
Dim rng As Range
Dim i As Integer
Set wksTarget = ThisWorkbook.Sheets("Liste")
With wksTarget
lastLineTarget = .Cells(wksTarget.Rows.Count, _
2).End(xlUp).Row 'letzte Zeile Spalte B suchen
End With
Set wksSource = ThisWorkbook.Sheets("RB")
With wksSource
.Range("D1").Copy (wksTarget.Cells(lastLineTarget + 1, 1)) 'Datum
.Range("C4").Copy (wksTarget.Cells(lastLineTarget + 1, 2)) 'Name
.Range("G38").Copy (wksTarget.Cells(lastLineTarget + 1, 3)) 'Betrag RB
.Range("O38:P38").Copy (wksTarget.Cells(lastLineTarget + 1, 4)) 'Betrag RB Einsatz
i = 4 'Spaltenbeginn für RE-Art./Preis
For Each rng In .Range("O51:P51") 'Betrag RB Einsatz zusätzlich
If Not IsEmpty(rng) Then
wksTarget.Cells(lastLineTarget + 1, i).Value = rng.Value
wksTarget.Cells(lastLineTarget + 1, i + 1).Value = rng.Offset(0, 1).Value
i = i + 2
End If
Next
End With
End Sub
Grüße
Bea