Habe folgenden Code
Dim wksA As Worksheet, wksB As Worksheet
Dim rng As Range
Dim iRow As Integer
Set wksA = Worksheets("Gesamt")
Set wksB = Worksheets("1")
iRow = 4
Do Until IsEmpty(wksA.Cells(iRow, 1))
Set rng = wksB.Columns(1).Find(wksA.Cells(iRow, 1))
If Not rng Is Nothing Then
wksA.Columns(7).Rows(iRow).Copy
Paste Destination:=wksA.Columns(3).Rows(iRow)
End If
iRow = iRow + 1
Loop
End Sub
mein Problem ist das ich nur die "nackte" Zahl kopieren will!
Aber er kopiert auch die dahinter liegende Formel (eine einfache Summenformel), das will ich aber nicht.
Kann einer den Code vervollständigen!?
Oder mir einen Tipp geben.?
Mfg
Aleks