Nur Werte und Formate kopieren
edie
das nachfolgende Makro funktioniert soweit, leider werden die Formeln mitkopiert.
Ich schaffe es nicht, dass nur die Werte und die Formate kopiert werden.
Und so funktioniert es nicht: rngBereich.Copy wbTarget.Cells(intZeile, 1) .PasteSpecial,
da die Zelle nicht markiere wird. Ich suche nach einer Lösung bei der die Zelle markiert wird
damit man nur Werte und Formate kopiert mit:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Hier das Makro:
Sub test()
ChDrive Left(CurDir, 1)
ChDir CurDir
Dim rngBereich As Range
Dim intZeile As Integer
Dim varDatei As Variant
Set wbTarget = ThisWorkbook.Worksheets("Algorithmen")
Application.ScreenUpdating = False
Application.EnableEvents = False
varDatei = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xls), *.xls", , "Interpolation")
Workbooks.Open varDatei
Set wbSource = ActiveWorkbook.Worksheets("Rohdaten")
With wbSource
Set rngBereich = Worksheets("Rohdaten").Range("G5:M15")
rngBereich.Select
intZeile = 5
Do Until IsEmpty(wbTarget.Cells(intZeile, 1))
intZeile = intZeile + 1
Loop
rngBereich.Copy wbTarget.Cells(intZeile, 1)
'ActiveWindow.Close
End With
wbTarget.Activate
Set wbTarget = Nothing
Set wbSource = Nothing
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Vielen Dank im Voraus.
Grüße
Anzeige