Nur Werte kopieren!
26.01.2009 15:27:51
markus473
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar()
Dim sh As Worksheet
UF_Dateiauswahl1.Show
If bolKopieren1 = True Then
For Each sh In ActiveWindow.SelectedSheets
If sh.Name "Vorgaben" Then
With Workbooks(strDateiName1).Sheets(sh.Name)
sh.Range("R7").Cells.Copy .Range("C8")
sh.Range("R8").Cells.Copy .Range("D8")
sh.Range("R9").Copy .Range("E8")
sh.Range("R10").Copy .Range("F8")
sh.Range("R11").Copy .Range("G8")
sh.Range("R12").Copy .Range("H8")
End With
End If
Next
Sheets("Vorgaben").Select
End If
End Sub
Anzeige