Inhalte kopieren - Inhalte einfügen
jeron
Sepp war so nett und hat mir vor geraumer Zeit einen super Code geschrieben.
Ich möchte ihn jetzt adaptieren, schaffe es aber nicht.
Es soll eigentlich nur ein Kopiervorgang verändert werden.
Der Zelleninhalt soll nicht komplett übernommen werden, sondern es sollen nur
die Inhalte eingefügt werden.
Wer kann mir bitte helfen?
Hier der Code mit meinem Kommentar an der entsprechenden Stelle.
For lngN = 0 To lngCnt - 1
If .Cells(vntRet + lngN, 2) "_" And .Cells(vntRet + lngN, 2) "" Then
.Cells(vntRet + lngN, 1).Copy objSh.Cells(lngRow, 3)
.Cells(vntRet + lngN, 2).Copy objSh.Cells(lngRow, 5)
' Für (.Cells(vntRet + lngN, 3).Copy objSh.Cells(lngRow, 6) soll nicht der gesamte Zelleninhalt kopiert werden, sondern nur der Inhalt (=Werte) kopiert und eingefügt werden.
.Cells(vntRet + lngN, 3).Copy objSh.Cells(lngRow, 6)
.Cells(vntRet + lngN, 4).Copy objSh.Cells(lngRow, 7)
.Cells(vntRet + lngN, 7).Copy objSh.Cells(lngRow, 8)
objSh.Cells(lngRow, 4) = .Range("B3").Value
objSh.Cells(lngRow, 1) = "OC"
objSh.Cells(lngRow, 12) = "ja"
lngRow = lngRow + 1
End If
Next
Über jede Hilfe wäre ich sehr dankbar.
Beste Grüße aus München,
Jeron