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
Hat jemand eine Idee?Vielen Dank im Voraus.
Grüße